代码之家 › 专栏 › 技术社区 › 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)})

推荐文章

user1245262 · 筛选Pandas数据帧时出现问题

1 年前

Foroand · 熊猫数据帧中的词频计数耗时过长

1 年前

user14696236 · 如何为每个对应的列创建一行[重复]

2 年前

Shawn Hemelstrand · 为什么我的自定义errorbar函数不能在R中工作?

2 年前

Karim Abou El Naga · 将带字符串的DataFrame绘制到堆叠条形图中

2 年前

The Great · 拆分并存储数据帧,但名称基于特定列中的唯一值

2 年前

nickolakis · 基于R中的列名复制列

2 年前

opposity · 形成一个数据帧,该数据帧包含R中包含类别和子类别的列

2 年前

A. Handler · 有没有办法将数据帧的列与完整列名向量相匹配?

2 年前

JasonX · 运行减法计算

2 年前