我有数据框列表,有些是空的,如何删除它们?
$`S566X7221`
[1] V1 V2 V3 V4 V5 V6 V7 V8 V9 V10 V11 V12 V13 V14 V15 V16 V17 V18 V19 V20 V21 V22 V23 V24 V25 V26
<0 rows> (or 0-length row.names)
我已经尝试过这些,但没有一个有效
x[lapply(x,length)>0]
Filter(length, x)
你很接近了。但你想要nrow
, not length
(这实际上是 data.frame 中的列数)。
x <- list(data.frame(A=numeric(),B=numeric()), data.frame(A=1:3, B=4:6), data.frame(A=1,B=2))
x[sapply(x, nrow)>0]
Before:
> x
[[1]]
[1] A B
<0 rows> (or 0-length row.names)
[[2]]
A B
1 1 4
2 2 5
3 3 6
[[3]]
A B
1 1 2
After:
> x[sapply(x, nrow)>0]
[[1]]
A B
1 1 4
2 2 5
3 3 6
[[2]]
A B
1 1 2
本文内容由网友自发贡献,版权归原作者所有,本站不承担相应法律责任。如您发现有涉嫌抄袭侵权的内容,请联系:hwhale#tublm.com(使用前将#替换为@)