组合color_bar(...)和百分比(...)在R格式中

library(ggplot2)

# 创建数据框
data <- data.frame(
  category = c("A", "B", "C"),
  percentage = c(0.3, 0.5, 0.2)
)

# 创建颜色条图形
plot <- ggplot(data, aes(x = category, y = percentage, fill = category)) +
  geom_bar(stat = "identity") +
  labs(title = "Percentage by Category") +
  scale_fill_manual(values = c("A" = "red", "B" = "green", "C" = "blue")) +
  theme_minimal()

# 在图形中显示百分比
plot <- plot + geom_text(aes(label = paste0(percentage * 100, "%")), vjust = -0.5)

# 显示图形
plot