如何用 A 列的相反值替换 B 列中的 NA 值

Question

我有一个大型数据集。其中两列包含“是”和“否”值。 Column.A 的 NA 值为 0，而 Column.B 的 NA 值约为 40%，数据集包含 500 行，其中 Col.B 与 Col.A 相反

示例列

Col.A          Col.B
Yes             No
Yes             NA
No              Yes
No              yes
Yes             No
No              NA

我想用 Col.A 的相反值替换 Col.B 中的所有 NA 值

我一直在尝试使用 for 循环根据 Col.A 值替换所有 Col.B

for (j in 1:500)
{
  if (Col.A == YES )
  {
    Col.B = "NO "
  }
  else
  {
    Col.B = "YES "
  }
}

但是 IF 语句返回 'YES' not found

Answer 1

你可以这样做：

#Convert the columns to characters
df[] <- lapply(df, as.character)
#Change NA and A = 'Yes' to 'No'
df$B[is.na(df$B) & df$A == 'Yes'] <- 'No'
#change remaining values to 'Yes'
df$B[is.na(df$B)] <- 'Yes'

Answer 2

您可以为此使用 ifelse。

字符串

df$B<-ifelse(is.na(df$B), ifelse(df$A=="YES ", "NO ", "YES "), df$B)


df<-data.frame(A=c("Yes", "Yes", "No", "No", "Yes","No"), B=c("No", NA, "Yes", "Yes", "No", NA))
> 
> df
    A    B
1 Yes   No
2 Yes <NA>
3  No  Yes
4  No  Yes
5 Yes   No
6  No <NA>
> 
> df$B<-ifelse(is.na(df$B), ifelse(df$A=="Yes", "No", "Yes"), df$B)
> 
> df
    A   B
1 Yes  No
2 Yes  No
3  No Yes
4  No Yes
5 Yes  No
6  No Yes

因素

df<-data.frame(A=c("Yes", "Yes", "No", "No", "Yes","No"), B=c("No", NA, "Yes", "Yes", "No", NA), stringsAsFactors = TRUE)
> 
> df
    A    B
1 Yes   No
2 Yes <NA>
3  No  Yes
4  No  Yes
5 Yes   No
6  No <NA>
> 
> df$B[is.na(df$B)]<-as.factor(ifelse(df$A[is.na(df$B)]=="Yes","No", "Yes" ))
> 
> df
    A   B
1 Yes  No
2 Yes  No
3  No Yes
4  No Yes
5 Yes  No
6  No Yes