在堆叠条形图(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(fill = category)) +
  geom_bar(aes(x = 1, y = value1), stat = "identity") +
  geom_bar(aes(x = 1, y = value2), stat = "identity") +
  coord_flip()

# 添加标签
plot <- plot +
  geom_text(aes(x = 1, y = value1, label = value1), size = 5) +
  geom_text(aes(x = 1, y = value1 + value2, label = value2), size = 10)

# 显示图形
print(plot)