在R中綁定不相等的數據幀列表

Question

我有這樣的數據框列表：

 listdata <- list(matrix(c(1,1,1,1,3,3,3,3),nrow=2,ncol=4),matrix(c(1,1,1,1,2,2,2,2),ncol=1),matrix(c(1,1,1,1,2,2,2,2),nrow=2))
 FrameData <- lapply(listdata, function(x) as.data.frame(x))

我將如何綁定列表od數據幀，以便排除1列向量？ 我想要的最終輸出是：

    V1 V2 V3 V4
1   1  1  3  3
2   1  1  3  3
3   1  1  2  2
4   1  1  2  2

Answer 1

您可以通過設置列表子集並使用do.call來完成此操作

do.call(rbind, FrameData[sapply(FrameData, function(x) ncol(x)>1)])
#   V1 V2 V3 V4
# 1  1  1  3  3
# 2  1  1  3  3
# 3  1  1  2  2
# 4  1  1  2  2

在這里，我只是檢查每個data.frame是否具有多個列