问警告: Mutate_impl(.data，点)：不相等因子级别:强制为字符

EN

泰坦尼克号的数据集可以从kaggle: kaggle.com/c/ Titanic /data下载。请使用train.csv或安装包'titanic‘并使用数据集titanic_train。

这是可行的

library(dplyr)
library(stringr)

titanic <- titanic %>%
    mutate(Cabin_Letter = ifelse(!is.na(Cabin), str_extract(Cabin, "[A-Z]+"), 'Unknown'))

这并不完全起作用。

titanic <- titanic %>%
    mutate(Cabin_Letter = factor(ifelse(!is.na(Cabin), str_extract(Cabin, "[A-Z]+"), 'Unknown')))

警告：

警告消息: 1:在mutate_impl(.data，点)：不相等的因子级别:强制为字符2:在mutate_impl(.data，点)：绑定字符和因子向量，强制为字符矢量3:在mutate_impl(.data，点)：绑定字符和因子矢量，强制为字符矢量4:在mutate_impl(.data，点)：绑定字符和因子矢量，强制为字符矢量5:在mutate_impl(.data，点)：绑定字符和因子矢量，强制为字符向量6:在mutate_impl(.data，点)：绑定字符和因子向量，强制为字符向量7:在mutate_impl(.data，点)：绑定字符和因子向量，强制为字符向量

我该如何解决这个问题？我不想多说一句：

titanic$Cabin_letter <- factor(titanic$Cabin_letter)