【医学生学R语言】箱式图、小提琴图、气泡图代码
【医学生学R语言系列】
1 我的认识：BV1Tg4y187ge
2 基础知识：BV1qK411771x
3 散点图：BV1GQ4y1M7ne BV17e411x77q
4 分面：BV1hV411f7o9
5 曲线图：BV1mK4y1C7n4
6 柱形图：BV1B541167kU
7 图形位置：BV1Pc411h7mR
8 坐标轴：BV1vk4y1d73c
9 主题、标尺：BV1JC4y1s7FT
10 箱式图、小提琴图：
11 气泡图：
箱式图
> library(ggplot2)
> setwd("C:\\Users\\Administrator\\Desktop\\教程文件夹")
> mydata= read.csv("boxplot.csv",row.names = 1)
> ggplot(mydata) +
aes(x = Group, y = Level) +
geom_boxplot(alpha = .25,notch = TRUE)+
geom_jitter(alpha = .5,
height = 0,
width = .25) +
aes(color = Group, fill = Group) +
scale_color_manual(values =
c("blue", "red")) +
scale_fill_manual(values =
c("blue", "red")) +
theme_bw() +
labs(title = "关注B站UP主--小猴子_爱你呀呀") +
labs(subtitle = "一键三连哦") +
labs(caption = "233333")
小提琴图
> library(ggplot2)
> setwd("C:\\Users\\Administrator\\Desktop\\教程文件夹")
> mydata= read.csv("boxplot.csv",row.names = 1)
> ggplot(mydata) +
aes(x = Group, y = Level) +
geom_violin(alpha = .25, draw_quantiles = c(0.25, 0.5, 0.75))
geom_jitter(alpha = .5,
height = 0,
width = .25) +
aes(color = Group, fill = Group) +
scale_color_manual(values =
c("blue", "red")) +
scale_fill_manual(values =
c("blue", "red")) +
theme_bw() +
labs(title = "关注B站UP主--小猴子_爱你呀呀") +
labs(subtitle = "一键三连哦") +
labs(caption = "233333")
气泡图
> library(ggplot2)
> setwd("E:\\R")
> mydata = read.table("R0-vs-R3.path.richFactor.head20.tsv",header=T,sep="\t")
> ggplot(mydata) +
aes(x = richFactor, y = Pathway) +
geom_point() +
aes(size = R0vsR3,color=-1*log10(Qvalue)) +
scale_colour_gradient(
low="green",high="red") +
theme_bw() +
labs(title="Top20 of pathway
enrichment", color=expression(-
log[10](Qvalue)),size="Gene
number",x="Rich factor",y="Pathway
name")
祝作图顺利！！白了个白~~
