[英]Convert data.frame to list of lists
我試圖弄清楚如何將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))
你可以做
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
如果在創建d
時添加stringsAsFactors = FALSE
,即
d <- do.call(rbind, lapply(v, as.data.frame, stringsAsFactors = FALSE))
d$col3 <- 2
然后
identical(out, vr)
返回TRUE
。
在將它們作為主列表元素的值傳遞之前,必須再次遍歷列,使它們成為列表。 我希望以下代碼有助於:
apply(d,MARGIN = 1, FUN=function(x){as.list(x)})
聲明:本站的技術帖子網頁,遵循CC BY-SA 4.0協議,如果您需要轉載,請注明本站網址或者原文地址。任何問題請咨詢:yoyou2525@163.com.