r语言 - 用NAs替换数据帧中的值时出错

Question

假设我有这个数据框z:

x <- c("NS","NS",NA) 
y <- c("yes","yes","b") 
z <- as.data.frame(cbind(x,y), stringsAsFactors=FALSE)
> z
     x   y
1   NS yes
2   NS yes
3 <NA>  b

我只想将包含"yes"元素的值更改为"a"。如果我这样做，我得到一个错误:

z[z$x=="NS","yes"]<-"a"
Error in `[<-.data.frame`(`*tmp*`, z$x == "NS", "yes", value = "a") : 
  missing values are not allowed in subscripted assignments of data frames

因为某种原因，我得到了NA的数据帧，即使我只是"NS"的子集。如果我删除NA，我得到另一个错误:

na.omit(z[z$x=="NS","a"])<-"no"
Error in na.omit(z[z$x == "NS", "a"]) <- "no" : 
  could not find function "na.omit<-"

Answer 1

第一个问题是正确指定变量名称，即名称而不是值(可能只是您的问题中的拼写错误):"y"而不是"yes"。

当您使用==时，另一个问题出现了，它试图考虑如何处理第三行中的NA:

x=="NS"
[1] TRUE TRUE   NA

嗯，应该保留还是不保留?它既不是TRUE也不是FALSE…所以它只是给出一个错误，因为它不能"决定"。

而使用%in%(实际上是match(x, table, nomatch = 0))，我们得到:

x %in% "NS"
[1]  TRUE  TRUE FALSE

好了，NA与"NS"的值不匹配，所以它返回0，或者，在logical中，FALSE:我们不应该保留它。

因此，要得到你想要的:

z[z$x %in% "NS", "y"] <- "a"
z
#     x y
#1   NS a
#2   NS a
#3 <NA> b

Answer 2

为了简短，我将使用:

x <- c("NS","NS",NA) 
y <- c("yes","yes","b") 
z <- as.data.frame(cbind(x,y))
z[, c('y')] <- ifelse(y == 'yes', 'a', y)

Answer 3

为什么不这么简单呢:

z[!is.na(z$x=="NS") & z$y=="yes", "y"] <- "a"
#      x y
# 1   NS a
# 2   NS a
# 3 <NA> b