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

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

R 語言科研繪圖模板 --- sciRplothttps://mp.weixin.qq.com/s/QA_8LVqjkdg4A16zLonw4w?payreadticket=HKSOocYtB3kU7I9ppELkV3y7KcVhEgDNHnU45KgJ0Up0xsd2-W-ZH0JJQ1bFdzrAPn4oQgQ本期繪圖預覽：

?

1. 導入包

?

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

library(linkET)library(ggplot2)library(dplyr)library(vegan)

2. 準備數據

?

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

data?<- sciRplot_data

查看下數據格式：

?

3. 準備配色

?

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

node.fill?<-?"#5470c6"square_color <-?c("#5470c6","white","#91cc75")couple_color <-?c("#EE6666","#73C0DE","gray")

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

R 語言科研配色工具 --- sciRcolorhttps://mp.weixin.qq.com/s/XZol4VxvHnJD_49ij3f2mg?payreadticket=HKK3e6b-U_In0ECA_sTQJS6ni-3YN92OIZtHAMIAF7NOcaVU5lFP8i2QWkHCMuBA-Pzrb3Y

4. 繪制圖形

?

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

p?<-???qcorrplot(correlate(varechem), type =?"lower", diag = FALSE) +??geom_square() +??geom_couple(aes(colour = pd, size = rd), data = mantel,? ? ? ? ? ? ??curvature?= nice_curvature(),?? ? ? ? ? ? ??node.fill=node.fill, node.colour="black") +??scale_fill_gradientn(colours = square_color) +??scale_size_manual(values = c(0.5,?1,?2)) +??scale_colour_manual(values = couple_color) +??guides(size = guide_legend(title =?"Mantel's r",? ? ? ? ? ? ? ? ? ? ? ? ? ? ?override.aes = list(colour =?"gray"),?? ? ? ? ? ? ? ? ? ? ? ? ? ? ?order?=?2),? ? ? ? ?colour?= guide_legend(title =?"Mantel's p",?? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?override.aes = list(size =?3),?? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?order?=?1),? ? ? ? ?fill?= guide_colorbar(title =?"Pearson's r", order =?3))p

5. 保存圖形

?

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

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

?

?

sciRplot 介紹

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

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

?

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

?

?

?