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)