如何将总计的标签包含到已在堆栈中具有数据值的geom_bar堆叠图

library(ggplot2)

# 创建示例数据
data <- data.frame(
  category = c("A", "A", "B", "B"),
  subcategory = c("X", "Y", "X", "Y"),
  value = c(10, 20, 30, 40)
)

# 计算每个组合的总计值
total <- aggregate(value ~ category, data = data, FUN = sum)

# 将总计值添加到数据中
data <- rbind(data, data.frame(category = total$category, subcategory = "Total", value = total$value))

# 创建堆叠图
ggplot(data, aes(x = category, y = value, fill = subcategory)) +
  geom_bar(stat = "identity") +
  scale_fill_manual(values = c("X" = "blue", "Y" = "red", "Total" = "green")) +
  labs(fill = "Subcategory") +
  theme_minimal()