R语言有人写的一些主题美化包

scale_colour_Publication() 和 theme_Publication() 功能需要加载的包

install.packages("devtools")
library(devtools)
install_github("DavidGarciaCallejas/DGC")

theme_publish() 功能需要加载的包

install.packages("envalysis")
require(envalysis)

example

p <- ggplot(mtcars) + geom_point(aes(x = wt, y = mpg,
     colour=factor(gear))) + facet_wrap( ~ am)

下载.png

美化后

p + theme_publish() + ggsave('theme_publish.png', dpi = 96)    

下载 (1).png

p + scale_colour_Publication() + theme_Publication()

12.png

有兴趣的可以去看这些包的源码，直接自己调自己喜欢的一块