使用tidyverse遇到的一个问题

library(tidyverse)

iris %>% 
  dplyr::mutate(temp = case_when(
    Species == "setosa" ~ "lp",
    TRUE ~ Species
  ))

报错：

Error in `dplyr::mutate()`:
! Problem while computing `temp = case_when(Species
  == "setosa" ~ "lp", TRUE ~ Species)`.
Caused by error in `case_when()`:

Run `rlang::last_error()` to see where the error occurred.

这样就不报错：

iris %>% 
  dplyr::mutate(Species = as.character(Species)) %>% 
  dplyr::mutate(temp = case_when(
    Species == "setosa" ~ "lp",
    TRUE ~ Species
  ))