Конвертировать data.frame в список списков

Question

Я пытаюсь выяснить, как преобразовать data.frame в список списков.Предположим, у меня есть (не стесняйтесь изменить это, если вам нужно захватить больше атрибутов на потом):

v <- list(
          row1=list(col1 = as.Date("2011-01-23"), col2="A"), 
          row2=list(col1 = as.Date("2012-03-03"), col2="B"))
d <- do.call(rbind, lapply(v, as.data.frame))
d$col3 <- 2

Как мне вернуть d обратно в список списков (аналогично v).Конечный результат должен быть эквивалентен результату:

vr <- list(
          row1=list(col1 = as.Date("2011-01-23"), col2="A", col3=2), 
          row2=list(col1 = as.Date("2012-03-03"), col2="B", col3=2))

Answer 1

Вы можете сделать

out <- lapply(split(d, rownames(d)), as.list)
out
#$row1
#$row1$col1
#[1] "2011-01-23"

#$row1$col2
#[1] "A"

#$row1$col3
#[1] 2


#$row2
#$row2$col1
#[1] "2012-03-03"

#$row2$col2
#[1] "B"

#$row2$col3
#[1] 2

Если вы добавите stringsAsFactors = FALSE при создании d, то есть

d <- do.call(rbind, lapply(v, as.data.frame, stringsAsFactors = FALSE))
d$col3 <- 2

, тогда

identical(out, vr)

вернет TRUE.

Answer 2

Вам нужно снова пройтись по столбцам, составив их списки, прежде чем передавать их в качестве значений элемента основного списка. Я надеюсь, что приведенный ниже код поможет:

apply(d,MARGIN = 1, FUN=function(x){as.list(x)})