ggplot2參數(shù)設(shè)置麻煩？試試ggpar！

發(fā)稿時(shí)間：2020-09-08來源：天昊生物

ggpar包是一個(gè)用于圖形參數(shù)調(diào)整的包，但對(duì)于該包的使用介紹目前并不多見，這里，我們提供了官網(wǎng)的示例，并加以解釋

（https://www.rdocumentation.org/packages/ggpubr/versions/0.1.4/topics/ggpar ）。

加載R包和數(shù)據(jù)

In[1]:

.libPaths("C:/Program Files/R/R-3.6.1/library")
library(ggpubr)

In [2]:

# Load data
data("ToothGrowth")
df <- ToothGrowth
head(df)

Out[2]:

len  supp  dose
4.2  VC  0.5
11.5  VC  0.5
7.3  VC  0.5
5.8  VC  0.5
6.4  VC  0.5
10.0  VC  0.5

1. 常見的箱體圖

In[3]:

p <- ggboxplot(df, x = "dose", y = "len")
p

Out[3]:

2. 更改繪圖方向

可選參數(shù)："vertical", "horizontal", "reverse" (“垂直”，“水平”，“反向”)

In[4]:

ggpar(p, orientation = "vertical")

Out[4]:

In[5]:

ggpar(p, orientation = "reverse")

Out[5]:

In[6]:

ggpar(p, orientation = "horizontal")

Out[6]:

rotate 如果為TRUE，則通過將繪圖方向設(shè)置為水平來旋轉(zhuǎn)圖形。

In[7]:

ggpar(p,rotate = T)

Out[7]:

1. 更改標(biāo)題名和軸標(biāo)簽名

In[8]:

ggpar(p,
   main = "Plot of length n by dose",
   xlab = "Dose (mg)", ylab = "Length")

Out[8]:

2. 更改標(biāo)題和軸標(biāo)簽樣式

標(biāo)題字體樣式: 'plain', 'italic', 'bold', 'bold.italic'(“普通”，“斜體”，“粗體”，“斜粗體”)

In[9]:

ggpar(p,
   main = "Length by dose",
   submain = "plot by length",
   font.main = c(24,"bold.italic", "red"),
   font.submain = c(14,"bold.italic", "green"),
   font.x = c(14, "bold", "#2E9FDF"),
   font.y = c(14, "bold", "#E7B800"))

Out[9]:

3. 隱藏軸標(biāo)簽

In[10]:

ggpar(p, xlab = FALSE, ylab = FALSE)

Out[10]:

1. 帶顏色的箱體圖

In[11]:

p2 <- ggboxplot(df, "dose", "len", color = "dose")
p2

Out[11]:

2. 使用自定義調(diào)色板

In[12]:

ggpar(p2, palette = c("#00AFBB", "#E7B800", "#FC4E07"))

Out[12]:

3. 使用Dark2 、grey 、 npg等調(diào)色板

In[13]:

ggpar(p2, palette = "Dark2" )

Out[13]:

In[14]:

ggpar(p2, palette = "grey")

Out[14]:

In[15]:

ggpar(p2, palette = "npg") # nature

Out[15]:

1. 軸刻度標(biāo)簽和旋轉(zhuǎn)

font.tickslab, font.xtickslab, font.ytickslab：刻度標(biāo)簽的字體樣式（大小，字體，顏色）

x.text.angle, y.text.angle：x、y軸的字體方向

In[16]:

ggpar(p,
 font.tickslab = c(14,"bold", "#993333"),
 x.text.angle = 45, y.text.angle = 45)

Out[16]:

2. 隱藏軸刻度和刻度標(biāo)簽

In[17]:

ggpar(p, ticks = F, tickslab = F)

Out[17]:

3. 設(shè)置軸的范圍

In[18]:

ggpar(p, ylim = c(-20, 60))

Out[18]:

In[19]:

ggpar(p, ylim = c(-20, 60),yticks.by = 10 )

Out[19]:

4. 軸刻度log2轉(zhuǎn)換

In[20]:

ggpar(p, yscale = "log2", format.scale = TRUE)

Out[20]:

1. 更改圖例的位置和標(biāo)題

In[21]:

ggpar(p2,
 legend = "right", legend.title = "Dose (mg)",
 font.legend = c(10, "bold", "red"))

Out[21]:

往期相關(guān)鏈接：

1、R基礎(chǔ)篇

excel不熟練怎么辦，R來幫您（一）數(shù)據(jù)分類匯總；

如何使用Rstudio練習(xí)R基礎(chǔ)教程；

R相關(guān)軟件及R包安裝；

【零基礎(chǔ)學(xué)繪圖】之氣泡圖繪制（六）；

【零基礎(chǔ)學(xué)繪圖】之繪制venn圖（五）；
【零基礎(chǔ)學(xué)繪圖】之繪制barplot柱狀圖圖（四）；
【零基礎(chǔ)學(xué)繪圖】之繪制heatmap圖（三）；

【零基礎(chǔ)學(xué)繪圖】之繪制PCA圖（二）；

【零基礎(chǔ)學(xué)繪圖】之a(chǎn)lpha指數(shù)箱體圖繪制（一）；

2、R進(jìn)階

【繪圖進(jìn)階】之帶連線的箱體圖繪制(8)；

【繪圖進(jìn)階】之配對(duì)箱體圖繪制(七)；

【繪圖進(jìn)階】之通路與菌的相關(guān)性分析熱圖(六)；

【繪圖進(jìn)階】之lefse定制化繪圖(五)；

【繪圖進(jìn)階】之六種帶中心點(diǎn)的PCA 圖和三維PCA圖繪制（四）；

【繪圖進(jìn)階】之交互式可刪減分組和顯示樣品名的PCA 圖（三）；

【繪圖進(jìn)階】之繪制PCA biplot圖(二)；

【進(jìn)階篇繪圖】之帶P值的箱體圖、小提琴圖繪制（一）；

3.python基礎(chǔ)篇

Python入門到底有多簡(jiǎn)單（一）：數(shù)據(jù)讀寫與輸出；

4、數(shù)據(jù)提交

3分鐘學(xué)會(huì)微生物多樣性云平臺(tái)數(shù)據(jù)分析;

3分鐘學(xué)會(huì)CHIP-seq類實(shí)驗(yàn)測(cè)序數(shù)據(jù)可視化 —IGV的使用手冊(cè)；

10分鐘搞定多樣性數(shù)據(jù)提交，最快半天內(nèi)獲取登錄號(hào)，史上最全的多樣性原始數(shù)據(jù)提交教程；

20分鐘搞定GEO上傳，史上最簡(jiǎn)單、最詳細(xì)的GEO數(shù)據(jù)上傳攻略；

5、表達(dá)譜分析

表達(dá)譜分析（二）通路富集分析和基因互作網(wǎng)絡(luò)圖繪制；

如何對(duì)GEO數(shù)據(jù)進(jìn)行差異分析；

miRNA靶基因預(yù)測(cè)軟件__miRWalk 3.0；

6、醫(yī)學(xué)數(shù)據(jù)分析

KING: 樣本親緣關(guān)系鑒定工具；

【W(wǎng)GS服務(wù)升級(jí)】人工智能軟件SpliceAI助力解讀罕見和未確診疾病中的非編碼突變；

隱性疾病trio家系別忽視單親二倍體現(xiàn)象——天昊數(shù)據(jù)分析助力臨床疾病診斷新添UPD（單親二倍體）可視化分析工具；

【昊工具】Oh My God! 太好用了吧！疾病或表型的關(guān)鍵基因查詢數(shù)據(jù)庫，我不允許你不知道Phenolyzer；

天昊客戶服務(wù)中心

手機(jī)/微信號(hào)：18964693703

【本群將為大家提供】

分享生信分析方案

提供數(shù)據(jù)素材及分析軟件支持

定期開展生信分析線上講座

QQ號(hào)：1040471849

作者：大熊

審核：有才

來源：天昊生信團(tuán)