如何在ggplot多柱状图中添加分组信息并调整X轴间距？

需求说明 #

现有一段用ggplot绘制多柱状图的代码，图表已正常生成，需实现两个优化：

1. X轴添加分组信息：Group1包含Food和Music，Group2包含People
2. 调整柱子间距：缩小Food与Music的间距，增大Music与People的间距以区分两组

解决方案 #

步骤1：给数据添加分组信息 #

在原数据处理流程后，给熔接后的data.m数据框新增分组列，同时固定X轴类别的显示顺序：

# 原数据处理代码（保留不变）
raw <- read.csv("http://pastebin.com/raw.php?i=L8cEKcxS",sep=",")
raw[,2]<-factor(raw[,2],levels=c("Very Bad","Bad","Good","Very Good"),ordered=FALSE)
raw[,3]<-factor(raw[,3],levels=c("Very Bad","Bad","Good","Very Good"),ordered=FALSE)
raw[,4]<-factor(raw[,4],levels=c("Very Bad","Bad","Good","Very Good"),ordered=FALSE)
raw=raw[,c(2,3,4)] 
freq=table(col(raw), as.matrix(raw)) # 统计各因子水平的数量
Names=c("Food","Music","People")     
data=data.frame(cbind(freq),Names)   
data=data[,c(5,3,1,2,4)]             
data.m <- melt(data, id.vars='Names')

# 新增：添加分组列并设置类别顺序
data.m$Group <- factor(ifelse(data.m$Names %in% c("Food", "Music"), "Group1", "Group2"),
                       levels = c("Group1", "Group2"))
data.m$Names <- factor(data.m$Names, levels = c("Food", "Music", "People"))

步骤2：自定义X轴位置控制间距 #

给每个X轴类别分配数值位置，通过位置差实现分组内紧凑、分组间宽松的效果：

# 定义X轴位置：Group1内的Food和Music间距小，Group2的People与前一组拉开距离
x_positions <- c(Food = 1, Music = 1.3, People = 2.5)
data.m$x_pos <- x_positions[data.m$Names]

步骤3：绘制带分组标注的柱状图 #

基于自定义X轴位置绘图，并添加分组标题明确区分：

library(ggplot2)

ggplot(data.m, aes(x = x_pos, y = value)) +
  # 绘制柱状图，控制同类别内柱子的间距
  geom_bar(aes(fill = variable), position = position_dodge(width = 0.2), stat = "identity") +
  # 替换X轴刻度为原类别名称
  scale_x_continuous(breaks = x_positions, labels = names(x_positions)) +
  # 添加分组标题（位于X轴下方）
  annotate("text", x = 1.15, y = -3, label = "Group1", size = 4, fontface = "bold") +
  annotate("text", x = 2.5, y = -3, label = "Group2", size = 4, fontface = "bold") +
  # 调整Y轴范围，避免分组标题被截断
  ylim(0, max(data.m$value) + 4) +
  # 设置图表标签
  labs(x = NULL, y = "计数", fill = "评价等级") +
  # 优化主题样式
  theme_classic() +
  theme(axis.text.x = element_text(size = 10),
        legend.position = "top")

方案说明 #

• 手动设置X轴数值位置可灵活控制任意两个类别间的距离，完全满足分组间距需求
• 通过annotate添加分组标题，直观呈现分组逻辑
• position_dodge用于控制同一类别内各柱子的排列间距，保证分组内的柱子紧凑有序

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