如何生成带误差棒且柱状条带边框的正确柱状图？

原代码存在两个核心问题：一是直接用stat="identity"会将每行数据的A值堆叠绘制，并非按类别D统计的均值柱状图；二是未定义sd_A变量，导致误差棒无法正常生成。要实现仅带边框的柱状图，需将柱子填充色设为透明，同时先对数据做分组统计。

完整解决方案代码 #

set.seed(123)
num_rows <- 100
random_dataset <- data.frame(
  A = runif(num_rows),
  B = runif(num_rows),
  C = runif(num_rows),
  D = sample(c("Male", "Female", "Child"), num_rows, replace = TRUE)
)

# 按类别分组计算A的均值与标准差
library(dplyr)
summary_data <- random_dataset %>%
  group_by(D) %>%
  summarise(
    mean_A = mean(A),
    sd_A = sd(A)
  )

# 绘制带误差棒的空心柱状图
library(ggplot2)
ggplot(summary_data, aes(x = D, y = mean_A)) +
  # 仅保留边框的空心柱子：填充色设为透明，指定边框颜色与粗细
  geom_bar(stat = "identity", fill = "transparent", color = "black", size = 1) +
  # 添加误差棒
  geom_errorbar(
    aes(ymin = mean_A - sd_A, ymax = mean_A + sd_A),
    width = 0.2,
    color = "black"
  ) +
  labs(
    title = "带误差棒的空心柱状图",
    y = "A列均值",
    x = "类别D"
  ) +
  theme_classic()

关键参数说明 #

• fill = "transparent"：将柱子内部填充色设为透明，仅显示边框
• color = "black"：设置边框颜色，size参数可调整边框的粗细
• 先通过dplyr分组统计：确保柱状图展示的是每个类别下A的均值，而非原始数据的堆叠效果

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