ggplot2如何在x轴刻度下方加垂直线并交替分面背景色

需求说明 #

• x轴相邻刻度标签的下方位置添加分隔垂直线
• 分面背景按灰/白交替填充，奇数分面为灰色、偶数分面为白色

原代码问题定位 #

1. 分面填充逻辑错误：原代码使用未定义的hue字段控制填充，且用全量数据集绘制背景导致重复渲染
2. 垂直线坐标逻辑错误：原代码使用全画布NPC坐标定位垂直线，而非分面内的相对坐标，导致线的位置完全偏离预期

实现思路 #

1. 预处理数据：给每个唯一的Attribute分配序号，通过序号奇偶性生成对应分面的填充色
2. 生成分隔线数据集：按每个分面的Level数量，计算相邻刻度的中间位置作为垂直线的x坐标
3. 绘图时优先渲染背景层，再添加原有业务图层，最后绘制坐标轴外的分隔垂直线，关闭裁剪避免线条被截断

完整实现代码 #

首先加载依赖包：

library(tidyverse)
library(grid)

数据预处理：

# 生成Attribute序号与分面填充色
attr_levels <- unique(DCE$Attribute)
DCE <- DCE %>%
  mutate(
    attr_id = match(Attribute, attr_levels),
    panel_fill = ifelse(attr_id %% 2 == 1, "grey90", "white")
  )

# 生成每个分面的刻度间垂直线位置
vline_data <- DCE %>%
  group_by(Attribute) %>%
  summarise(
    level_cnt = n_distinct(Level),
    x_intercept = list(seq(1.5, level_cnt - 0.5, by = 1))
  ) %>%
  unnest(x_intercept)

绘图代码：

K <- ggplot(DCE, aes(x = Level, y = Marginal)) +
  # 分面交替背景层
  geom_rect(data = distinct(DCE, Attribute, panel_fill),
            aes(fill = panel_fill),
            xmin = -Inf, xmax = Inf, ymin = -Inf, ymax = Inf,
            inherit.aes = FALSE, alpha = 0.5) +
  # 原有业务图层
  geom_point(size = 3) +
  geom_line(aes(group = Attribute), size = 1) +
  geom_errorbar(aes(ymin = marginLow, ymax = MarginHigh), 
                width = 0.2, size = 0.8, position = position_dodge(0.05)) +
  geom_hline(yintercept = 0, color = "#5E5E5E", size = 0.5) +
  # x轴刻度间垂直线
  geom_segment(data = vline_data,
               aes(x = x_intercept, xend = x_intercept,
                   y = -0.18, yend = -0.3),
               color = "red", size = 1,
               inherit.aes = FALSE) +
  # 分面配置
  facet_grid(.~Attribute, scales = "free", switch = "x") +
  # 主题配置
  theme_bw() +
  theme(
    panel.spacing = unit(0, "pt"),
    axis.text.x = element_text(angle = 90, hjust = 0.95, vjust = 0.2),
    strip.background = element_rect(fill = "white", colour = "white", size = 1),
    strip.text = element_text(colour = "black", size = 10, face = "bold"),
    strip.placement = "outside",
    axis.title.x = element_text(margin = margin(60, 0, 0, 0)),
    plot.margin = unit(c(5,5,30,5), "pt")
  ) +
  labs(x = "", y = "Average marginal effects ") +
  scale_fill_identity() +
  coord_cartesian(clip = "off")

K

参数调整说明 #

• 若垂直线位置不合适，可修改geom_segment中y和yend的数值，调整线的上下位置与长度
• 若灰色背景深浅不符合预期，可将grey90替换为grey80等其他灰度值
• 若垂直线被底部截断，可增大plot.margin中第四个参数的数值

内容的提问来源于stack exchange，提问作者Karima21