代码之家 › 专栏 › 技术社区 › Maiasaura

如何从列表中删除空数据帧?

Maiasaura · 技术社区 · 16 年前

我需要通过一个函数推送每个列表,但当它看到一个空的数据帧时,就会阻塞。那么我该如何编写一个函数来获取一个列表,对每个元素(即数据帧)进行dim,如果是0,则跳到下一个。

我试过这样的方法:

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

但很明显,这不管用。我会在这一点上手动做这件事,但这将需要永远。救命啊?

2 回复 | 直到 16 年前

brentonk 16 年前

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

Harlan 16 年前

sapply/索引组合的更简单、更透明的方法是使用Filter()函数:

> 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

Ronak Shah 7 年前

而不是 dim(x)[1] 你可以利用 nrow ,所以你可以

mlist[sapply(mlist, nrow) > 0]

Filter(function(x) nrow(x) > 0, mlist)

你也可以用 keep 和 discard 从 purrr

purrr::keep(mlist, ~nrow(.) > 0)
purrr::discard(mlist, ~nrow(.) == 0)

还有 compact 呼噜声 直接删除所有空元素。它是一个包装纸

purrr::compact(mlist)

nrow公司 具有 ncol 在上述答案中。此外,您还可以使用 lengths

mlist[lengths(mlist) > 0]

cephalopod 7 年前

添加tidyverse选项:

library(tidyverse)
mlist[map(mlist, function(x) dim(x)[1]) > 0]


mlist[map(mlist, ~dim(.)[1]) > 0]

推荐文章

Amp · 使用R ggplot2删除geom_radial中axis.line和panel.border之间的空格

1 年前

Hard_Course · 用另一列中的值替换行的最后一个非NA条目

1 年前

Mark R · 使用geom_sf()删除地球仪上不需要的网格线

1 年前

Joe · 根据对工作日和本周早些时候的日期的了解,找到一个日期

1 年前

Ben · 统计向量中的单词在字符串中出现的频率

1 年前

TheCodeNovice · R中符号格式的尾随零和其他问题[重复]

1 年前

katefull06 · 在R中使用terra修改范围时,会为单独的SpatRaster重写范围

1 年前

dez93_2000 · 在R管道子功能中引用管道对象的当前状态

1 年前

accibio · 在ggplot2中为同一变量创建两个连续的颜色渐变比例

1 年前

Mankka · 如何在Ggplot2中绘制均匀的径向图

1 年前