ggplot 分面的细节调整汇总

简介

小编前段时间介绍了 ggplot2 分面问题：R可视乎|分面一页多图。以及很多书籍都介绍了如何使用 ggplot2 的分面，如：《ggplot2: Elegant Graphics for Data Analysis》，《R语言教程》。

但是绘制之后的细节调整，几乎都没有介绍过。小编在学习的过程中，将一些细节调整技巧进行了整理，以供参考。并分享给大家，希望能帮到你～

本文框架

教程

本文通过模拟数据来举例，读者可以根据数据形式，加载自己的数据集，并进行相应的数据处理。

生成数据

# 导入包
library(ggplot2)

set.seed(1)
dat = data.frame("time" = rep(2013:2019,6),
                 "method" = rep(LETTERS[1:6],each = 7),
                 "value" = rnorm(7*6,5,1),
                 "upper" = rnorm(7*6,5,1) + abs(rnorm(7*6,2,0.1)),
                 "lower" = rnorm(7*6,5,1) - abs(rnorm(7*6,2,0.1))
)
head(dat)
1
2
3
4
5
6
7
8
9
10
11

基础版本绘图

cols <- c("#85BA8F", "#A3C8DC","#349839","#EA5D2D","#EABB77","#F09594") #设置颜色

p = ggplot(dat,aes(x = time, y = value,fill = method)) +                                                       
  geom_line(aes(color = method)) + #添加线
  geom_point(aes(color = method)) + #添加散点
  geom_ribbon(aes(ymin=lower, ymax=upper), alpha=0.3) + #添加区间
  scale_x_continuous(breaks = 2013:2019) +
  facet_wrap(vars(method),nrow = 4) + 
  theme_bw() + ylab("Value") + xlab("Time") + #主题设置
  theme(panel.grid = element_blank())
p
1
2
3
4
5
6
7
8
9
10
11

刻度尺修改

默认情况下，x、y 轴刻度是固定的，即，scales = "fixed"。具体可以参考：https://ggplot2-book.org/facet.html。

x 轴

利用参数 scales = "free_x"，修改 x 轴刻度尺。

p + facet_wrap(vars(method),nrow = 4,scales = "free_x")
1

y 轴

利用参数 scales = free_y，修改 y 轴刻度尺。

p + facet_wrap(vars(method),nrow = 4,scales = "free_y")
1

双轴

利用参数 scales = free，修改 x 和 y 轴刻度尺。

p + facet_wrap(vars(method),nrow = 4,scales = "free")
1

[外链图片转存失败,源站可能有防盗链机制,建议将图片保存下来直接上传(img-q8BdFXbf-1656937310384)(https://files.mdnice.com/user/5000/9d1e15c9-ebc3-43b2-a892-43a1229eb0b5.png)]

标题框调整

这一部分都是在 theme() 中进行调整。具体可以参考：https://ggplot2-book.org/polishing.html。

位置调整

修改 strip.position 进行位置调整。

p + facet_wrap(vars(method),nrow = 3,strip.position = "left")
1

去除标题框背景

利用 strip.background = element_blank() 去除标题框背景。

p + theme(
        strip.background = element_blank() #去除标题框背景
  )
1
2
3

修改标题框背景颜色

利用 strip.background = element_rect() 修改标题框背景颜色。

p + theme(strip.background=element_rect(colour="black",
                                      fill="#2072A8"))
1
2

修改标题框文字颜色

利用 strip.text.x=element_text() 修改标题框文字颜色。

p +  theme(strip.text.x=element_text(colour="white"))
1

删除标题框

利用 strip.text.x = element_blank() 删除标题框。

p +  theme(strip.text.x = element_blank())
1

小编有话说

如果觉得有帮助的话，欢迎点赞，分享～