R中apply处理list-column行为不一致的原因及实现咨询

apply函数的核心行为是自动简化输出结构，它会根据每次迭代返回值的长度、类型，尝试将结果转换为最紧凑的格式（矩阵、数据框或向量），这就是三种场景结果不一致的根本原因：

• 场景1（嵌套tibble行数3和2）：每次提取的beaks向量长度不同（3 vs 2），apply无法将结果简化为规整的矩阵/数据框，只能保留列表结构，恰好符合你需要的list-column。
• 场景2（嵌套tibble均为3行）：每次提取的是长度为3的向量，apply会自动将这些向量合并为3×2的矩阵。当你试图把这个矩阵作为新列添加到只有2行的tibble时，会因维度不匹配报错。
• 场景3（嵌套tibble均为2行）：apply将两次提取的长度为2的向量合并为2×2的矩阵，tibble会把矩阵的每一列解析为单独的列，因此生成了多列而非单个list-column。

要强制apply返回列表结构（而非自动简化），只需添加simplify = FALSE参数，这样无论每次返回的向量长度是否一致，结果都会保持列表格式，直接作为list-column添加到数据集中即可。

代码示例 #

先构造测试数据：

library(tibble)

# df1：嵌套tibble行数3和2
df1 <- tibble(
  eagles = list(
    tibble(beaks = c(1,2,3)),
    tibble(beaks = c(4,5))
  )
)

# df2：两个嵌套tibble均为3行
df2 <- tibble(
  eagles = list(
    tibble(beaks = c(1,2,3)),
    tibble(beaks = c(4,5,6))
  )
)

# df3：两个嵌套tibble均为2行
df3 <- tibble(
  eagles = list(
    tibble(beaks = c(1,2)),
    tibble(beaks = c(3,4))
  )
)

添加目标list-column：

# 处理df1
df1$beaks <- apply(df1$eagles, 1, function(x) x$beaks, simplify = FALSE)

# 处理df2（无报错）
df2$beaks <- apply(df2$eagles, 1, function(x) x$beaks, simplify = FALSE)

# 处理df3（生成单个list-column）
df3$beaks <- apply(df3$eagles, 1, function(x) x$beaks, simplify = FALSE)

补充说明 #

如果不局限于apply，更推荐用lapply或purrr::map处理list-column，它们天生返回列表，无需额外参数，代码更简洁：

# 用lapply
df1$beaks <- lapply(df1$eagles, function(x) x$beaks)

# 用purrr::map（更简洁）
library(purrr)
df1$beaks <- map(df1$eagles, "beaks")

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