由于R語(yǔ)言畫(huà)圖時(shí)對(duì)中文的支持坯屿，經(jīng)常出現(xiàn)亂碼誓琼，作圖很難顯示中文检激，尤其是ggplot2對(duì)中文支持不是特別友好肴捉，ggplot默認(rèn)字體不支持顯示中文，給許多使用的人帶來(lái)不便叔收，希望yihui大神能在Rstudio推動(dòng)一下齿穗。
可以有一些變通的處理方法：
使用showtext包
安裝showtext包
intall.package("show text");
library(showtext);
dev.new()# 新建圖形設(shè)備
showtext.begin();# 開(kāi)始使用showtext
wordcloud(text1$char,text1$freq,scale=c(3,0.3),min.freq=-Inf,max.words=Inf,colors=colors,random.order=F,random.color=F,ordered.colors=F)# 一系列繪圖命令
showtext.end();# 停止使用showtext
dev.off()# 關(guān)閉圖形設(shè)備
install.packages("extrafont")
library(extrafont)
font_import()
ggplot
ggplot(data_weekly2,aes(x=rank,y=department,color=event_type,size=workload))+
geom_point()+
scale_size_area(max_size=10)+
facet_grid(.~day)+
theme(text=element_text(family="STKaiti",size=14))
用Cairo包保存圖片
用Cairo包進(jìn)行保存為png、pdf等格式
require(Cairo)
CairoPNG("plot3.png",family="SimSun" )#單位為英寸饺律，此處也可設(shè)置保存pdf格式CairoPDF("plot3.pdf",family="SimSun" )
ggplot(data=p, aes(x=diqu, y=Freq,fill=diqu), fill=diqu) +
geom_bar(stat="identity")+
theme(panel.background=element_rect(fill='transparent',color ="gray"),#背景色設(shè)為透明窃页，邊框?yàn)榛疑? legend.text=element_text(family="SimSun"), #改變圖例的字體
#設(shè)定x軸坐標(biāo)標(biāo)簽的文字方向，大小复濒，顏色
axis.text.x = element_text(angle = 70, hjust = 0.5, vjust = 0.5,family="SimSun",color = "black",size=9))+
ylim(0,250)+#設(shè)置y軸取值范圍
theme(panel.grid =element_blank())+ ## 刪去網(wǎng)格線
geom_text(mapping = aes(label = p$Freq),size=3,vjust=1.4)#添加數(shù)據(jù)脖卖，并規(guī)定數(shù)據(jù)的大小和位置
dev.off() #關(guān)閉圖像設(shè)備，同時(shí)儲(chǔ)存圖片
用因子替換
使用因子數(shù)據(jù)變相替換巧颈。
舉個(gè)例子
