dust_theme <- ggthemr('dust', set_theme = FALSE) # set_theme参数让这个函数运行后不对之后作图产生影响 p0 p0 + dust_theme$theme # 只对背景等进行设置,不改变点的颜色,相当于使用ggplot2中的theme函数得到的结果 # 从前面的学习中我们知道,要改变点的颜色,需要用scale_color_系列函数,这里也是一样,...
比如上面上面函数加入ggplot2后就可以直接调用: p <- qplot(x = x, y = y, color = x, fill = x, geom = c("line", "point"), group = 1) +labs(title = "The figure title.", xlab = "Factor", ylab = "Value") p + theme_zg() p +theme_zg(base_size = 16, bg = "gray90"...
5. 参考ggplot2预设主题,绘制自己的theme ggplot2的预设主题已经写过了,参考R语言可视化及作图9--主题函数。 以theme_linedraw()为例,查看这个主题设置了什么参数 theme_linedraw ## function (base_size = 11, base_family = "", base_line_size = base_size/22, ## base_rect_size = base_size/22)...
process its hooks.$base_path=dirname($base->filename);if($theme_engine) {//注意调用时$name=theme engine name, $type='base_theme_engine', $theme=base theme name, $path=base theme path
它无非是一个具有两个参数的函数:base_size和base_family。其主题部分直接应用了另外一个函数:theme。它就是ggplot2的主题设置函数。这个theme函数的产生看起来非常简单: # 函数说明,非运行代码 theme(...,complete=FALSE) 但dotdotdot(···)参数却内涵丰富,它可以设置很多内容。 参数 设置内容 继承自 line ...
p8 <- base + theme(legend.position = c(1, 0), legend.justification = c(1, 0)) p9 <- grid.arrange(p1,p2,p3,p4,p5,p6,p7,p8,nrow = 4) ggsave("scale8.png", p9, width = 8, height = 10) 修改ggplot2的图例符号 draw_key_*函数指定图例符号,注意右侧图例符号变化。
base_family = "Arial",) 二、参数 如果要对个别地方进行详细调整,就需要用到theme()函数。首先,theme()函数中主要参数有以下这些: image.png 其次,以plot.title为例 plot.title = element_text(family="Arial",face="bold" ,color="Black",size=10,hjust=0.5,vjust=0.5, angle=45,lineheight=100) ...
在values/styles.xml中你会发现AppTheme的主题样式又是继承自AppTheme.Base。而AppTheme.Base的父主题就有很多不同了,我们可以从这个位置来修改主题。 2》主题的来源有三个: 1)来自Android系统自带的 2)来自兼容包的 3)自己写一个主题 使用Android系统中自带的主题要加上"android:",比如:android:Theme.Black...
setSize(baseSize); computeLogicalWidth(); computeLogicalHeight(); updateLayerTransform();if(thumb) {if(oldSize != size()) thumb->setChildNeedsLayout(true,false);LayoutStateMaintainerstatePusher(view(),this,IntSize(x(),y()),style()->isFlippedBlocksWritingMode()); ...
#我们先来看看ggplot2默认的主题设置函数theme_gray()的源代码 theme_gray#函数名不加括号可获得函数源代码 ## function (base_size = 11, base_family = "") ## { ## half_line <- base_size/2 ## theme(line = element_line(colour = "black", size = 0.5, linetype = 1, ...