如何使用facet_grid将计数标签添加到直方图的每个条形图？

library(ggplot2)

# 示例数据
data <- data.frame(category = rep(letters[1:3], each = 50),
                   value = rnorm(150))

# 创建直方图
p <- ggplot(data, aes(x = value))

# 添加条形图
p <- p + geom_histogram(binwidth = 0.2, fill = "blue", color = "black")

# 添加计数标签
p <- p + geom_text(stat = "count", aes(label = ..count..), vjust = -0.5)

# 使用facet_grid拆分图形
p <- p + facet_grid(. ~ category)

# 显示图形
print(p)