ggplot(data1, aes(v1, v2)) + geom_point() + theme_bw() # theme_bw()主题。 ggplot(data1, aes(v1, v2)) + geom_point() + theme_linedraw() # theme_linedraw() ggplot(data1, aes(v1, v2)) + geom_point() + theme_light() # theme_light() ggplot(data1, aes(v1, v2)) ...
theme_grey()为默认主题,theme_bw()为白色背景主题,theme_classic()为经典主题。 p+theme_bw()+labs(subtitle="Change theme_bw") ggplot2 扩展包主题 library(ggthemes)p+theme_economist() +labs(subtitle="Change theme_economist") #其他可选theme_economist theme_economist_whitetheme_wsj theme_exceltheme...
theme_grey()为默认主题,theme_bw()为白色背景主题,theme_classic()为经典主题。 代码语言:javascript 复制 p+theme_bw()+labs(subtitle="Change theme_bw") ggplot2 扩展包主题 代码语言:javascript 复制 library(ggthemes)p+theme_economist()+labs(subtitle="Change theme_economist")#其他可选#theme_economist...
theme_grey()为默认主题,theme_bw()为白色背景主题,theme_classic()为经典主题。 p + theme_bw() + labs(subtitle="Change theme_bw") ggplot2 扩展包主题 library(ggthemes) p + theme_economist() + labs(subtitle="Change theme_economist") #其他可选theme_economist theme_economist_whitetheme_wsj the...
theme是解决图是否美观的一个工具,其与scale最大的区别在于不受数据左右。先把scale做好,就是一张合格的图;再处理theme,则是一张出色的图。 载入数据,R包 代码语言:javascript 代码运行次数:0 复制 Cloud Studio代码运行 library(ggplot2)#载入数据data(diamonds)set.seed(1234)diamond<-diamonds[sample(nrow(diam...
除此外,ggplot2提供一些已经写好的主题,比如theme_grey()为默认主题,theme_bw()为白色背景主题,theme_classic()为经典主题。 p + theme_classic() 1. 3 ggplot2 扩展包主题 library(ggthemes) p + theme_stata() 1. 2. 除上述外,ggthemes包还提供其他主题,小伙伴们自己尝试吧。
theme_bw : 白色背景色和灰色网格线 theme_linedraw : 图周围的黑线 theme_light : 浅灰色的线条和轴(更多关注数据) theme_minimal:无背景注释 theme_classic:具有轴线且没有网格线的主题 theme_void:空主题,对于具有非标准坐标的图或工程图很有用
输入?theme可以看到theme()功能的大量参数,可以实现与外观相关的大多数要求。其中有四种主要类型: element_text():使用element_text()函数设置基于文本的组件,如title,subtitle 和caption等。 element_line():使用element_line()设置基于线的组件,如轴线,主网格线和次网格线等。
theme(panel.grid.major=element_line(size=1.5, linetype =1, color="gray")) kk <- as.data.frame(list(aa=rnorm(1000), bb=rnorm(1000))) plot_1 <- ggplot()+geom_point(data = kk, aes(x=aa, y=bb), stat = "identity", position = "dodge")+theme_bw()+ ggtitle("默认")+theme(...
1、theme_gray() p1<-p+theme_gray()+ggtitle("theme_gray()")+theme(legend.position='none')p1 2、theme_bw() p2<-p+theme_bw()+ggtitle("theme_bw()")+theme(legend.position='none')p2 3、theme_classic() p3<-p+theme_classic()+ggtitle("theme_classic()")+theme(legend.position='none'...