R语言读取 文件 中文乱码，R语言画图 中文不显示

R语言

读入excel文件：用openxlsx

 

install.packages(openxlsx)

library(openxlsx)

 

a<-read.xlsx("exercise1.xlsx",sheet=1) #文件名+sheet的序号，简单粗暴

a<-read.xlsx("景点.xlsx",sheet=1)

 

解决读入中文乱码：

Sys.setlocale(category="LC_ALL",locale="en_US.UTF-8")

 

 

 

画图显示中文：

 

par(family='STKaiti')

 

OS X 下，用的是 STXihei，Ubuntu 你自己找到文泉驿之类的字体的 family name 改进去就行了。

 

 

两种改法，全局的和局部的：

par(family='STXihei')

plot(d, family='STXihei')

 

导出是用 RStudio 的菜单如果不行的话就只能写代码导出试试了。

 

以上来自知乎王雨晨：https://www.zhihu.com/question/21576848/answer/19339398

par(family='STXihei')

barplot(rev(a$次数),horiz=T,xlim=c(-4,5),axes=F)

text(seq(from=0.7,length.out=31,by=1.2),x=-0.5,label=rev(a$景点))

 

par(family='STXihei')

barplot(rev(a$次数),horiz=T,axes=F)

text(seq(from=0.1,length.out=31,by=1.2),x=-0.5,label=rev(a$景点),cex=0.7)