Sé cómo agregar una columna de lista:
> df <- data.frame(a=1:3)
> df$b <- list(1:1, 1:2, 1:3)
> df
a b
1 1 1
2 2 1, 2
3 3 1, 2, 3
Esto funciona, pero no:
> df <- data.frame(a=1:3, b=list(1:1, 1:2, 1:3))
Error in data.frame(1L, 1:2, 1:3, check.names = FALSE, stringsAsFactors = TRUE) :
arguments imply differing number of rows: 1, 2, 3
¿Por qué?
Además, ¿hay alguna forma de crear df(arriba) en una sola llamada a data.frame?
Respuestas:
Ligeramente oscuramente, de ?data.frame:
Si una lista, marco de datos o matriz se pasa a 'data.frame' es como si cada componente o columna se hubiera pasado como un argumento separado (excepto para las matrices de clase '"model.matrix"' y las protegidas por 'I ' ).
(énfasis añadido).
Entonces
data.frame(a=1:3,b=I(list(1,1:2,1:3)))
parece funcionar.
Ipara Inhibir Interperetation / Conversión de objetos parece un poco demasiado corto :)
class()? p I(iris) -> i; i %>% class() 3 [1] "AsIs" "data.frame". ej. (devuelve la clase AsIs)
Si está trabajando con data.tables, puede evitar la llamada aI()
library(data.table)
# the following works as intended
data.table(a=1:3,b=list(1,1:2,1:3))
a b
1: 1 1
2: 2 1,2
3: 3 1,2,3
data.tablepor un amplio margen
data_frames (llamados diversamente tibbles, tbl_df, tbl) de forma nativa apoyan la creación de columnas de la lista utilizando el data_frameconstructor. Para usarlos, cargue una de las muchas bibliotecas con ellos, como tibble, dplyro tidyverse.
> data_frame(abc = letters[1:3], lst = list(1:3, 1:3, 1:3))
# A tibble: 3 × 2
abc lst
<chr> <list>
1 a <int [3]>
2 b <int [3]>
3 c <int [3]>
En realidad, están data.framesbajo el capó, pero algo modificados. Casi siempre se pueden utilizar normalmente data.frames. La única excepción que he encontrado es que cuando las personas hacen controles de clase inapropiados, causan problemas:
> #no problem
> data.frame(x = 1:3, y = 1:3) %>% class
[1] "data.frame"
> data.frame(x = 1:3, y = 1:3) %>% class == "data.frame"
[1] TRUE
> #uh oh
> data_frame(x = 1:3, y = 1:3) %>% class
[1] "tbl_df" "tbl" "data.frame"
> data_frame(x = 1:3, y = 1:3) %>% class == "data.frame"
[1] FALSE FALSE TRUE
> #dont use if with improper testing!
> if(data_frame(x = 1:3, y = 1:3) %>% class == "data.frame") "something"
Warning message:
In if (data_frame(x = 1:3, y = 1:3) %>% class == "data.frame") "something" :
the condition has length > 1 and only the first element will be used
> #proper
> data_frame(x = 1:3, y = 1:3) %>% inherits("data.frame")
[1] TRUE
Recomiendo leer sobre ellos en R 4 Data Science (gratis).