R可视化——基于ggplot2包绘图的模板主题样式汇总

绘制基本散点图

rm(list = ls())#加载R包library(ggplot2)
#数据——以R自带示例数据iris为例df<-iris
#绘制基本散点图p<-ggplot(df) + geom_point(aes(x = Sepal.Length, y = Sepal.Width, alpha= Petal.Length , color = Species, size = Petal.Width))p

ggplot2默认主题

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')p3

4、theme_light()

p4<-p+theme_light()+ggtitle("theme_light()")+ theme(legend.position = 'none')p4

5、theme_void()

p5<-p+theme_void()+ggtitle("theme_void()")+ theme(legend.position = 'none')p5

6、theme_linedraw()

p6<-p+theme_linedraw()+ggtitle("theme_linedraw()")+ theme(legend.position = 'none')p6

7、theme_minimal()

p7<-p+theme_minimal()+ggtitle("theme_minimal()")+ theme(legend.position = 'none')p7

8、theme_dark()

p8<-p+theme_dark()+ggtitle("theme_dark()")+ theme(legend.position = 'none')p8

cowplot::plot_grid(p1,p2,p3,p4,p5,p6,p7,p8,ncol = 4)

ggthemes拓展主题

#加载包library(ggthemes)

1、theme_clean()

p+theme_clean()

2、theme_calc()

p+theme_calc()

3、theme_economist()

p+theme_economist()

4、theme_igray()

p+theme_igray()

5、theme_fivethirtyeight()

p+theme_fivethirtyeight()

6、theme_pander()

p+theme_pander()

7、theme_foundation()

p+theme_foundation()

8、theme_base()

p+theme_base()

9、theme_par()

p+theme_par()

10、theme_gdocs()

p+theme_gdocs()

11、theme_map()

p+theme_map()

12、theme_few()

p+theme_few()

13、theme_tufte()

p+theme_tufte()

14、theme_stata()

p+theme_stata()

15、theme_excel()

p+theme_excel()

16、theme_wsj()

p+theme_wsj()

17、theme_hc()

p+theme_hc()

18、theme_solid()

p+theme_solid()

19、theme_solarized()

p+theme_solarized()

ggprism包拓展主题

ggprism包绘制GraphPad prism主题样式图形：

#加载包library(ggprism)names(ggprism_data$themes)#44种主题样式名称,通过替换名称可实现更换主题风格目的

示例：

p+theme_prism(palette = "autumn_leaves")

p+theme_prism(palette = "pearl")

p+theme_prism(palette = "summer")

p+theme_prism(palette = "spring")

p+theme_prism(palette = "ocean")

BBC风格---bbplot

#安装包devtools::install_github('bbc/bbplot')#加载包library(bbplot)#使用方式p+bbc_style()

具体细节可参见文章：https://www.jianshu.com/p/c1436793ad67

ggthemr包配置主题

#安装包devtools::install_github('Mikata-Project/ggthemr')#加载包library(ggthemr)

使用方式：先通过ggthemr()函数设置主题，然后绘制图形即可：

1、flat

ggthemr("flat")p

2、flat dark

ggthemr("flat dark")p

3、solarized

ggthemr("solarized")p

4、camouflage

ggthemr('camouflage')p

5、chalk

ggthemr('chalk')p

6、copper

ggthemr('copper')p

7、dust

ggthemr('dust')p

8、earth

ggthemr('earth')p

9、fresh

ggthemr('fresh')p

10、grape

ggthemr('grape')p

11、grass

ggthemr('grass')p

12、greyscale

ggthemr('greyscale')p

13、light

ggthemr('light')p

14、lilac

ggthemr('lilac')p

15、pale

ggthemr('pale')p

16、sea

ggthemr('sea')p

17、sky

ggthemr('sky')p

自定义主题

通过theme()函数中不同参数自定义属于自己风格的主题，具体可参照此文章：https://www.jianshu.com/p/6cc0c17e30ce

base_theme <- theme( plot.margin = unit(rep(1, 4), "cm"), plot.title = element_text(size = 24, face = "bold", color = "#22292F", margin = margin(b = 8)), plot.subtitle = element_text(size = 16, lineheight = 1.1, color = "#22292F", margin = margin(b = 25)), plot.caption = element_text(size = 12, margin = margin(t = 25), color = "#3D4852"), axis.title.x = element_text(margin = margin(t = 15)), axis.title.y = element_text(margin = margin(r = 15)), axis.text = element_text(color = "#22292F")) #封装函数set_base_theme <- function() { theme_set(theme_minimal(base_size = 18) + base_theme)}
p+set_base_theme()#调用函数

我就知道你“在看”