R語言ggplot2畫圖一套好看的配色以及調整字體的簡單小例子

昨天看到的一份資料，介紹的是ggplot2畫柱形圖並且使用指定的字體，我感覺最終成圖的配色還挺好看的，記錄在這裡。總共6個顏色值，分別是 c("#02B1e6", "#E81D22", "#F9BC15", "#8015f9", "#20e81d", "#e64602") ，參考資料的連結是 https://rstats-tips.net/2019/08/31/custom-fonts-in-ggplot2-and-latex/

首先用柱形圖展示一下這個顏色的效果

代碼

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()
image.png
看起來還不錯吧！
開頭提到的連結裡還提到了如何使用指定的字體，這裡可以參考一下B站的視頻教程 https://www.bilibili.com/video/BV1ke411p7B4 這個裡面提到的解決辦法是 藉助 extrafont這個R包，通過這個包中的font_import()函數將將作業系統中所有的字體導入，第一次使用時間可能會有點長。導入結束後就可以使用fonts()函數查看導入字體的名稱。font_import()函數還可以導入指定路徑下的字體
image.png
我的R語言裡目前可以使用的字體如下
image.png
R語言ggplot2畫圖如果要更改圖片整體的字體可以使用theme()函數設置text參數
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)
image.png
這裡我遇到一個問題是 從系統裡導入的字體可以使用，但是從指定目錄導入的字體還不能使用，暫時不知道是什麼原因
歡迎大家關注我的公眾號
小明的數據分析筆記本
公眾號二維碼.jpg
小明的數據分析筆記本  公眾號 主要分享：1、R語言和python做數據分析和數據可視化的簡單小例子；2、園藝植物相關轉錄組學、基因組學、群體遺傳學文獻閱讀筆記！