將NA應用於滿足R中條件的行

Question

我有一個像這樣的data.frame：

 set.seed(126)
df <- data.frame(a=sample(c(1:100, NA), 10), b=sample(1:100, 10), c=sample(1:100, 10))

    a  b  c
1  65 48 19
2  46 15 80
3  NA 47 84
4  68 34 46
5  23 75 42
6  92 87 68
7  79 28 48
8  84 55  9
9  28 43 38
10 94 99 77
> 

我想編寫一個將df$a為NA所有列中的所有值都轉換為NA的函數。但是，我不想只給b和c NA的值，而是希望一個函數將所有如果滿足條件is.na(a)則is.na(a)中的所有列都為NA，無論列數如何。

Answer 1

我想你只是在找

df[is.na(df$a), ] <- NA
#     a  b  c
# 1  65 48 19
# 2  46 15 80
# 3  NA NA NA
# 4  68 34 46
# 5  23 75 42
# 6  92 87 68
# 7  79 28 48
# 8  84 55  9
# 9  28 43 38
# 10 94 99 77