如何为DataExplorer的plot_bar函数添加数据计数标签？

DataExplorer的plot_bar本身没有内置添加计数标签的参数，但可以通过以下两种方式实现：

方法一：直接修改返回的ggplot对象 #

plot_bar返回的是标准ggplot对象，我们可以直接叠加geom_text来添加计数标签：

library(DataExplorer)
library(ggplot2)

# 你的数据集
data <- structure(list(PassengerId = c("0001_01", "0002_01", "0003_01", 
"0003_02", "0004_01", "0005_01"), HomePlanet = c("Europa", "Earth", 
"Europa", "Europa", "Earth", "Earth"), CryoSleep = c("False", 
"False", "False", "False", "False", "False"), Cabin = c("B/0/P", 
"F/0/S", "A/0/S", "A/0/S", "F/1/S", "F/0/P"), Destination = c("TRAPPIST-1e", 
"TRAPPIST-1e", "TRAPPIST-1e", "TRAPPIST-1e", "TRAPPIST-1e", "PSO J318.5-22"
), Age = c(39, 24, 58, 33, 16, 44), VIP = c("False", "False", 
"True", "False", "False", "False"), RoomService = c(0, 109, 43, 
0, 303, 0), FoodCourt = c(0, 9, 3576, 1283, 70, 483), ShoppingMall = c(0, 
25, 0, 371, 151, 0), Spa = c(0, 549, 6715, 3329, 565, 291), VRDeck = c(0, 
44, 49, 193, 2, 0), Name = c("Maham Ofracculy", "Juanna Vines", 
"Altark Susent", "Solam Susent", "Willy Santantines", "Sandie Hinetthews"
), Transported = c("False", "True", "False", "False", "True", 
"True")), row.names = c(NA, 6L), class = "data.frame")

# 生成基础柱状图
p <- plot_bar(data, by = "HomePlanet")

# 叠加计数标签
p + geom_text(stat = "count", aes(label = after_stat(count)), 
              vjust = -0.5, size = 3.5)

• stat="count"：让ggplot自动计算每组的数量
• after_stat(count)：引用统计得到的计数数值
• vjust=-0.5：把标签放在柱子上方，避免和柱子重叠，可根据需要调整数值

方法二：自定义带标签的plot_bar函数 #

如果需要多次使用，把添加标签的逻辑封装成函数更高效：

plot_bar_with_labels <- function(data, by, ...) {
  # 调用原plot_bar函数
  p <- plot_bar(data, by = by, ...)
  # 添加计数标签
  p + geom_text(stat = "count", aes(label = after_stat(count)),
                vjust = -0.5, size = 3.5)
}

# 使用自定义函数
plot_bar_with_labels(data, by = "HomePlanet")

这个函数完全兼容原plot_bar的所有参数，只是自动添加了计数标签。

内容的提问来源于stack exchange，提问作者GreenManXY