R语言包ggplot实现分面去掉小标题的灰色底色小技巧

186 阅读 0 评论 123 点赞

我是靠谱客的博主落寞大地，最近开发中收集的这篇文章主要介绍R语言包ggplot实现分面去掉小标题的灰色底色小技巧，觉得挺不错的，现在分享给大家，希望可以做个参考。

概述

当我们在使用 ggplot 时，使用分面通常会长下面这样（这里用 ggplot 的官方案例）：

p <- ggplot(mpg, aes(displ, hwy)) + geom_point()
p + facet_wrap(~class)

此时，我们想将背景的灰色底色去掉，可以用我们常用的 theme_bw()：

p + facet_wrap(~class) + theme_bw()

此时如果背景的灰色网格不想要了，可以接着添加 theme(panel.grid = element_blank())：

p + facet_wrap(~class) + theme_bw() +
  theme(panel.grid = element_blank())

但此时我们是想纯白的背景，子标题中的灰色背景与标题边框也不需要了，此时可以在 theme() 函数中添加 element_rect()，内部的参数 color = "white" 表示子标题的周围边框变为白色；fill = "white" 表示子标题的灰色背景变为白色：

p + facet_wrap(~class) + theme_bw() +
  theme(
    strip.background = element_rect(
      color = "white", fill = "white"),
    panel.grid = element_blank())

这样看起来还是挺丑的，如果把每个画幅的一圈黑色边框去掉就更好了，此时可以添加 panel.border = element_blank()：

p + facet_wrap(~class) + theme_bw() +
  theme(
    strip.background = element_rect(
      color = "white", fill = "white"),
    panel.grid = element_blank(),
    panel.border = element_blank())