软件简介
Hadley Wickham编写的ggplot2是出色且灵活的作图软件包,可用于R中的优雅数据可视化。ggplot2默认生成的绘图需要进行一些格式化,才能作出发表级别的图片质量。另外,要自定义使用ggplot,但其语法是不透明的,这对没有熟练R编程技能的用户增加了难度。“ ggpubr”软件包提供了一些易于使用的功能,用于创建和自定义基于“ ggplot2”的图片绘制。
ggpubr包的主要特点:
- ggplot2软件包周围的包装,对于R编程的初学者来说,语法不太透明。
- 使用非高级R编程技能帮助研究人员轻松创建可随时发布的图。
- 可以将p值和显着性水平自动添加到箱形图,条形图,折线图等中。
- 使在同一页面上排列和注释多个图变得容易。
- 使更改颜色和标签等图形参数变得容易。
软件安装
软件安装很方便,安装完成直接加载调用
install.packages("ggpubr")
#或者
if(!require(devtools)) install.packages("devtools")
devtools::install_github("kassambara/ggpubr")
library(ggpubr)
密度分布图
set.seed(1234)
df <- data.frame(sex=factor(rep(c("F","M"),each=200)),weight=c(rnorm(200,55),rnorm(200,58)))
ggdensity(df,x="weight",add = "mean",rug = TRUE,color = "sex",fill = "sex",palette= c("#00AFBB", "#E7B800"))
![](https://img.haomeiwen.com/i6732709/c78f2d46f879bc68.png)
柱状图
gghistogram(df,x="weight",add = "mean",rug = TRUE,color = "sex",fill = "sex",palette = c("#00AFBB", "#E7B800"))
![](https://img.haomeiwen.com/i6732709/58ff61b258949d2b.png)
# Create some data format
set.seed(1234)
wdata = data.frame(sex = factor(rep(c("F", "M"), each=200)),weight = c(rnorm(200, 55), rnorm(200, 58)))
p1 <- ggqqplot(wdata, x = "weight")
p1
![](https://img.haomeiwen.com/i6732709/782ed1112077e165.png)
# Change colors and shape by groups ("sex")
# Use custom palette
p2 <- ggqqplot(wdata, x = "weight",
color = "sex", palette = c("#00AFBB", "#E7B800"))
p2
![](https://img.haomeiwen.com/i6732709/2af92e7bbc207dfa.png)
# Create some data format
set.seed(1234)
wdata = data.frame(
sex = factor(rep(c("F", "M"), each=200)),
weight = c(rnorm(200, 55), rnorm(200, 58)))
p1 <- ggecdf(wdata, x = "weight")
p1
![](https://img.haomeiwen.com/i6732709/6c3360c92b559ff6.png)
# Change colors and linetype by groups ("sex")
# Use custom palette
p2 <- ggecdf(wdata, x = "weight",
color = "sex", linetype = "sex",
palette = c("#00AFBB", "#E7B800"))
p2
![](https://img.haomeiwen.com/i6732709/e8656242bfea3daf.png)
p3 <- ggecdf(wdata, x = "weight", facet.by = "sex",
color = "sex", linetype = "sex",
palette = c("#00AFBB", "#E7B800"))
p3
![](https://img.haomeiwen.com/i6732709/6ef688a4b6781c1e.png)
箱线图小提琴图
rm(list = ls())
data("ToothGrowth")
df1<- ToothGrowth
head(df1)
p<- ggboxplot(df1,x="dose",y="len",color = "dose",palette=c("#00AFBB", "#E7B800", "#FC4E07"),add = "jitter",shape="dose")
p
my_comparisons <- list(c("0.5", "1"), c("1", "2"), c("0.5", "2"))
p + stat_compare_means(comparisons = my_comparisons)+ stat_compare_means(label.y = 50)
ggviolin(df1,x="dose",y="len",fill = "dose",palette = c("#00AFBB", "#E7B800", "#FC4E07"), add="boxplot", add.params=list(fill="white")) + stat_compare_means(comparisons = my_comparisons, label = "p.signif") + stat_compare_means(label.y = 50)
![](https://img.haomeiwen.com/i6732709/95aa9b0c0a04c8ef.png)
![](https://img.haomeiwen.com/i6732709/7b7af3558461e43e.png)
![](https://img.haomeiwen.com/i6732709/ea9662d4268da2af.png)
柱状图
data("mtcars")
df2<- mtcars
df2$cyl <- factor(df2$cyl)
df2$name <- rownames(df2)
head(df2[,c("name","wt","mpg")])
ggbarplot(df2,x="name",y="mpg",fill = "cyl",color = "white",palette="npg",sort.val = "desc",sort.by.groups = FALSE,x.text.angle= 60)
![](https://img.haomeiwen.com/i6732709/e791970a8d4db20e.png)
data("mtcars")
df2<- mtcars
df2$cyl <- factor(df2$cyl)
df2$name <- rownames(df2)
head(df2[,c("name","wt","mpg")])
ggbarplot(df2,x="name",y="mpg",fill = "cyl",color = "white",palette="aaas",sort.val = "asc",sort.by.groups = TRUE,x.text.angle= 60)
![](https://img.haomeiwen.com/i6732709/1e9d4f4fcb257fc5.png)
df2$mpg_z <- (df2$mpg - mean(df2$mpg))/sd(df2$mpg)
df2$mpg_grp <- factor(ifelse(df2$mpg_z<0,"low","high"),levels = c("low","high"))
head(df2[,c("name","wt","mpg","mpg_grp","cyl")])
ggbarplot(df2,x="name",y="mpg_z",fill = "mpg_grp",color = "white",palette="jco",sort.val = "asc",sort.by.groups = FALSE,x.text.angle=60,ylab="MPG z-score",xlab = FALSE,legend.title="MPG Group", rotate=TRUE)
![](https://img.haomeiwen.com/i6732709/2dcd868fd28ffffc.png)
ggdotchart(df2,x="name",y="mpg",color="cyl",palette=c("#00AFBB", "#E7B800", "#FC4E07"),sorting = "ascending",label=round(df2$mpg),sort.by.groups=TRUE, add = "segments",ggtheme = theme_pubr())
![](https://img.haomeiwen.com/i6732709/52da937f2eb13bf5.png)
散点图
data("mtcars")
df <- mtcars
df$cyl <- as.factor(df$cyl)
head(df)
p1 <- ggscatter(df, x = "wt", y = "mpg",
color = "red")
p1
![](https://img.haomeiwen.com/i6732709/a24a3b2366e0f7d8.png)
p2 <- ggscatter(df, x = "wt", y = "mpg",
color = "black", shape = 21, size = 3, # Points color, shape and size
add = "reg.line", # Add regressin line
add.params = list(color = "blue", fill = "lightgray"), # Customize reg. line
conf.int = TRUE, # Add confidence interval
cor.coef = TRUE, # Add correlation coefficient. see ?stat_cor
cor.coeff.args = list(method = "pearson", label.x = 3, label.sep = "\n")
)
p2
![](https://img.haomeiwen.com/i6732709/1c36709404563850.png)
# loess method: local regression fitting
p3 <- ggscatter(df, x = "wt", y = "mpg",
add = "loess", conf.int = TRUE,
cor.coef = TRUE, # Add correlation coefficient. see ?stat_cor
cor.coeff.args = list(method = "spearman", label.x = 3, label.sep = "\n")
)
p3
![](https://img.haomeiwen.com/i6732709/5a65b9c0f9781c26.png)
# Control point size by continuous variable values ("qsec")
p4 <- ggscatter(df, x = "wt", y = "mpg",
color = "#00AFBB", size = "qsec")
p4
![](https://img.haomeiwen.com/i6732709/3bef095541a4639e.png)
# Change colors
# Use custom color palette
# Add marginal rug
p5 <- ggscatter(df, x = "wt", y = "mpg", color = "cyl", size = "qsec",
palette = c("#00AFBB", "#E7B800", "#FC4E07") )
p5
![](https://img.haomeiwen.com/i6732709/6416bbc005b70055.png)
p6 <- ggscatter(df, x = "wt", y = "mpg", color = "cyl", rug=TRUE,
palette = c("#00AFBB", "#E7B800", "#FC4E07") )
p6
![](https://img.haomeiwen.com/i6732709/4dc429968aded238.png)
# Add group ellipses and mean points
# Add stars
p7 <- ggscatter(df, x = "wt", y = "mpg",
color = "cyl", shape = "cyl",
palette = c("#00AFBB", "#E7B800", "#FC4E07"),
ellipse = TRUE)
p7
![](https://img.haomeiwen.com/i6732709/a5fa2cb936bd50f1.png)
p8 <- ggscatter(df, x = "wt", y = "mpg",
color = "cyl", shape = "cyl",
palette = c("#00AFBB", "#E7B800", "#FC4E07"),
ellipse = TRUE, ellipse.type = "convex",
mean.point = TRUE,
)
p8
![](https://img.haomeiwen.com/i6732709/846e3b34a1ea012e.png)
p9 <- ggscatter(df, x = "wt", y = "mpg",
color = "cyl", shape = "cyl",
palette = c("#00AFBB", "#E7B800", "#FC4E07"),
ellipse = TRUE, ellipse.type = 'confidence',
mean.point = TRUE,
star.plot = TRUE)
p9
![](https://img.haomeiwen.com/i6732709/751576439a6f4d8e.png)
# Textual annotation
df$name <- rownames(df)
p10 <- ggscatter(df, x = "wt", y = "mpg",
color = "cyl", palette = c("#00AFBB", "#E7B800", "#FC4E07"),
label = "name")
p10
![](https://img.haomeiwen.com/i6732709/5ff1f602c239fb59.png)
p11 <- ggscatter(df, x = "wt", y = "mpg",
color = "cyl", palette = c("#00AFBB", "#E7B800", "#FC4E07"),
label = "name", repel = TRUE)
p11
![](https://img.haomeiwen.com/i6732709/375a9cf12852be34.png)
# Data
df <- data.frame(dose=c("D0.5", "D1", "D2"),
len=c(4.2, 10, 29.5))
print(df)
p1 <- ggbarplot(df,x="dose",y="len",label=TRUE,label.pos="out")
p1
![](https://img.haomeiwen.com/i6732709/85834ef568015b8c.png)
# Change width 更改柱子的宽度
p2 <- ggbarplot(df, x = "dose", y = "len", width = 0.2)
p2
![](https://img.haomeiwen.com/i6732709/37cc61dd45a6fd2e.png)
# Change the plot orientation: horizontal 变换坐标轴的方向
p3 <- ggbarplot(df, "dose", "len", orientation = "horiz")
p3
![](https://img.haomeiwen.com/i6732709/05d56895e3b77074.png)
# Change the default order of items 设定指定的排列顺序
p4 <- ggbarplot(df, "dose", "len",
order = c("D2", "D1", "D0.5"))
p4
![](https://img.haomeiwen.com/i6732709/5b0ca5b5b692a7d1.png)
# Change colors 更改填充色和边框色
# Change fill and outline color
# add labels inside bars
p5 <- ggbarplot(df, "dose", "len",
fill = "steelblue", color = "black",
label = TRUE, lab.pos = "in", lab.col = "white")
p5
![](https://img.haomeiwen.com/i6732709/4fff94e64ab6464d.png)
# Change colors by groups: dose
# Use custom color palette
p6 <- ggbarplot(df, "dose", "len", color = "dose",
palette = c("#00AFBB", "#E7B800", "#FC4E07"))
p6
![](https://img.haomeiwen.com/i6732709/c186f918f3f5e24c.png)
# Change fill and outline colors by groups
p7 <- ggbarplot(df, "dose", "len",
fill = "dose", color = "dose",
palette = c("#00AFBB", "#E7B800", "#FC4E07"))
p7
![](https://img.haomeiwen.com/i6732709/e09f4a63b8647171.png)
# Plot with multiple groups 分组绘图
# Create some data
df2 <- data.frame(supp=rep(c("VC", "OJ"), each=3),
dose=rep(c("D0.5", "D1", "D2"),2),
len=c(6.8, 15, 33, 4.2, 10, 29.5))
print(df2)
# Plot "len" by "dose" and change color by a second group: "supp"
# Add labels inside bars
p8 <- ggbarplot(df2, "dose", "len",
fill = "supp", color = "supp",
label = TRUE, lab.col = "white", lab.pos = "in")
p8
![](https://img.haomeiwen.com/i6732709/60b4737c1b7257c4.png)
# Change position: Interleaved (dodged) bar plot 更改排列方式
p9 <- ggbarplot(df2, "dose", "len",
fill = "supp", color = "supp", palette = "Paired",
label = TRUE,
position = position_dodge())
p9
![](https://img.haomeiwen.com/i6732709/2d6e83419d16c8e7.png)
p10 <- ggbarplot(df2, "dose", "len",
fill = "supp", color = "supp", palette = "Paired",
label = TRUE,
position = position_fill())
p10
![](https://img.haomeiwen.com/i6732709/eb4e932c99dc2d0f.png)
# Add points and errors
# Data: ToothGrowth data set we'll be used.
df3 <- ToothGrowth
head(df3, 10)
# It can be seen that for each group we have
# different values
p11 <- ggbarplot(df3, x = "dose", y = "len",width =0.3)
p11
![](https://img.haomeiwen.com/i6732709/462e8b3e6f910dd4.png)
# Visualize the mean of each group
p12 <- ggbarplot(df3, x = "dose", y = "len",
add = "mean")
p12
![](https://img.haomeiwen.com/i6732709/9383f33fc2e4bde3.png)
# Add error bars: mean_se 添加不同类型的误差棒
# (other values include: mean_sd, mean_ci, median_iqr, ....)
# Add labels
p13 <- ggbarplot(df3, x = "dose", y = "len",
add = "mean_se", label = TRUE, lab.vjust = -1.6)
p13
![](https://img.haomeiwen.com/i6732709/dd6226aec3f2cd17.png)
# Use only "upper_errorbar"
p14 <- ggbarplot(df3, x = "dose", y = "len",
add = "mean_se", error.plot = "upper_errorbar")
p14
![](https://img.haomeiwen.com/i6732709/50aad2f4eb9c3a65.png)
# Change error.plot to "pointrange"
p15 <- ggbarplot(df3, x = "dose", y = "len",
add = "mean_se", error.plot = "pointrange")
p15
![](https://img.haomeiwen.com/i6732709/5c81ed5171a27762.png)
# Add jitter points and errors (mean_se)
p16 <- ggbarplot(df3, x = "dose", y = "len",
add = c("mean_se", "jitter"))
p16
![](https://img.haomeiwen.com/i6732709/fa3e5588420e997a.png)
# Add dot and errors (mean_se)
p17 <- ggbarplot(df3, x = "dose", y = "len",
add = c("mean_se", "dotplot"))
p17
![](https://img.haomeiwen.com/i6732709/7ea09a7f168f05a9.png)
# Multiple groups with error bars and jitter point
p18 <- ggbarplot(df3, x = "dose", y = "len", color = "supp",
add = "mean_se", palette = c("#00AFBB", "#E7B800"),
position = position_dodge())
p18
![](https://img.haomeiwen.com/i6732709/c5970d4f5e4adff8.png)
MA图
# 加载数据集
data(diff_express)
head(diff_express)
p1 <- ggmaplot(diff_express, fdr = 0.05, fc = 2, size = 0.4,
palette = c("red","green","gray"))
p1
![](https://img.haomeiwen.com/i6732709/66357ec5656ee9e9.png)
p2 <- ggmaplot(diff_express, main = expression("Group 1" %->% "Group 2"),
fdr = 0.05, fc = 2, size = 0.4,
palette = c("#B31B21", "#1465AC", "darkgray"),
genenames = as.vector(diff_express$name),
xlab = "M",ylab = "A",
legend = "top", top = 20,
font.label = c("bold", 11),
font.legend = "bold",
font.main = "bold",
ggtheme = ggplot2::theme_minimal())
p2
![](https://img.haomeiwen.com/i6732709/d511bf324b4411f3.png)
# Add rectangle around labels
p3 <- ggmaplot(diff_express, main = expression("Group 1" %->% "Group 2"),
fdr = 0.05, fc = 2, size = 0.4,
palette = c("#B31B21", "#1465AC", "darkgray"),
genenames = as.vector(diff_express$name),
legend = "top", top = 20,
font.label = c("bold", 11), label.rectangle = TRUE,
font.legend = "bold", select.top.method = "padj",
font.main = "bold",
ggtheme = ggplot2::theme_minimal())
p3
![](https://img.haomeiwen.com/i6732709/3608db868bb696a3.png)
p4 <- ggmaplot(diff_express, main = expression("Group 1" %->% "Group 2"),
fdr = 0.05, fc = 2, size = 0.5,
palette = c("#B31B21", "#1465AC", "darkgray"),
genenames = as.vector(diff_express$name),
legend = "top", top = 20, select.top.method = "fc",
font.label = c("bold", 11), label.rectangle = TRUE,
font.legend = "bold",
font.main = "bold",
ggtheme = ggplot2::theme_minimal())
p4
![](https://img.haomeiwen.com/i6732709/f3d093d40b29b9c7.png)
饼状图
# Data: Create some data
df <- data.frame(
group = c("Male", "Female", "Child"),
value = c(25, 25, 50))
head(df)
p1 <- ggpie(df, "value", label = "group")
p1
![](https://img.haomeiwen.com/i6732709/f5ef79b4c04daa65.png)
# Change color
# Change fill color by group
# set line color to white
# Use custom color palette
p2 <- ggpie(df, "value", label = "group",
fill = "group", color = "white",
palette = c("#00AFBB", "#E7B800", "#FC4E07") )
p2
![](https://img.haomeiwen.com/i6732709/a348e43ba326eba4.png)
# Change label
# Show group names and value as labels
labs <- paste0(df$group, " (", df$value, "%)")
labs
p3 <- ggpie(df, "value", label = labs,
fill = "group", color = "white",
palette = c("#00AFBB", "#E7B800", "#FC4E07"))
p3
![](https://img.haomeiwen.com/i6732709/a807a31bae0d199d.png)
# Change the position and font color of labels
p4 <- ggpie(df, "value", label = labs,
lab.pos = "in", lab.font = "white",
fill = "group", color = "white",
palette = c("#00AFBB", "#E7B800", "#FC4E07"))
p4
![](https://img.haomeiwen.com/i6732709/1961cdd03a7d6bd8.png)
网友评论