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

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

R 語言科研繪圖模板 --- sciRplothttps://mp.weixin.qq.com/s/QA_8LVqjkdg4A16zLonw4w?payreadticket=HFLOAncGRDz6yRsCTNzc-Kcm3G1KwIbFQ7EvHuhwg_HxWTCq_umJlitFrq5vaHBVSx0N6-o

本期繪圖預覽：

?

?

?

1. 導入包

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

library(ggplot2)

2. 準備數據

?

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

data <- sciRplot_data

查看下數據格式：

?

3. 準備配色

?

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

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

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

?

R 語言科研配色工具 --- sciRcolorhttps://mp.weixin.qq.com/s/XZol4VxvHnJD_49ij3f2mg?payreadticket=HLlkm7ZxA2IS8TE108ehxgrBVVdQR74HBdZEk1Oqe3VfQFVKUqQ7AqabZ96nf8z6rWSyqd0

4. 繪制圖形

?

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

p?<-???ggplot(data, aes(x=x,y=y)) +??geom_segment(aes(x=x, xend=x, y=y1, yend=y2), color="#C9CACA", size=3) +??geom_point(aes(x=x, y=y1), color=colors[1], size=10) +??geom_point(aes(x=x, y=y2), color=colors[2], size=10) +??labs(x="X", y="Y", title="") +??scale_y_continuous(breaks=seq(0,50,10), limits = c(0,50),? ? ? ? ? ? ? ? ? ? ?expand?= expansion(mult = c(0,?0.05))) +??theme_classic(base_size =?25) +???theme(panel.grid.major.y = element_line())p

5. 保存圖形

?

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

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

?

?

sciRplot 介紹

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

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

?

?

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

?

?