如何将带有中文字符的文件输出到与excel兼容的.csv文件中？

Question

我想导出带有中文字符向量的data.frame 。 我试图将其输出到文本文件中，它与以下代码完美配合

Sys.setlocale(category = "LC_ALL", locale = "zh_cn.utf-8")
data<-data.frame(ID=c('小李','小王','小宗'),number=c(1:3))
write.table(data,'test.txt',quote=F,row.names=F,sep='\t')

但是当我尝试使用write.csv时，如果我使用excel打开数据文件，则输出test.csv的数据的中文部分不正确，详见下图。 / p>

write.csv(data,'test.csv',row.names=F)

我在stackoverflow上发现了类似的帖子，但未能弄清楚如何处理我的情况。 How to export a csv in utf-8 format?

是否有任何解决方案可以输出与excel兼容的数据文件？