您可以为ggplot中的每个因子添加一个计数到图例中吗？

library(ggplot2)

# 创建一个包含因子的数据框
data <- data.frame(
  category = factor(c("A", "B", "A", "C", "B", "B")),
  value = c(1, 2, 3, 4, 5, 6)
)

# 创建柱状图，并添加计数到图例中
ggplot(data, aes(x = category, fill = category)) +
  geom_bar(stat = "count") +
  geom_text(
    aes(label = after_stat(count), y = after_stat(count)),
    stat = "count",
    vjust = -0.5
  ) +
  scale_fill_manual(
    values = c("A" = "red", "B" = "blue", "C" = "green"),
    labels = c("A" = "Category A", "B" = "Category B", "C" = "Category C")
  )