打造属于自己的主题 | R

ggplot2出的图默认文字大小不符合文章默认要求（坐标轴标签>=6pt, 坐标轴标题>=12pt, 一般还需要加粗），每次都加上很多的主题参数，实在不简洁

1. ggthemr Installation

#R版本信息
> sessionInfo()
R version 3.6.0 (2019-04-26)
Platform: x86_64-w64-mingw32/x64 (64-bit)
Running under: Windows 10 x64 (build 18363)
#方法1，能不能装上看脸，反正我是没装上
devtools::install_github('Mikata-Project/ggthemr')
#方法2，下载源码，手动安装，3.6和4.0均成功
https://github.com/Mikata-Project/ggthemr/archive/v1.1.0.tar.gz

2. 编写自己的主题

my_theme <- function() {
    library(ggplot2)
    library(ggthemr)
    theme_set(theme_classic() +
                  theme(axis.text = element_text(size = 8, face = "bold"), #坐标轴标签大小，加粗
                        axis.title = element_text(size = 12, face = "bold"), #坐标轴标题大小，加粗
                        plot.margin = unit(rep(1, 4), "cm"), #边距，顺序：上右下左
                        panel.grid = element_blank())) #不要横向和纵向格子线
}

3. 启动自加载函数，实现自由调用
   把2中的code存为一个文件，如myTheme.R (文件名：小驼峰式命名习惯) >> 放到你喜欢的地方，如C:/Program Files/R/R-3.6.0/library/myTheme.R >> 找到R安装目录下（我的在C:\Program Files\R\R-3.6.0\etc）的 Rprofile.site文件 >> 最下方加入

.First <- function(){
    source("C:/Program Files/R/R-3.6.0/library/myTheme.R") 
    cat("\nWelcome at",date(),"\n")
}

4. 画图前运行my_theme()函数

> library(ggplot2)
Warning message:
程辑包‘ggplot2’是用R版本3.6.3 来建造的 
> p1 <- ggplot(mtcars) + geom_point(aes(x = cyl, y = mpg)) #默认主题出图
> my_theme()
> p2 <- ggplot(mtcars) + geom_point(aes(x = cyl, y = mpg)) #自己主题出图
>p3 <-  ggplot(mtcars) + geom_point(aes(x = cyl, y = mpg)) +labs(x = "Change whatever you want") #当然还可以修改你想要修改的地方，如坐标轴标题
> p4 <- ggplot(mtcars) + geom_point(aes(x = cyl, y = mpg)) +labs(x = "Change whatever you want") + theme(axis.title = element_text(colour = "red")) #甚至还可以覆盖之前的设置

p1
p2 p3 p4

5. 重置 ggthemr_reset()
   这个函数好像有点问题，并不能返回到默认的ggplot2主题，向作者提交issue了
   可替代的方案就是重启R，很蠢，但我确实不知道怎么实现