事情是這樣的：今天在使用Y叔推薦的ggThemeAssist包時(shí)候，發(fā)現(xiàn)調(diào)整字體時(shí)候報(bào)錯(cuò)了

library(ggplot2)
data(mtcars)
gplot(mtcars, aes(x = hp , y = mpg,color = cyl)) + geom_point() -> gg
library(ggThemeAssist)
ggThemeAssistGadget(gg)
## Windows字體數(shù)據(jù)庫里沒有這樣的字體系列

130309.png

于是查詢發(fā)現(xiàn)安裝Cairo包即可

install.packages('Cairo'）
## 但是報(bào)錯(cuò)了

eqwee.png

然后谷歌查找了一下答案，發(fā)現(xiàn)萬能的谷歌，我們遇到的問題別人基本也遇到過
solution ways

## 在R中輸入以下命令
trace(utils:::unpackPkgZip, edit=TRUE)
##然后將第142行的Sys.sleep(0.5) 改為 Sys.sleep(2.5)
## 然后很神奇就能安裝了。

eqwe.png

So amazing