tapply返回列表转data.frame失败？差异分析及解决方法

问题重现 #

使用tapply()分组提取向量后，返回的列表转data.frame不符合预期，但手动创建的相似列表转换正常：

tapply生成的列表转换异常 #

x <- 1:10
y <- rep(c('A', 'B'), each = 5)
lst.1 <- tapply(x, y, function(vec) return(vec), simplify = FALSE)
lst.1
# $A
# [1] 1 2 3 4 5
# 
# $B
# [1]  6  7  8  9 10

as.data.frame(lst.1)
#             lst1
# A  1, 2, 3, 4, 5
# B 6, 7, 8, 9, 10

手动创建列表转换正常 #

lst.2 <- list(A = 1:5, B = 6:10)
lst.2
# $A
# [1] 1 2 3 4 5
# 
# $B
# [1]  6  7  8  9 10

as.data.frame(lst.2)
#   A  B
# 1 1  6
# 2 2  7
# 3 3  8
# 4 4  9
# 5 5 10

两者的核心差异 #

用str()查看列表结构就能发现区别：

str(lst.1)
# List of 2
#  $ A: int [1:5] 1 2 3 4 5
#   ..- attr(*, "dim")= int 5
#   ..- attr(*, "dimnames")=List of 1
#   .. ..$ y: chr "A"
#  $ B: int [1:5] 6 7 8 9 10
#   ..- attr(*, "dim")= int 5
#   ..- attr(*, "dimnames")=List of 1
#   .. ..$ y: chr "B"

str(lst.2)
# List of 2
#  $ A: int [1:5] 1 2 3 4 5
#  $ B: int [1:5] 6 7 8 9 10

• lst.1的每个元素是带维度（dim）和维度名称（dimnames）属性的一维数组，本质属于array类；
• lst.2的每个元素是普通的integer类向量，无额外属性。

as.data.frame()处理数组时，会将整个数组视为单个“单元格值”，而非拆分成行，因此出现了异常结果。

正确转换的方法 #

方法1：移除数组属性后转换 #

用lapply()遍历列表，将每个数组元素转为普通向量，再转成data.frame：

lst.1_clean <- lapply(lst.1, as.vector)
as.data.frame(lst.1_clean)
#   A  B
# 1 1  6
# 2 2  7
# 3 3  8
# 4 4  9
# 5 5 10

方法2：用do.call(cbind)直接合并 #

cbind会自动处理数组的维度属性，合并后再转成data.frame：

as.data.frame(do.call(cbind, lst.1))
#   A  B
# 1 1  6
# 2 2  7
# 3 3  8
# 4 4  9
# 5 5 10

方法3：用split()替代tapply分组 #

如果你的需求只是按分组提取原向量，split()直接返回普通向量组成的列表，无需额外处理：

lst_split <- split(x, y)
as.data.frame(lst_split)
#   A  B
# 1 1  6
# 2 2  7
# 3 3  8
# 4 4  9
# 5 5 10

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