R/dplyr：根据两个条件替换行值，保持所有其他条件不变

Question

I have a data set that has a variable fruit and a owner. Input:

ID  Fruit       Owner
1   apple       Jane
2   orange      Jane's dog
3   cherry      John
4   apple       John's cat
5   orange      John
6   cherry      Jane's dog

I want to rename all values in the fruit column if two conditions across the fruit and owner column are met; the fruit is NOT an apple, and the owner contains a ' symbol. I want the end result to look like this:

ID  Fruit       Owner
1   apple       Jane
2   carrot      Jane's dog
3   cherry      John
4   apple       John's cat
5   orange      John
6   carrot      Jane's dog

I tried using dplyr, but this data snippet drops all other rows that are not met by the conditions. I need to keep all rows, and merely replace the values in those where the two conditions are met:

qx2 <- qx %>%
    dplyr::filter(grepl("'", Owner)) %>% 
    dplyr::filter(Fruit != "apple") %>% 
    dplyr::mutate(Fruit = "carrot")

I also tried this snippet, which doesn't do anything at all:

qx2$Fruit[qx2$Fruit== "apple" & qx2$Owner == grepl("'", qx2$Owner)] = "carrot"

Answer 1

Try the vectorized ifelse

library(dplyr)
    qx %>%
       mutate(Fruit = ifelse(Fruit != "apple" & grepl("'", Owner), "carrot", Fruit))