在dplyr中组合mutate和case_when

Question

我知道当新变量是二进制时，如何在ifelse中使用mutate，例如：

mutate(samecolor = ifelse(freqcolor == favcolor, "same", "different"))

但是现在我想将一个分类变量变成另一个在所有值中缩写的分类变量，如：

mutate(fqclr = case_when(freqcolor == "bright red" ~ "br",
                         freqcolor == "light yellow" ~ "ly",
                         freqcolor == "emerald" ~ "ed",
                         TRUE ~ "wt"))

这不起作用。谁知道我做错了什么？