R在堆叠条形图中仅显示堆栈百分比值大于5的标签

library(ggplot2)

# 创建示例数据集
data <- data.frame(
  category = c("A", "B", "C"),
  value1 = c(10, 20, 30),
  value2 = c(20, 30, 40),
  value3 = c(30, 40, 50)
)

# 计算堆叠百分比
data$stack_percentage <- rowSums(data[, -1]) / rowSums(data[, -1]) * 100

# 创建堆叠条形图
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") +
  geom_bar(aes(y = value3, fill = "Value 3"), stat = "identity") +
  geom_text(aes(y = value1 + value2 + value3, label = ifelse(stack_percentage > 5, stack_percentage, "")),
            position = "stack", vjust = -0.5) +
  labs(title = "堆叠条形图示例", x = "类别", y = "值") +
  scale_fill_manual(values = c("Value 1" = "red", "Value 2" = "blue", "Value 3" = "green")) +
  theme_minimal()

# 显示图表
print(plot)