Question

我目前有一个包含7个数据帧的列表，每个数据帧有24列，但行数不同。我想将我的列表转换为三维数组，但我不能，因为我列表中的所有组件都没有相同的维度。我有一个数据帧有60行，4个数据帧有59行，2个有58行。

当我尝试laply(mylist, unlist)时，收到以下消息：错误：结果必须具有相同的尺寸。

有没有办法将这些数据帧放入数组？我怎样才能将NAs放在其他6个数据帧的末尾，以便将它们分成60行？

Answer 1

我不确定OP的真正目的是什么导致他想到创建一个3-D数组，为此他需要包含相同行数的列表的所有数据帧。

但是，无论原因是什么，都可以使用lapply来实现它。请注意lengths函数在包含数据框的列表中无法正常工作。由于lengths函数只返回列表中包含的每个数据框中的列数。

因此，方法是首先在mylist中包含的数据帧中找到最大行数。然后迭代每个数据帧以将其行扩展到最大行数。

# Find maximum row across all data frames in mylist
maxrow <- max(sapply(mylist, nrow))

# Iterate over and increase the row count to maxrow
mylist_mod <- lapply(mylist, function(x,nRow){
                if(nrow(x) <  nRow){
                  x[(nrow(x)+1):nRow,] <- NA
                }
                x
              }, nRow = maxrow)

mylist_mod
# $df1
#   one two three
# 1 101 111   131
# 2 102 112   132
# 3 103 113   133
# 4  NA  NA    NA
# 5  NA  NA    NA
# 
# $df2
#   one two three
# 1 201 211   231
# 2 202 212   232
# 3  NA  NA    NA
# 4  NA  NA    NA
# 5  NA  NA    NA
# 
# $df3
#   one two three
# 1 301 311   331
# 2 302 312   332
# 3 303 313   333
# 4 304 314   334
# 5 305 315   335

示例数据：

df1 <- data.frame(one = 101:103, two = 111:113, three = 131:133)
df2 <- data.frame(one = 201:202, two = 211:212, three = 231:232)
df3 <- data.frame(one = 301:305, two = 311:315, three = 331:335)

mylist <- list(df1 = df1, df2 = df2, df3 = df3)

mylist 
# $df1
#   one two three
# 1 101 111   131
# 2 102 112   132
# 3 103 113   133
# 
# $df2
#   one two three
# 1 201 211   231
# 2 202 212   232
# 
# $df3
#   one two three
# 1 301 311   331
# 2 302 312   332
# 3 303 313   333
# 4 304 314   334
# 5 305 315   335

将不同长度的数据帧列表转换为数组

1 个答案: