用于测试数据帧中的行是否包含给定元素的函数

Question

我有一个像

这样的数据框

a <- c(2, 3, 4)
b <- c(5, 4, 3)
c <- c(2, 7, 9)
df <- data.frame(a, b, c)

df
#   a b c
# 1 2 5 2
# 2 3 4 7
# 3 4 3 9

我想回到没有数字2的行，在我的例子中它只是第二行。

Answer 1

使用rowSums或colSums：

# data
a <- c(2, 3, 4)
b <- c(5, 4, 3)
c <- c(2, 7, 9)
df <- data.frame(a, b, c)

df
#   a b c
# 1 2 5 2
# 2 3 4 7
# 3 4 3 9


# get rows with no 2
df[ rowSums(df == 2, na.rm = TRUE) == 0, ]
#   a b c
# 2 3 4 7
# 3 4 3 9

# get columns with no 2
df[ , colSums(df == 2, na.rm = TRUE) == 0, drop = FALSE ]
#   b
# 1 5
# 2 4
# 3 3

Answer 2

我们还可以将Reduce与==一起使用来获取行

df[!Reduce(`|`, lapply(df, `==`, 2)),]
#  a b c
#2 3 4 7
#3 4 3 9

和any与lapply一起选择列

df[!sapply(df, function(x) any(x== 2))]
#  b
#1 5
#2 4
#3 3

Answer 3

这是我使用一些set函数的解决方案。首先，两个人的位置在哪里？

is_two <- apply(df, 1, is.element, 2)

      [,1]  [,2]  [,3]
[1,]  TRUE FALSE FALSE
[2,] FALSE FALSE FALSE
[3,]  TRUE FALSE FALSE

现在，哪些行都是FALSE？

no_twos <- apply(!is_two, 1, all)
df[no_twos,]
 a b c
2 3 4 7