如何在R ggplot2的facet_wrap分面图中为每个分面显示X轴刻度标签

要让facet_wrap生成的每个分面都独立显示X轴刻度标签，只需对原代码做两处关键修改：添加scales = "free_x"参数并调整主题设置，具体如下：

示例数据 #

当前绘制的图表 #

修改后的代码 #

data %>%
  filter(name != "N < 82" & name != "N < 84" & name != "N > 84") %>%
  ggplot(aes(x = name, y = value, fill = tenant)) +
  geom_bar(stat = "identity") +
  scale_y_continuous(name = "Percentage of cells",
                     labels = function(x) paste0(x, '%')) +
  facet_wrap(~tenant, scales = "free_x") +  # 允许各分面使用独立X轴
  theme(
    text = element_text(size = 12), 
    legend.position = "none", 
    legend.title = element_blank(), 
    axis.title.x = element_blank(),
    strip.placement = "outside",  # 分面标题移至X轴标签上方
    axis.text.x = element_text(angle = 45, hjust = 1),  # 旋转标签避免重叠
    panel.spacing = unit(1.5, "lines")  # 增加分面间距提升可读性
  )

修改说明 #

• scales = "free_x"：让每个分面根据自身数据显示对应的X轴类别，同时强制每个分面都渲染X轴刻度标签
• strip.placement = "outside"：避免分面标题与X轴标签重叠，保证布局整洁
• axis.text.x参数：旋转X轴标签并调整对齐方式，解决标签过长导致的重叠问题
• panel.spacing：增大分面之间的间距，让每个分面的X轴标签更清晰易读

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