使用ggplot2仅填充堆叠图中的底部堆栈

install.packages("ggplot2")

library(ggplot2)

# 创建示例数据框
df <- data.frame(
  category = c("A", "B", "C", "D"),
  value1 = c(10, 20, 30, 40),
  value2 = c(20, 30, 40, 50),
  value3 = c(30, 40, 50, 60)
)

# 创建填充堆叠图
ggplot(data = df, 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" = "blue", "Value 2" = "green", "Value 3" = "red")) +
  labs(title = "填充堆叠图", x = "类别", y = "数值")