简介

上一期我们讲解了如何使用谢益辉写的xaringan包^[1]制作幻灯片，推文在这：R沟通｜用xaringan包制作幻灯片。但是最后留了一个小尾巴，如果你不喜欢最原始版本的主题的话。你可以把内部的css进行设置，这时你得需要一些javascript的知识。

但是对于统计专业的我，以及其他非计算机专业的读者而言，入门门槛还是有的。感兴趣的可以看看这本书：JavaScript for R^[2]。

本教程主要对于刚刚入门R文本沟通的小伙伴，咱们现在先学会如何更改现有的主题就可以了，其他以后再慢慢研究。

使用教程

gadenbuie写了一个叫做xaringanthemer^[3]的包，可以更改写轮眼的主题，使用起来也非常方便，接下来看教程。

觉得本文有用的，记得一键三连呀，哈哈

1.安装

可以从CRAN安装xaringanthemer包

install.packages("xaringanthemer")

也可以通过Github安装

# install.packages("remotes")
remotes::install_github("gadenbuie/xaringanthemer")

再次推荐： 除非你是六指琴魔，否则我建议安装 RStudio 编辑器，它会让你做幻灯片做得飞起。以下为我整理关于Rstudio的入门使用教程

• RStudio界面介绍（可跳转）
  
• RStudio的快捷键（可跳转）
  

2.快速入门

这里不做过多介绍了，可以参考R沟通｜用xaringan包制作幻灯片，已经给出很详细介绍了。

1. 创建完新文档后，我们将xaringan-themer.css文件添加到xaringan幻灯片的YAML中。

output:
  xaringan::moon_reader:
    css: xaringan-themer.css

例子：YAML

2. 然后，在程序块中加载xaringanthemer并设置主题^[4]。

注意：隐藏代码（在chunck中设置include=FALSE, warning=FALSE），例如

library(xaringanthemer)
style_mono_accent(
  base_color = "#1c5253",
  header_font_google = google_font("Josefin Sans"),
  text_font_google   = google_font("Montserrat", "300", "300i"),
  code_font_google   = google_font("Fira Mono")
)

小编界面

主题设置后的界面

使用技巧

1.匹配ggplot主题

xaringanthemer甚至提供带有theme_xaringan（）的ggplot2主题，可以直接使用幻灯片主题中的颜色和字体。建立在showtext^[5]包的基础上，旨在与Google字体无缝协作。

还提供了颜色和填充比例，用于根据幻灯片中使用的原色匹配顺序的颜色比例。有关更多详细信息，请参见？scale_xaringan。

更多细节和示例可以在vignette(“ggplot2-themes”)中找到。

library(ggplot2)
ggplot(diamonds) +
  aes(cut, fill = cut) +
  geom_bar(show.legend = FALSE) +
  labs(
    x = "Cut",
    y = "Count",
    title = "A Fancy diamonds Plot"
  ) +
  theme_xaringan(background_color = "#FFFFFF") +
  scale_xaringan_fill_discrete()

该主题下的条形图配色

2.自补全功能

xaringanthemer对Tab键十分友好，该功能可以在查找每个主题中调整模板的函数！

使用Tab键

在RStudio中打开该模板

你也可以跳过上述内容，仅从RStudio中的“新建Rmarkdwon文档”菜单创建一个“Ninja Themed Presentation”。

其他主题设置

对于前面给字体，颜色啥进行单独设置之外，更加“懒”的方法就是：使用下面这下函数可以产生各种系列的幻灯片。

你可以根据以下，选择自己想要的主题，在yaml之后加入以下代码，就会得到相应的模板了！

style_mono_light()

library(xaringanthemer)
style_mono_light(base_color = "#23395b")

style_mono_dark()

library(xaringanthemer)
style_mono_dark(base_color = "#cbf7ed")

style_mono_accent()

library(xaringanthemer)
style_mono_accent(base_color = "#43418A")

style_mono_accent_inverse()

library(xaringanthemer)
style_mono_accent(base_color = "#43418A")

style_duo()

library(xaringanthemer)
style_duo(primary_color = "#1F4257", secondary_color = "#F97B64")

style_solarized_light()

library(xaringanthemer)
style_solarized_light()

style_solarized_dark()

library(xaringanthemer)
style_solarized_dark()

小编案例

最近在写年度总结，正好用了写轮眼，效果还是很不错的，只怪今年学术成果没啥东西，汇报页面数惨不忍睹。