如何在R中无需手动编码将数据转换为ggplot2条形图适配格式？

原始数据 #

df <- list()
df$group <- c("a", "a",  "a", "a","a", "b", "b", "b", "b")
df$levels <- c("1", "2", "3", "3", "3","2", "1", "3", "1")

自动转换方法 #

不需要手动编码生成数据集，以下两种方式可以快速完成格式转换：

方法1：使用tidyverse工具（推荐，适配复杂场景）

借助dplyr和tidyr包统计频数，同时自动补全所有分组-层级的组合（避免缺失条形）：

library(tidyverse)

# 列表转数据框 + 统计频数 + 补全缺失组合
data <- as.data.frame(df) %>%
  count(group, levels, name = "value") %>%
  complete(group, levels, fill = list(value = 0))

方法2：使用Base R

通过基础函数统计交叉频数后转成目标格式：

# 统计分组-层级的频数
tab <- table(df$group, df$levels)
# 转换为数据框并重命名列
data <- as.data.frame(tab)
colnames(data) <- c("grp", "lev", "value")

绘图代码 #

转换完成后直接用ggplot2绘制分组条形图：

ggplot(data, aes(fill = grp, y = value, x = lev)) + 
  geom_bar(position = "dodge", stat = "identity")

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