這篇文章給大家介紹怎么用R語(yǔ)言ggplot2畫(huà)圖及一套好看的配色以及調(diào)整字體，內(nèi)容非常詳細(xì)，感興趣的小伙伴們可以參考借鑒，希望對(duì)大家能有所幫助。
目前累計(jì)服務(wù)客戶成百上千家，積累了豐富的產(chǎn)品開(kāi)發(fā)及服務(wù)經(jīng)驗(yàn)。以網(wǎng)站設(shè)計(jì)水平和技術(shù)實(shí)力，樹(shù)立企業(yè)形象，為客戶提供成都網(wǎng)站建設(shè)、成都做網(wǎng)站、網(wǎng)站策劃、網(wǎng)頁(yè)設(shè)計(jì)、網(wǎng)絡(luò)營(yíng)銷、VI設(shè)計(jì)、網(wǎng)站改版、漏洞修補(bǔ)等服務(wù)。創(chuàng)新互聯(lián)始終以務(wù)實(shí)、誠(chéng)信為根本，不斷創(chuàng)新和提高建站品質(zhì)，通過(guò)對(duì)領(lǐng)先技術(shù)的掌握、對(duì)創(chuàng)意設(shè)計(jì)的研究、對(duì)客戶形象的視覺(jué)傳遞、對(duì)應(yīng)用系統(tǒng)的結(jié)合，為客戶提供更好的一站式互聯(lián)網(wǎng)解決方案，攜手廣大客戶，共同發(fā)展進(jìn)步。
昨天看到的一份資料，介紹的是ggplot2畫(huà)柱形圖并且使用指定的字體，我感覺(jué)最終成圖的配色還挺好看的，記錄在這里。總共6個(gè)顏色值，分別是 c("#02B1e6", "#E81D22", "#F9BC15", "#8015f9", "#20e81d", "#e64602")
代碼
重慶分公司
重慶分公司
col<-c("#02B1e6", "#E81D22", "#F9BC15", "#8015f9", "#20e81d", "#e64602")
df<-data.frame(x=LETTERS[1:6],
y=6,
label=c("#02B1e6", "#E81D22", "#F9BC15", "#8015f9", "#20e81d", "#e64602"))
library(ggplot2)
ggplot(df,aes(x=x,y=y))+
geom_col(aes(fill=x),show.legend = FALSE)+
geom_label(aes(label=label))+
scale_fill_manual(values = col)+
theme_void()
看起來(lái)還不錯(cuò)吧！
開(kāi)頭提到的鏈接里還提到了如何使用指定的字體，這里可以參考一下B站的視頻教程 https://www.bilibili.com/video/BV1ke411p7B4 這個(gè)里面提到的解決辦法是 借助
extrafont這個(gè)R包，通過(guò)這個(gè)包中的font_import()函數(shù)將將操作系統(tǒng)中所有的字體導(dǎo)入，第一次使用時(shí)間可能會(huì)有點(diǎn)長(zhǎng)。導(dǎo)入結(jié)束后就可以使用fonts()函數(shù)查看導(dǎo)入字體的名稱。font_import()函數(shù)還可以導(dǎo)入指定路徑下的字體
我的R語(yǔ)言里目前可以使用的字體如下
R語(yǔ)言ggplot2畫(huà)圖如果要更改圖片整體的字體可以使用theme()函數(shù)設(shè)置text參數(shù)
library(ggplot2)
library(Cairo)
p<-ggplot(df,aes(x=x,y=y))+
geom_col(aes(fill=x),show.legend = FALSE)+
geom_label(aes(label=label),family="Times New Roman")+
scale_fill_manual(values = col)+
theme_bw()+
theme(text = element_text(family = "Times New Roman",
size=20))
ggsave("Rplot01.pdf",p,device = cairo_pdf)
這里我遇到一個(gè)問(wèn)題是 從系統(tǒng)里導(dǎo)入的字體可以使用，但是從指定目錄導(dǎo)入的字體還不能使用，暫時(shí)不知道是什么原因。
關(guān)于怎么用R語(yǔ)言ggplot2畫(huà)圖及一套好看的配色以及調(diào)整字體就分享到這里了，希望以上內(nèi)容可以對(duì)大家有一定的幫助，可以學(xué)到更多知識(shí)。如果覺(jué)得文章不錯(cuò)，可以把它分享出去讓更多的人看到。
