如何将x轴过长的ggplot2图表拆分为两行？

要把长x轴拆成两行，用facet_wrap是可行的，核心是先给你的Drug变量分组，再让每个面板显示一组药物，具体操作如下：

1. 给数据添加分组变量
   先按药物顺序把它们分成2组，比如假设你有N种药物，平均分配到两行：

   # 获取唯一的药物列表，保留原有顺序
   unique_drugs <- unique(side_effects$Drug)
   # 给每个药物分配组号（分成2行）
   group_assign <- rep(1:2, length.out = length(unique_drugs))
   # 把分组信息合并回原数据
   side_effects$drug_group <- factor(group_assign, labels = c("Group 1", "Group 2"))
   

2. 修改ggplot代码，加入facet_wrap
   在原有代码基础上添加facet_wrap，并调整参数优化布局：

   valXdodge = 0.7
   ggplot(data = side_effects, aes(x = Drug, y=Middle, colour = System, group = System)) +
     geom_point(position = position_dodge2(width = valXdodge), size=2, alpha=0.5) +
     geom_linerange(aes(ymin = Min, ymax = Max), lwd=2.5, alpha=0.5, 
                    position = position_dodge(width = valXdodge)) +
     ylab("Incidence") +
     # 核心：用facet_wrap拆分图表
     facet_wrap(~drug_group, nrow = 2, scales = "free_x", strip.position = "bottom") +
     theme_minimal() +
     theme(
       axis.text.x = element_text(size=10),
       strip.background = element_blank(),
       strip.placement = "outside",
       panel.spacing = unit(0.5, "lines") # 调整面板间距，避免太拥挤
     )
   

关键参数说明 #

• nrow = 2：强制将图表拆分为两行
• scales = "free_x"：每个面板仅显示当前组的药物，避免x轴内容拥挤
• strip.position = "bottom"：把分组标签放在x轴上方，更贴近传统拆分x轴的视觉效果

如果你的药物数量是奇数，分组会自动调整（比如5种药物的话，第一行3个、第二行2个），保证布局均匀。

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