# tisidb_cell是我的列表
# 找出最长的列表长度
max_length <- max(sapply(tisidb_cell, length))
# 使用lapply来填充较短的列表
padded_lists <- lapply(tisidb_cell, function(x) c(x, rep(NA, max_length - length(x))))
# 将填充后的列表转换为数据框
# 注意:我们需要将列表名作为列名
H <- setNames(do.call(cbind, padded_lists), names(tisidb_cell))
# 查看结果
print(head(H))
R代码 | 不同长度list()转换为数据框,用NA值填充
最新推荐文章于 2024-10-07 00:05:15 发布