使用ggplot2绘制堆叠条形图

# 安装并加载 ggplot2 包
install.packages("ggplot2")
library(ggplot2)

# 创建示例数据
data <- data.frame(
  category = rep(c("A", "B", "C"), each = 2),
  group = rep(c("X", "Y"), 3),
  value = c(10, 20, 30, 40, 50, 60)
)

# 绘制堆叠条形图
ggplot(data, aes(x = category, y = value, fill = group)) +
  geom_bar(stat = "identity") +
  labs(title = "Stacked Bar Chart Example", x = "Category", y = "Value") +
  scale_fill_manual(values = c("X" = "blue", "Y" = "red"))

# 确保数据框中的数据正确对齐
data <- data.frame(
  category = rep(c("A", "B", "C"), each = 2),
  group = rep(c("X", "Y"), 3),
  value = c(10, 20, 30, 40, 50, 60)
)

# 确保 fill 参数设置正确
ggplot(data, aes(x = category, y = value, fill = group)) +
  geom_bar(stat = "identity")

ggplot(data, aes(x = category, y = value, fill = group)) +
  geom_bar(stat = "identity") +
  scale_fill_manual(values = c("X" = "blue", "Y" = "red"))