下載字體

下載字體的網站可以去求字網，下載到的文字解壓到系統自己文件夾中（C:\Windows\Fonts）

showtext包介紹

在系統字體存儲盤中找到想要的字體，右鍵-屬性找到其真正的名字。例如：楷書的名字為“simkai.ttf”
使用font_add函數添加字體

library(showtext) font_add(myfont, "simkai.ttf") ##添加字體 font.families() ##查看添加的字體 [1] "sans" "serif" "mono" "wqy-microhei" "myfont"

使用showtext包中的函數加載和去掉字體

showtext.begin()##加載字體 showtext.end()##去掉字體

Cairo包介紹

使用Cairo包導出：我們在用作圖的時候會發現，如果含有中文的話，通過showtext設置了語言。**在保存為png或者jpeg格式的時候是發現字體改變了。但是如果在保存為pdf格式的時候會發現中文全是…或者會發生錯誤。**這個時候就需要用到Cairo包中了。

Cairo.capabilities() ##查看cairo包支持的所有導出格式 png jpeg tiff pdf svg ps x11 win raster TRUE FALSE FALSE TRUE TRUE TRUE FALSE TRUE TRUE

使用新字體作圖并導出pdf

通過上面的兩個包我們就很輕松的解決了R語言中導出PDF格式的時候亂碼的問題。下面來一段示例看一下吧

library("showtext") setwd("C:/Users/Administrator/Desktop") td<-c("C:/Users/Administrator/Desktop") # font_add( "myfont",simkai.ttf") ##添加字體 # font.families() ##查看添加的字體 # showtext_begin() ##使用字體 # showtext_end() ##停止使用字體library("ggplot2") library("Cairo") font_add("myfont","STCAIYUN.TTF") ##加載華文彩云字體 font.families() #顯示字體 #[1] "sans" "serif" "mono" "wqy-microhei" "myfont" "wmpeople1" CairoPDF("mm.pdf") showtext_begin() ##使用字體 ggplot(diamonds,aes(color,fill=cut))+geom_bar()+ggtitle("鉆石質量情況")+theme(title=element_text(family="myfont")) showtext_end() ##停止使用字體 dev.off()system(paste(getOption('pdfviewer'),file.path(td,'mm.pdf')))

效果如下：

來源可見:https://www.jianshu.com/p/97c915e66ff4

總結

以上是生活随笔為你收集整理的R软件中调用windows字体二的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。