如何在R的ggplot2中为分组柱状图添加分类间竖线与间距

我来帮你搞定这个需求！要在不同主分类（比如Cat 3和Cat 4）之间添加竖线，同时单独调整这些组的间距，我们需要换个思路——因为直接用position_dodge或者网格线参数没法实现这种精细控制，得把x轴转换成数值来手动操作。下面是具体的解决方案：

步骤1：预处理数据，自定义x轴位置 #

首先我们给每个主分类分配数值型的x位置，在需要加大间距的组（比如Cat3和Cat4）之间留出额外空间：

# 加载dplyr用于数据处理（如果没装先执行install.packages("dplyr")）
library(dplyr)

data <- categories.df %>%
  mutate(
    # 给每个主分类设置自定义x位置，Cat3和Cat4之间额外加间距
    x_pos = case_when(
      Name == "Cat 1" ~ 1,
      Name == "Cat 2" ~ 2,
      Name == "Cat 3" ~ 3,
      Name == "Cat 4" ~ 4.5,  # 比前一个位置多1.5，创造额外间距
      Name == "Cat 5" ~ 5.5
    ),
    # 确保SC_Class的层级和原来一致
    SC_Class = factor(SC_Class, levels = c("Class 1", "Class 2", "Class 3", "Class 4", "Class 5"))
  )

步骤2：绘制带竖线和自定义间距的柱状图 #

接下来用转换后的数值x轴绘制图表，同时添加竖线：

library(ggplot2)

ggplot(data, aes(x = x_pos, y = Count, fill = SC_Class)) +
  # 绘制分组柱状图，调整dodge宽度和柱子宽度避免重叠
  geom_bar(stat = "identity", position = position_dodge(width = 0.8), width = 0.7) +
  # 在主分类之间添加竖线，xintercept是两组x位置的中间值
  geom_vline(
    xintercept = c(1.5, 2.5, 3.75, 5), 
    linetype = "solid", 
    color = "gray50", 
    size = 1
  ) +
  # 保留你原来的填充色设置
  scale_fill_manual(values = c("#6C8EBF", "red", "#74767a", "orange","purple")) +
  # 把数值x轴转换回原来的分类标签
  scale_x_continuous(
    breaks = c(1, 2, 3, 4.5, 5.5),
    labels = c("Cat 1", "Cat 2", "Cat 3", "Cat 4", "Cat 5")
  ) +
  # 保留你原来的标签设置
  labs(fill = "", x = "Category", y = "Count") +
  ylim(0, 25) +
  # 调整主题，去掉原来的x网格线（我们用自定义竖线代替）
  theme(
    legend.position = c(1,1), 
    legend.justification = c(1,1), 
    axis.text.x = element_text(face = "bold", size=14), 
    axis.text.y = element_text(face = "bold", size=14), 
    axis.title.x = element_text(colour = "#6C8EBF", face = "bold", size =16), 
    axis.title.y = element_text(colour = "#6C8EBF", face = "bold", size =16), 
    panel.grid.major.y = element_line(size = 1, colour="#DAE8FC"), 
    panel.grid.minor.y = element_line(colour="#DAE8FC"), 
    panel.grid.major.x = element_blank(), 
    panel.grid.minor.x = element_blank(),
    plot.background = element_blank(), 
    panel.background = element_blank(), 
    panel.border = element_blank(), 
    legend.text = element_text(size=12, face="bold")
  )

关键细节解释 #

1. 自定义x轴位置：通过case_when给每个主分类设置数值，我们可以灵活控制任意两组之间的间距（比如Cat3到Cat4的间距比其他组大）。
2. 添加竖线：geom_vline的xintercept参数设置为两组x位置的中间值，比如Cat3（3）和Cat4（4.5）的中间是3.75，这样竖线正好落在两组之间。
3. 避免柱子重叠：position_dodge(width=0.8)和width=0.7的搭配，确保每个主分类内的柱子并排且不重叠，数值可以根据你的需求微调。
4. 为什么原来的网格线方法不行：panel.grid.major.x是基于分类轴的刻度生成的，只能在每个分类的位置画网格，没法在分类之间单独添加线条，转换成数值轴后就能精确控制竖线位置了。

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