R：如何将各种类型的表转换为文本列以进行导出

Question

在从Excel加载的表中，我有2列数据：ID，BeforeConv 分别包含数字和文本。 将数据从Excel加载到R Studio后，我对BeforeConve列进行了一些基于tm_map的文本清理，将副本应用于RStudio中的新列：AfterConv

This is my code:
x <- read_excel(file.choose())
corpus<-Corpus(VectorSource(x$BeforeConv))
corpus<-tm_map(corpus,tolower)
x$AfterConv<-data.frame(text = sapply(corpus, as.character)) //<-here in R  studio data displayed correctly yet
write.csv(x=x, file="R2test.csv") //<-now the data displaced 

我的问题是，在R studio中，我看到转换正确（请参见下图）

...当导出为CSV或XLSX时，最后一列（AfterConv）会显示完全混乱的数据（请参见下文）。我做错了什么以及如何解决？

最好，如果我能看到正确的代码来正确转换最后一列，以正确地将其与两个现有列一起导出到Excel或CSV。