我已使用以下内容拆分了一个列（名为“机舱”），其中对象包含字母/数字，例如C23，D48等
library(stringr)
cabintest$Cabin1 <- str_extract_all(cabintest$Cabin, "[0-9]+")
cabintest$Cabin2 <- str_extract_all(cabintest$Cabin, "[aA-zZ]+")
结果为两列： 带字母的机舱1，例如'C' 带数字的机舱2，例如'23'
但是，所有空白单元格都用'character（0）'填充，并且这些列已成为列表。
如何将它们转换回数据帧或可以与pls一起使用的列类？