Ошибка при замене значения в кадре данных НСБУ

Question

Скажем, у меня есть этот dataframe 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 

Потому что по какой-то причине я получаю dataframe с НС, хотя я подмножество только "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