如何使用R制作前3个绘图堆叠的条形图？

library(ggplot2)

# 创建数据框
data <- data.frame(
  category = c("Category 1", "Category 2", "Category 3"),
  value1 = c(10, 20, 30),
  value2 = c(15, 25, 35),
  value3 = c(5, 15, 25)
)

# 绘制堆叠条形图
ggplot(data, aes(x = category)) +
  geom_bar(aes(y = value1, fill = "Value 1"), stat = "identity") +
  geom_bar(aes(y = value2, fill = "Value 2"), stat = "identity") +
  geom_bar(aes(y = value3, fill = "Value 3"), stat = "identity") +
  scale_fill_manual(values = c("Value 1" = "red", "Value 2" = "blue", "Value 3" = "green")) +
  labs(title = "Stacked Bar Chart", x = "Category", y = "Value") +
  theme_minimal()