R颜色百分比柱状图

install.packages("ggplot2")
library(ggplot2)

# 创建一个示例数据集
data <- data.frame(
  category = c("A", "B", "C", "D"),
  value = c(10, 20, 30, 40),
  color = c("red", "blue", "green", "yellow")
)

# 创建柱状图
ggplot(data, aes(x = category, y = value, fill = color)) +
  geom_bar(stat = "identity") +
  scale_fill_manual(values = c("red", "blue", "green", "yellow")) +
  theme_minimal() +
  labs(title = "颜色百分比柱状图", x = "类别", y = "值") +
  theme(legend.position = "bottom")