3

我有一个名为z

z<-list( list(a=1, b=2),  list(a=2, b=3), list(a=NULL, b=4))

我希望将其转换为 data.frame,并adata.frame分配为NULL. 这样做,

do.call( rbind, lapply( z, data.frame, stringsAsFactors=TRUE ) )

正如预期的那样,给出了这个错误:

 Error in data.frame(a = NULL, b = 4, check.names = FALSE, stringsAsFactors = TRUE) : 
 arguments imply differing number of rows: 0, 1

解决方法是什么?

4

3 回答 3

5

这是你想要做的吗?

> data.frame(do.call(rbind, z))
     a b
1    1 2
2    2 3
3 NULL 4
于 2013-06-30T07:17:52.233 回答
2
 as.data.frame(do.call(rbind, z))
     a b
1    1 2
2    2 3
3 NULL 4
于 2013-06-30T07:18:54.103 回答
2

如果您对数值数据框而不是列表数据框感兴趣,可以尝试以下方法。

lz <- lapply(z, function(x) {
    nonnull <- sapply(x, typeof)!="NULL"
    do.call(data.frame, c(x[nonnull], stringsAsFactors=FALSE))
})

require(plyr)
df <- ldply(lz)

请注意,结果将NULLs 转换为NAs 以形成有效的数据帧。

> df
   a b
1  1 2
2  2 3
3 NA 4
> str(df)
'data.frame':   3 obs. of  2 variables:
 $ a: num  1 2 NA
 $ b: num  2 3 4
于 2015-06-09T02:45:10.010 回答