R语言DataFrame含table类型数据：如何提取数值并正常显示？

结构成因 #

你碰到的这种DataFrame，每列都是table类型——本质是带命名属性的数值向量，额外添加了table类标记。这种情况通常是直接把table()函数的统计结果塞进数据框导致的：比如你可能用循环或批量处理对多组数据做频数统计，直接把返回的table对象合并成了数据框，没有提前提取数值部分，就会出现这种结构，和列表无关。

处理方法 #

1. 快速转为纯数值列（直接展示原格式） #

table对象本质是带命名的向量，用as.numeric()可以直接提取数值部分，忽略命名属性。结合dplyr的批量处理函数就能快速清理：

library(tidyverse)
library(htmlTable)

# 清理数据：将所有table列转为数值列
df_clean <- df %>%
  mutate(across(everything(), as.numeric))

# 正常展示
df_clean %>% htmlTable()

2. 整理为更清晰的长格式（保留类别信息） #

如果需要保留原来table的命名（也就是0-5这些类别），可以把数据整理成长格式，方便后续分析和展示：

library(tidyverse)
library(htmlTable)

# 转置并整理数据
df_clean <- df %>%
  # 提取每列的数值，同时保留列名作为分组
  map_dfr(as.numeric, .id = "分组") %>%
  # 添加类别列（对应原来table的命名）
  mutate(类别 = names(df$a)) %>%
  # 调整列顺序，把类别和分组放前面
  relocate(类别, 分组)

# 展示整理后的数据
df_clean %>% htmlTable()

注意事项 #

你之前的代码里library()是空的，要记得加载htmlTable包，否则会找不到htmlTable()函数。

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