如何使用geom_text在堆叠条形图的比例尺上添加频率或数字？

# 加载必要的包
library(ggplot2)

# 创建一个示例数据集
data <- data.frame(
  category = rep(c("A", "B"), each = 3),
  subcategory = rep(c("X", "Y", "Z"), 2),
  value = c(10, 20, 30, 5, 15, 25)
)

# 创建堆叠条形图
p <- ggplot(data, aes(x = category, y = value, fill = subcategory)) +
  geom_bar(stat = "identity") +
  labs(title = "Stacked Bar Chart with Frequency Labels")

# 添加频率标签
p + geom_text(aes(label = value), position = position_stack(vjust = 0.5))

# 显示图形
print(p)

# 自定义y轴刻度标签
p + scale_y_continuous(breaks = seq(0, max(data$value), by = 10),
                       labels = function(x) paste0(x, " freq"))

install.packages("ggplot2")