R语言：table行名转列失败，转data.frame出现冗余行（求一行代码）

我太懂这种糟心的情况了！用table(Subset$Treatment, Subset$Status)生成的交叉频数表，转数据框时要么行名死活变不成正式列，要么转出来的结构多出一堆行，完全不是绘图需要的样子。别担心，一行代码就能搞定，分两种场景给你：

场景1：想要宽格式数据（每行对应一个Treatment，alive/dead作为列） #

适合直接绘制并列或堆叠条形图，两种实现方式都是一行代码：

# tidyverse简洁版（需加载tidyverse包）
library(tidyverse)
count_df <- table(Subset$Treatment, Subset$Status) %>% as.data.frame.matrix() %>% rownames_to_column(var = "Treatment")

# 基础R版（无需额外包）
count_df <- data.frame(Treatment = rownames(tb <- table(Subset$Treatment, Subset$Status)), tb, row.names = NULL)

解释下：as.data.frame.matrix()会把table直接转成宽格式数据框（行名保留为数据框的行名），再用rownames_to_column()把行名提取成正式的Treatment列；基础R版本则是手动把行名作为新列，同时清空原行名避免混乱。

场景2：想要长格式数据（每行对应Treatment+Status的组合，带计数） #

这种格式更适合ggplot2的灵活绘图（比如分组映射），同样一行代码搞定：

# tidyverse简洁版
count_df <- table(Subset$Treatment, Subset$Status) %>% as.data.frame() %>% rename(Treatment = Var1, Status = Var2, Count = Freq)

# 基础R版
count_df <- setNames(as.data.frame(table(Subset$Treatment, Subset$Status)), c("Treatment", "Status", "Count"))

这里as.data.frame(table(...))默认会生成三列Var1、Var2、Freq，我们直接重命名成你需要的列名即可，完美适配绘图时的分组映射需求。

快速验证 #

不管用哪种方式，你都可以用head(count_df)查看结果，确保Treatment是正式列，没有多余的行或属性行名。之后绘图就很顺畅了，比如用ggplot2画并列条形图：

ggplot(count_df, aes(x = Treatment, y = Count, fill = Status)) + geom_bar(stat = "identity", position = "dodge")

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