代码之家 › 专栏 › 技术社区 › Denis

转换数据帧到列表列表

dataframe r

Denis · 技术社区 · 6 年前

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

2 回复 | 直到 6 年前

markus 6 年前

你能做到的

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 .

Lunalo John 6 年前

在将列作为主列表元素的值传递之前,必须再次遍历这些列,使它们成为列表。我希望下面的代码能有所帮助:

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

推荐文章

Amp · 使用R ggplot2删除geom_radial中axis.line和panel.border之间的空格

8 月前

Hard_Course · 用另一列中的值替换行的最后一个非NA条目

8 月前

Mark R · 使用geom_sf()删除地球仪上不需要的网格线

8 月前

Joe · 根据对工作日和本周早些时候的日期的了解,找到一个日期

8 月前

Ben · 统计向量中的单词在字符串中出现的频率

8 月前

TheCodeNovice · R中符号格式的尾随零和其他问题[重复]

8 月前

katefull06 · 在R中使用terra修改范围时,会为单独的SpatRaster重写范围

8 月前

dez93_2000 · 在R管道子功能中引用管道对象的当前状态

8 月前

accibio · 在ggplot2中为同一变量创建两个连续的颜色渐变比例

8 月前

Mankka · 如何在Ggplot2中绘制均匀的径向图

8 月前