Sys.setlocale("LC_ALL", "zh_cn.utf-8")
另外，ggplot作图中文也乱码，表示为小方块，在作图代码后加入下面的代码可以解决：
+theme(text = element_text(family='Kai'))
Excel打开csv为乱码可能是文字格式造成的，建议不要直接用Excel打开csv文件，而采用导入的方式，具体操作步骤如下：
选择数据-自文本：
选择csv文件所在位置
按照提示的步骤进行导入，注意格式选择为UTF-8，这个可能就是造成乱码的关键
默认选择分割符号为tab，也有可能为逗号，视具体文件而定:
按照需要的格式对每列进行设置，最终导入Excel完成：
读取表格 坑1：列名称不对，使用了R不能识别的列名1 | follow_table <- read.csv("follow_table.csv", header = T)
返回
follow_table <- read.csv("follow_table.csv", header = T)
Error in make.names(col.names, unique = TRUE) :
invalid multibyte string 2
返回表格，把列名中含数字的都去掉，改成字母+下划线就好了。
读取表格坑2 ：
orignal_table <- read.csv("original_table.csv",header = T)
Error in read.table(file = file, header = header, sep = sep, quote = quote, :
列的数目比列的名字要多
后来看了，表格为逗号分隔符，加上 sep = "," ，还是没好，把表头 设置成 header = F 就好了
orignal_table <- read.csv("original_table.csv",sep=",", header = F)
这样读取的表格还是不行，因为第一列的列名为乱码。
百度搜索了解决办法，[R语言读取csv文件，第一列列名出现乱码的解决方法] ( Rhttps://blog.csdn.net/weixin_45075290/article/details/90695638 )
原来是因为只是把表格另存为csv是不行了，需要把表格导出为CSV的格式。
两个表格通过同一个列名合并，最终得到的是其同一列名交集的最终对应的变量。
