与NA更换行，如果任何值不积极

Question

我的数据集是类似于下面：

df <- data.frame(
    A = c(-1, 2, 3), 
    B = c(1, 1, -1)) 
df 
# A B 
# 1 -1 1 
# 2 2 1 
# 3 3 -1 

我试图得到以下的结果，其中值当两个A和B是正不停：

A B 
1 NA NA 
2 2 1 
3 NA NA 

我试过df2 <- apply(df, 1:2, function(x) if (x > 0) x else NA)，但是当A或B是正值时它会返回值。我如何将第二个条件添加到它？

Answer 1

你可以通过使用带值1，如果所有的值都在该行中的正和否则一个向量乘以每列需要值NA：

df * ifelse(rowSums(df <= 0) > 0, NA, 1) 
# A B 
# 1 NA NA 
# 2 2 1 
# 3 NA NA 

Answer 2

replicate(NCOL(df), Reduce('|', lapply(df, function(x) x < 0)))可以给其中NA应该被取代的索引。它检查每列中是否至少有一个小于零的值。

replace(df, replicate(NCOL(df), Reduce('|', lapply(df, function(x) x < 0))), NA) 
# A B 
#1 NA NA 
#2 2 1 
#3 NA NA 

或者

df[which(!rowSums(df >= 0) == NCOL(df)),] = NA 
df 
# A B 
#1 NA NA 
#2 2 1 
#3 NA NA