在条件下替换值

Question

我正在尝试替换此表中显示的值。

• 如果A为NA，B和C将A设置为Unknown。
• 如果A为NA且B或C有值，请将A设为Missing Value

     A         B     C   
 1  NA        NA    NA  
 2  NA       200    NA  


              A        B       C       
1  NotImportant       NA      NA   
2       Unknown      200      NA    

我试过某种，

if(is.na(ColumnA)) ColumnB[is.na(ColumnB)] <= "Not Important"  
if(is.na(ColumnA)) ColumnB[!is.na(ColumnB)] <= "Unknown"

但我没有结果。

有人可以帮我解决这个问题吗？我希望我能很好地描述我的问题。

Answer 1

df$A <- ifelse(!is.na(df$A), 
                      df$A, 
                      ifelse(is.na(df$B) & is.na(df$C), 
                             "Not Important", 
                             "Missing Value"))

# A   B  C
# 1 Not Important  NA NA
# 2 Missing Value 200 NA

Answer 2

您可以尝试val('new value');是您的数据：

df

Answer 3

以下是case_when使用dplyr的方法：

df <- structure(list(A = c(NA, NA), B = c(NA, 200L), C = c(NA, NA)), .Names = c("A",
"B", "C"), class = "data.frame", row.names = c("1", "2"))

library(dplyr)
df%>%
mutate(A=case_when(
 is.na(.$A)&is.na(.$B)&is.na(.$C)   ~ "Not Important",
 is.na(.$A)&(is.na(.$B)|is.na(.$C)) ~ "Unknown")
 )

              A   B  C
1 Not Important  NA NA
2       Unknown 200 NA