Erstellen Sie einen data.frame, in dem eine Spalte eine Liste ist

Ich weiß, wie man eine Listenspalte hinzufügt:

> 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

Das funktioniert, aber nicht:

> 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

Warum?

Gibt es auch eine Möglichkeit, df(oben) in einem einzigen Aufruf von zu erstellen data.frame?

Etwas dunkel, von ?data.frame:

Wenn eine Liste, ein Datenrahmen oder eine Matrix an 'data.frame' übergeben wird, ist es so, als ob jede Komponente oder Spalte als separates Argument übergeben worden wäre (mit Ausnahme der Matrizen der Klasse "model.matrix" und der durch "I " geschützten ' ).

(Betonung hinzugefügt).

Damit

data.frame(a=1:3,b=I(list(1,1:2,1:3)))

scheint zu funktionieren.

Wenn Sie mit arbeiten data.tables, können Sie den Anruf bei vermeidenI()

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_frames (verschiedentlich genannt tibbles, tbl_df, tbl) nativ die Erstellung von Listenspalten mit der Unterstützung data_frameKonstruktor. Für sie Last einen der vielen Bibliotheken mit ihnen zu verwenden wie tibble, dplyroder 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]>

Sie sind eigentlich data.framesunter der Haube, aber etwas modifiziert. Sie können fast immer wie gewohnt verwendet werden data.frames. Die einzige Ausnahme, die ich gefunden habe, ist, dass Leute, die unangemessene Klassenprüfungen durchführen, Probleme verursachen:

> #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

Ich empfehle, darüber in R 4 Data Science (kostenlos) zu lesen .