如何将groupwise错误条放在ggplot中堆叠条形图/动态条形图的正确位置？

library(ggplot2)
library(dplyr)

# 准备数据集
data <- data.frame(
  category = c("A", "A", "B", "B", "C", "C"),
  group = c("X", "Y", "X", "Y", "X", "Y"),
  value = c(10, 15, 12, 18, 8, 10),
  error = c(1, 2, 1.5, 2.5, 0.5, 1)
)

# 分组和计算错误条位置
data_grouped <- data %>% 
  group_by(category) %>% 
  mutate(
    ymin = value - error,
    ymax = value + error
  )

# 创建图形对象并绘制堆叠条形图和错误条
plot <- ggplot(data_grouped, aes(x = category, y = value, fill = group)) +
  geom_bar(stat = "identity") +
  geom_errorbar(aes(ymin = ymin, ymax = ymax), width = 0.2) +
  theme_minimal()

# 打印图形对象
print(plot)