在發表科研論文的過程中，科研繪圖是必不可少的，一張好看的圖形會是文章很大的加分項。

為了便于使用，本系列文章介紹的所有繪圖都已收錄到了?sciRplot?項目中，獲取方式：

R 語言科研繪圖模板 --- sciRplothttps://mp.weixin.qq.com/s/QA_8LVqjkdg4A16zLonw4w?payreadticket=HDrrxNqt055F-HiI-tK7eunlirj_osyQBhjZS1udemgj--u4Lb4wR6YeUxc6k595ZnO5HFM

本期繪圖預覽：

1. 導入包

我們首先導入本期繪圖用到的 R 包：

library(ggplot2)

2. 準備數據

接下來我們導入繪圖用到的數據，在?sciRplot?中給大家提供了測試數據：

data <- sciRplot_data

3. 準備配色

顏色的選擇往往是一件讓人特別糾結的事情，這里我們直接使用?sciRcolor?來設置配色：

colors?<- sciRcolor::pal_scircolor(37)[1:5]

sciRcolor?是為了 R 語言科研繪圖開發的配色工具，包含了 100 種常用配色，詳細信息見：

R 語言科研配色工具 --- sciRcolorhttps://mp.weixin.qq.com/s/XZol4VxvHnJD_49ij3f2mg?payreadticket=HB-1pMNzEdhCu6BfoSdwBdXLag3EMq-onmfI95HxZHQrOz1aawCE1zy4p55JY1TuC-ecDv0

4. 繪制圖形

接下來我們通過下面的代碼來繪制圖形：

p?<-???ggplot(data, aes(x=Type, y=Value, fill=Type)) +??geom_bar(stat="identity", width=0.8) +??geom_text(aes(label=Value), color="white", size=8, position = position_stack(reverse =T, vjust=0.5)) +??coord_polar(theta="x",start=0) +??ylim(-0.1,0.4) +??theme_void(base_size =?25) +??theme(legend.position =?"top") +??scale_fill_manual(values = colors)p

5. 保存圖形

最后我們保存繪制的圖形：

ggsave("save/pie-rose.png", p, width =?8, height =?6, dpi =?300)

sciRplot 介紹

為了解決 R 語言中科研繪圖的問題，我推出了?sciRplot?項目。sciRplot?項目包含了以下內容：

①?100?種繪圖代碼，按照圖形類型進行分類，包含?60?種基礎繪圖和?40?種進階繪圖

② 配備一站式?html文檔，包含測試數據，代碼一鍵復制，交互式閱讀提高用戶體驗