如何在ggplot2中的堆叠条形图的类别之间引入分区？

library(ggplot2)

# 创建一个示例数据集
data <- data.frame(
  category = c("A", "B", "C"),
  group1 = c(10, 20, 30),
  group2 = c(15, 25, 35),
  group3 = c(5, 15, 25)
)

# 使用ggplot函数创建一个基础图层
plot <- ggplot(data, aes(x = category))

# 添加堆叠条形图的图层
plot <- plot + geom_bar(aes(y = group1, fill = "Group 1"), stat = "identity")
plot <- plot + geom_bar(aes(y = group2, fill = "Group 2"), stat = "identity")
plot <- plot + geom_bar(aes(y = group3, fill = "Group 3"), stat = "identity")

# 设置图例标题和标签
plot <- plot + labs(fill = "Groups")

# 设置x轴和y轴标签
plot <- plot + xlab("Category") + ylab("Value")

# 设置图表标题
plot <- plot + ggtitle("Stacked Bar Chart with Partition")

# 设置分区颜色
plot <- plot + scale_fill_manual(values = c("Group 1" = "red", "Group 2" = "blue", "Group 3" = "green"))

# 显示图表
print(plot)