與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