我正在寻找一种方法来可靠地将列表结构强制为 data.frame
或 tibble
,同时将一个或多个列维护为列表列。考虑以下列表结构:
d = data.frame(x = 1:10, y = 1.5*(1:10) + rnorm(10))
ex = list(label = "A", number = 1L, model = lm(y ~ x, data = d))
这没有按预期工作:
lapply(ex, as_data_frame) %>% bind_rows()
因为“model”列中的 lm
对象在转换中被矢量化。但是,将模型包装在 list
中会得到预期的结果:
ex2 = list(label = "A", number = 1L, model = list(lm(y ~ x, data = d)))
as_data_frame(ex2)
不幸的是,我有一个用例,我事先不知道给定的列是否是列表。我正在使用一个输出类似以下内容的函数:
ex3 = list(
list(label = "A", number = 1L, model = lm(y ~ x, data = d)),
list(label = "B", number = 1L, model = lm(y ~ x + 0, data = d))
)
# won't work properly
lapply(ex3, as_data_frame) %>% bind_rows()
有没有办法阻止 data_frame
在转换为 tibble
时将对象矢量化?如果没有,我可以使用什么替代方法?
最佳答案
这是 tidyverse
的一个选项
library(tidyverse)
ex3 %>%
transpose %>%
map_if(~all(lengths(.) == 1), unlist) %>%
as_tibble
# A tibble: 2 x 3
# label number model
# <chr> <int> <list>
#1 A 1 <S3: lm>
#2 B 1 <S3: lm>
对于第一种情况,将“模型”作为列表
,然后使用as_tibble
ex$model <- list(ex$model)
as_tibble(ex)
关于r - 将列表列表强制到数据帧,但在列表列中保留*一些*元素,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/49701573/