如何设置ggplot2填充颜色来汇总统计数据？

# 加载ggplot2包
library(ggplot2)

# 准备数据集
data <- data.frame(category = c("A", "B", "C", "D"),
                   value = c(10, 20, 15, 25),
                   color = c("red", "blue", "green", "yellow"))

# 创建绘图对象
p <- ggplot(data, aes(x = category, y = value, fill = color))

# 添加柱状图层
p <- p + geom_bar(stat = "identity")

# 调整图形方向
p <- p + coord_flip()

# 添加标题和标签
p <- p + labs(title = "Summarizing Statistical Data",
              x = "Category",
              y = "Value")

# 调整图形外观
p <- p + theme(plot.title = element_text(size = 14, face = "bold"),
               axis.title = element_text(size = 12),
               axis.text = element_text(size = 10),
               legend.title = element_blank(),
               legend.text = element_text(size = 10))

# 显示图形
print(p)