为什么我无法在不丢失所有数据的情况下将文本放入我的堆叠条形图(使用geom_bar的of图)中？

library(ggplot2)

# 创建一个数据框
data <- data.frame(
  category = c("A", "B", "C"),
  value1 = c(10, 20, 30),
  value2 = c(15, 25, 35)
)

# 绘制堆叠条形图
p <- ggplot(data, aes(fill = category)) +
  geom_bar(aes(x = 1, y = value1), stat = "identity") +
  geom_bar(aes(x = 1, y = value2), stat = "identity", alpha = 0.5) +
  scale_fill_manual(values = c("red", "blue", "green"))

# 在堆叠条形图上添加文本标签
p <- p + geom_text(aes(x = 1, y = value1, label = value1), vjust = -0.5, size = 4, color = "black") +
  geom_text(aes(x = 1, y = value1 + value2, label = value2), vjust = -0.5, size = 4, color = "black")

# 显示图表
print(p)