R軟體中呼叫windows字型二

2021-09-02 15:15:34 字數 1714 閱讀 1578

在系統字型儲存盤中找到想要的字型,右鍵-屬性找到其真正的名字。例如:楷書的名字為「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包匯出:我們在用作圖的時候會發現,如果含有中文的話,通過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

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

library("showtext")

setwd("c:/users/administrator/desktop")

td# 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')))

效果如下:

**可見:

R語言中呼叫windows中的字型方法

windowsfonts a windowsfont 華文彩雲 這裡使用的是字型的主題名稱 b windowsfont 華文仿宋 c windowsfont 華文行楷 d windowsfont 華文楷體 e windowsfont 華文隸書 f windowsfont 華文中宋 g windows...

Visual C 中呼叫Windows服務初探

這裡把執行緒的優先順序設到最低,這樣不會耗用過多的系統效能。這個執行緒物件使用threadfunc作為執行緒函式,因此將這個執行緒函式補充完整 public static void threadfunc 安裝完後能過系統的服務管理器你就可以看到你的服務了,只要點選啟動就可以把它啟動,把時間向前改乙個...

linux去掉windows下檔案中的 r

參考 unix體系裡,每行結尾只有 換行 即 n windows體系裡面,每行結尾是 換行 回 車 即 n r 乙個直接結果是,unix體系下的檔案在windows裡開啟的話,所有文字會變成一行 而windows裡的檔案在unix下開啟的話,在每行的結尾可能會多出乙個 m符號。好了,所以我的題目就出...