如何從列表中刪除空的數據框？

Question

我有幾十個列表，每個列表都是11個數據幀的集合。有些數據框是空的（另一個腳本沒有輸出任何數據，也沒有錯誤）。

我需要通過一個函數來推送每個列表，但當它看到一個空的數據框時就會窒息。那麼，我該如何編寫一個函數來獲取列表，在每個元素（即數據框）上做一個模糊處理，如果它是0，則跳到下一個。

我想是這樣的：

empties <- function (mlist) 
{ 
for(i in 1:length(mlist)) 
    { 
    if(dim(mlist[[i]])[1]!=0) return (mlist[[i]]) 
    } 
} 

但顯然，沒有工作。我會在這一點上手動做到這一點，但這將需要永遠。幫幫我？

Answer 1

我不知道這是否是你問什麼了，但如果你要修剪下來mlist運行在其上的功能之前只包含非空的數據幀，嘗試mlist[sapply(mlist, function(x) dim(x)[1]) > 0]。

例如爲：

R> M1 <- data.frame(matrix(1:4, nrow = 2, ncol = 2)) 
R> M2 <- data.frame(matrix(nrow = 0, ncol = 0)) 
R> M3 <- data.frame(matrix(9:12, nrow = 2, ncol = 2)) 
R> mlist <- list(M1, M2, M3) 
R> mlist[sapply(mlist, function(x) dim(x)[1]) > 0] 
[[1]] 
    X1 X2 
1 1 3 
2 2 4 

[[2]] 
    X1 X2 
1 9 11 
2 10 12 

Answer 2

稍微更簡單，更透明的方法來sapply /索引組合使用的過濾器（）函數：

> Filter(function(x) dim(x)[1] > 0, mlist) 
[[1]] 
    X1 X2 
1 1 3 
2 2 4 

[[2]] 
    X1 X2 
1 9 11 
2 10 12