删除少于一定数量的非空白单元格的行

Question

我需要从下面的数据框中删除少于2个数字的所有行。这意味着只剩下第一行。

a<-c(1,"")
b<-c(2,"")
AB<-data.frame(a,b)

Answer 1

使用grepl并检查数字\\d

AB[rowSums(sapply(AB, function(x) grepl("\\d", x))) == NCOL(AB),]
#  a b
#1 1 2

Answer 2

我们可以使用rowSums创建一个逻辑向量并将其行作为子集

AB[rowSums(AB != '') >1, , drop = FALSE]
#  a b
#1 1 2

Answer 3

我们还可以将数据转换为数字，并选择所有列均为数字的行

AB[] <- lapply(AB, as.numeric)
AB[rowSums(!is.na(AB)) == ncol(AB), ]

#  a b
#1 1 2

数据

a<-c(1,"")
b<-c(2,"")
AB<-data.frame(a,b, stringsAsFactors = FALSE)