如何让ggplot2分面标签呈现为X轴标签样式

针对你遇到的三个问题，通过调整facet_grid参数和theme设置即可解决，无需放弃分面方案，具体代码和说明如下：

1. 模拟数据（匹配语料库结构） #

先构造一份与你的数据结构一致的模拟数据，方便复现和测试：

library(ggplot2)

set.seed(123)
df <- expand.grid(
  rating = c("Beginner", "Intermediate", "Advanced"),  # 语言熟练度等级
  type1 = c("Correct", "Incorrect")                   # 词汇使用正确/错误类型
)
df$frequency <- sample(10:50, nrow(df), replace = TRUE)  # 频率数据

2. 修正后的绘图代码 #

ggplot(df, aes(x = type1, y = frequency, fill = type1)) +
  geom_col(position = "dodge") +
  # 核心：将分面标签移至X轴下方，避免遮挡；同时保留分面逻辑
  facet_grid(. ~ rating, switch = "x") +
  labs(x = "词汇使用类型", y = "频率") +
  theme_bw() +
  theme(
    # 移除分面标签下方的默认横线，匹配项目统一风格
    strip.background = element_blank(),
    # 调整分面标签与X轴的间距，避免拥挤
    strip.text.x = element_text(margin = margin(b = 10)),
    # 绘制连续的X轴线，替代中断的geom_hline
    axis.line.x = element_line(color = "black"),
    # 可选：移除分面间空隙，让X轴视觉上更连贯
    panel.spacing.x = unit(0, "cm"),
    # 可选：移除分面边框，进一步统一风格
    panel.border = element_blank(),
    # 可选：移除X轴方向的网格线，简化视觉效果
    panel.grid.major.x = element_blank(),
    panel.grid.minor.x = element_blank()
  )

关键调整说明 #

• 解决分面标签遮挡X轴：使用facet_grid的switch = "x"参数，将列分面的标签从子图上方移至X轴下方，彻底避免遮挡。如果需要保留标签在上方，可仅调整strip.text.x的margin参数（如margin(t = 10, b = 10)），同时给X轴文本增加上间距axis.text.x = element_text(margin = margin(t = 5))。
• 移除分面标签下的横线：通过strip.background = element_blank()删除分面标签的默认背景边框，直接去掉多余横线。
• 实现X轴线连续：用axis.line.x = element_line()绘制全局连续的X轴线，替代之前用geom_hline添加的分面内中断线，保证轴线完整连贯。

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