堆叠条形图，在R中反向显示标签

library(ggplot2)

# 准备数据
data <- data.frame(
  category = c("Category 1", "Category 2", "Category 3"),
  group1 = c(10, 20, 30),
  group2 = c(15, 25, 35),
  group3 = c(5, 15, 25)
)

# 创建堆叠条形图
ggplot(data, aes(x = category)) +
  geom_bar(aes(y = group1, fill = "Group 1"), stat = "identity", position = "stack") +
  geom_bar(aes(y = group2, fill = "Group 2"), stat = "identity", position = "stack") +
  geom_bar(aes(y = group3, fill = "Group 3"), stat = "identity", position = "stack") +
  geom_text(aes(y = group1/2, label = group1), position = position_stack(vjust = 0.5), angle = 90) +
  geom_text(aes(y = group1 + group2/2, label = group2), position = position_stack(vjust = 0.5), angle = 90) +
  geom_text(aes(y = group1 + group2 + group3/2, label = group3), position = position_stack(vjust = 0.5), angle = 90) +
  labs(title = "Stacked Bar Chart", x = "Category", y = "Value") +
  scale_fill_manual(values = c("Group 1" = "red", "Group 2" = "blue", "Group 3" = "green")) +
  theme_minimal()