ggplot2将数据标签添加到分组直方图图表

library(ggplot2)

# 创建示例数据
data <- data.frame(
  group = rep(c("A", "B", "C"), each = 100),
  value = c(rnorm(100, mean = 0, sd = 1),
            rnorm(100, mean = 2, sd = 1),
            rnorm(100, mean = 4, sd = 1))
)

# 创建分组直方图
plot <- ggplot(data, aes(x = value, fill = group)) +
  geom_histogram(position = "identity", alpha = 0.5, bins = 30)

# 添加数据标签
plot <- plot + geom_text(
  aes(x = value, y = 0, label = value),
  vjust = -0.5,
  size = 3,
  color = "black"
)

# 显示图表
print(plot)