你提到的场景很常见——当已经提前计算好箱线图的分位数值，想通过额外的列（比如w1/w2）来控制每个箱线的宽度，模拟base R中boxplot(varwidth=TRUE)的自定义效果，而且发现stat="identity"时weight参数不起作用，确实这个参数在该模式下是用来计算统计量的，不是控制图形宽度的。

下面是具体的实现方法：

基础代码回顾 #

先确认你的初始数据和基础箱线图：

df = data.frame(a = c(0, 0), b = c(17, 15), c = c(35,37), d = c(55,57), e = c(80, 85), x = c(1, 2), w1 = c(20, 30), w2 = c(0.2, 0.3))

# 默认宽度的箱线图
ggplot(df) + 
  geom_boxplot(aes(x = x, ymin = a, lower = b, middle = c, upper = d, ymax = e), 
               stat = "identity")

用w1/w2自定义箱线宽度 #

在geom_boxplot的aes映射中直接加入width参数，关联到你的w1或w2列即可。如果数值范围不合适，可以用scale_width_continuous调整缩放比例：

示例1：用w1控制宽度

ggplot(df) + 
  geom_boxplot(
    aes(x = x, ymin = a, lower = b, middle = c, upper = d, ymax = e, width = w1), 
    stat = "identity"
  ) +
  scale_width_continuous(range = c(0.3, 0.8))  # 调整宽度的显示范围，避免过宽/过窄

示例2：用w2控制宽度

因为w2的数值更小，需要对应调整range参数：

ggplot(df) + 
  geom_boxplot(
    aes(x = x, ymin = a, lower = b, middle = c, upper = d, ymax = e, width = w2), 
    stat = "identity"
  ) +
  scale_width_continuous(range = c(0.2, 0.6))

模拟varwidth=TRUE的效果 #

如果你想完全复刻base R中varwidth=TRUE（宽度与组内样本量的平方根成正比）的效果，只需要对权重列做平方根转换后再映射：

# 假设w1是组内样本量
ggplot(df) + 
  geom_boxplot(
    aes(x = x, ymin = a, lower = b, middle = c, upper = d, ymax = e, width = sqrt(w1)), 
    stat = "identity"
  ) +
  scale_width_continuous(range = c(0.3, 0.8))

关键注意点 #

• stat="identity"模式下，weight参数仅用于计算统计量（比如当你没有提前计算分位时），不会影响图形宽度，所以直接映射width是正确的做法。
• scale_width_continuous的range可以根据你的数据灵活调整，确保箱线图之间不会重叠，同时视觉效果合理。

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