如何手动设置重叠条形图的位置与条形宽度？实现嵌套并排的三组条形图布局

我明白你想要实现的效果：每个主类别下有一个宽条形作为背景，内部并排两个较窄的条形，总宽度等于背景条形。你用base R尝试时遇到的宽度和定位问题确实常见，因为barplot的坐标计算相对复杂，下面我给你两种解决方案：base R的改进版，以及更简便的ggplot2方案。

一、Base R 精准定位方案 #

原来的问题在于par(new=T)会重置坐标系统，且width参数是相对值，需要结合条形的实际位置来调整。我们可以先获取第一个系列条形的中心坐标，再以此为基准定位后续的条形：

library(yarrr)

# 定义数据
d1 <- c(1.0, 2.0, 3.0, 4.0, 4.8)
d2 <- c(0.15, 0.5, 1.0, 1.5, 3.3)
d3 <- c(0.16, 0.7, 0.7, 1, 2.5)

# 第一步：绘制背景条形，同时获取每个条形的中心x坐标
bar_centers <- barplot(
  d1,
  ylim = c(0, 5),
  width = 0.8,          # 设置背景条形的相对宽度
  space = 0.2,          # 类别之间的间距
  col = transparent("gray", trans.val = 0.9),
  main = "重叠条形图（Base R）"
)

# 计算内部条形的偏移量：背景宽度0.8，内部两个各占0.35，间距0.1
offset <- 0.225  # (0.8 - 0.35*2)/2 + 0.35/2 = 0.225

# 第二步：绘制d2条形，向左偏移
barplot(
  d2,
  ylim = c(0, 5),
  width = 0.35,
  # 根据背景条形的中心坐标计算space，确保对齐
  space = bar_centers - bar_centers[1] - offset,
  density = 5,
  angle = 45,
  col = "white",
  add = TRUE,  # 使用add=TRUE替代par(new=T)，避免重置坐标
  axes = FALSE
)

# 第三步：绘制d3条形，向右偏移
barplot(
  d3,
  ylim = c(0, 5),
  width = 0.35,
  space = bar_centers - bar_centers[1] + offset,
  density = 15,
  angle = 0,
  col = "black",
  add = TRUE,
  axes = FALSE
)

关键改进点： #

• 用barplot返回的bar_centers获取背景条形的中心位置，以此为基准计算内部条形的偏移量
• 使用add=TRUE替代par(new=T)，避免坐标系统重置，确保所有条形在同一坐标系下
• 手动计算space参数，让内部条形精准对齐到背景条形的左右半区

二、ggplot2 简便实现方案 #

ggplot2处理这类重叠/分组条形图要灵活得多，只需要把数据整理成长格式，就能轻松控制条形的位置和宽度：

library(ggplot2)
library(tidyr)

# 整理数据为长格式（tidy data）
df <- data.frame(
  group = factor(1:5),  # 类别变量
  d1 = c(1.0, 2.0, 3.0, 4.0, 4.8),
  d2 = c(0.15, 0.5, 1.0, 1.5, 3.3),
  d3 = c(0.16, 0.7, 0.7, 1, 2.5)
)

df_long <- df %>% 
  pivot_longer(cols = -group, names_to = "series", values_to = "value")

# 绘制重叠条形图
ggplot(df, aes(x = group)) +
  # 绘制背景条形d1
  geom_bar(
    aes(y = d1, width = 0.8),
    stat = "identity",
    fill = alpha("gray", 0.9)
  ) +
  # 绘制内部的d2和d3条形，设置并排
  geom_bar(
    data = df_long %>% filter(series %in% c("d2", "d3")),
    aes(y = value, fill = series, width = 0.7),
    stat = "identity",
    position = position_dodge(width = 0.7)  # 让内部条形并排，宽度匹配
  ) +
  # 自定义颜色和标签
  scale_fill_manual(
    values = c("d2" = "white", "d3" = "black"),
    labels = c("Series d2", "Series d3")
  ) +
  ylim(0, 5) +
  labs(title = "重叠条形图（ggplot2）", y = "Value") +
  theme_minimal()

优势： #

• 无需手动计算坐标，ggplot2自动处理对齐
• 数据格式更清晰，便于后续修改和扩展
• 样式调整（颜色、标签、主题）更直观

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