如何用R中的多个条件替换值

Question

我有一些data，我发现了一些异常值需要修改。但我不想替换该列中的所有值，而是想使用某些特定标准来替换该列中的异常值。

例如，在day 列中，对于拥有UniqueKey == 1234 和UniqueKey == 1321 的参与者，我想将80 替换为8，70 替换为7。

对于UniqueKey == 1484 的参与者，我想将month 列的值从79 替换为09，并将day 列替换为7。

像这样用多个条件替换，我该如何实现？

非常感谢。

这是我的代码，它根本不起作用。

jimma3n<-jimma3 %>%
        select(Enterdateofexam,Enterdateofexam2, Enterdayofexam, UniqueKey,MEDICALRECORD)%>%
        mutate(
                 day=str_replace_all(day,c("80"="8","70"="7")),
                 month=str_replace(month,"25"="05"),
                 if_else((UniqueKey=="1484" & month=="79"), (day=="7"& month=="09") )
              )

Answer 1

更新：感谢 Onyambu 的宝贵评论：

jimma3n<-jimma3 %>%
    select(Enterdateofexam,Enterdateofexam2, Enterdayofexam, UniqueKey,MEDICALRECORD)%>%
    mutate(
        day= case_when(UniqueKey == 1234 | UniqueKey= 1321 & day==80 ~ 8,
                       UniqueKey == 1234 | UniqueKey= 1321 & day==70 ~ 7,
                       UniqueKey == 1484 & day==79 ~ 7,
                       TRUE ~ day),
        month = case_when(UniqueKey== 1484 & month==79 ~ 09,
                       TRUE ~ month)
        )

好的，试试这个，请告诉我：

jimma3n<-jimma3 %>%
    select(Enterdateofexam,Enterdateofexam2, Enterdayofexam, UniqueKey,MEDICALRECORD)%>%
    mutate(
        day= case_when(UniqueKey == 1234 | UniqueKey= 1321 & day==80 ~ 8,
                       UniqueKey == 1234 | UniqueKey= 1321 & day==70 ~ 7,
                       UniqueKey == 1484 & day==79 ~ 7,
                       TRUE ~ day)
        ) %>%
    mutate(
        month = case_when(UniqueKey== 1484 & month==79 ~ 09,
        TRUE ~ month)
        )