ggplot2主题配置神器：ggthemr

1. ggthemr简介

ggthemr包提供了将近20宽完善的配色和主题风格模板。每一个模板都拥有完善的标度和主题设定（包括离散标度和连续标度、填充颜色和线条颜色），有助于快速简便的完全更改ggplot2图形的外观。
ggthemr做了一个初始化函数，当初始化函数设定主题方案以后，之后的图表不需要重复更改主题就会默认使用ggthemr的主题。这是因为初始化主题的时候，该主题就已经替换到了ggplot使用的默认标度和主题方案，极大提升作图效率。

ggthemr安装

devtools::install_github('Mikata-Project/ggthemr')

可用的全部风格：

ggthemr('flat')
ggthemr('flat dark')
ggthemr('camouflage')
ggthemr('chalk')
ggthemr('copper')
ggthemr('dust')
ggthemr('earth')
ggthemr('fresh')
ggthemr('grape')
ggthemr('grass')
ggthemr('greyscale')
ggthemr('light')
ggthemr('lilac')
ggthemr('pale')
ggthemr('sea')
ggthemr('sky')
ggthemr('solarized')

2. 使用

使用ggplot2默认绘图风格绘制一张点图和一张盒形图

libeary(ggthemr)
libeary(patchwork)
point_plot <- ggplot(iris, aes(x=jitter(Sepal.Width), y=jitter(Sepal.Length), col=Species)) + 
  geom_point() + 
  labs(x="Sepal Width (cm)", y="Sepal Length (cm)", col="Species", title="Iris Dataset") 
bar_plot <- ggplot(iris, aes(x=Species, y=Sepal.Width, fill=Species)) + 
 geom_bar(stat="summary", fun.y="mean") + 
 labs(x="Species", y="Mean Sepal Width (cm)", fill="Species", title="Iris Dataset")
point_plot|bar_plot 

使用ggthemr()更改主题（已经绘制好的图全部自动更改为ggthemr设置的风格，非常方便）

ggthemr('dust') #使用dust主题
point_plot|bar_plot  #查看刚刚绘制的两张图，风格以及改变

简介中列出的所有风格都可以通过这种简单的方法来设置和使用

ggthemr('flat') #使用flat主题
point_plot|bar_plot 

如果想恢复ggplot2默认绘图风格，使用ggthemr_reset()

ggthemr_reset() #恢复默认

3. 自定义风格

使用define_palette()可以设置自己的主题风格，设置的风格可以和上面的例子一样通过ggthemr()使用。

#示例
# Random colours that aren't white.
set.seed(12345)
random_colours <- sample(colors()[-c(1, 253, 361)], 10L)

ugly <- define_palette(
  swatch = random_colours,
  gradient = c(lower = random_colours[1L], upper = random_colours[2L])
)

ggthemr(ugly)
example_plot + ggtitle(':(')

参考：https://github.com/Mikata-Project/ggthemr#copper