如何使用R的ggplot2包在堆叠条形图中添加文本？

install.packages("ggplot2")

library(ggplot2)

data <- data.frame(
  category = c("A", "B", "C"),
  value1 = c(10, 20, 30),
  value2 = c(15, 25, 35)
)

plot <- ggplot(data, aes(x = category)) +
  geom_bar(aes(y = value1, fill = "Value 1"), stat = "identity") +
  geom_bar(aes(y = value2, fill = "Value 2"), stat = "identity") +
  scale_fill_manual(values = c("Value 1" = "blue", "Value 2" = "red"))

plot <- plot +
  geom_text(aes(label = value1, y = value1), vjust = -0.5) +
  geom_text(aes(label = value2, y = value1 + value2), vjust = -0.5)

plot <- plot +
  labs(title = "Stacked Bar Chart with Text Labels",
       x = "Category",
       y = "Value") +
  theme_minimal()

print(plot)