KEGG 气泡图
2020-04-20 本文已影响0人
余绕
加载R包
library(ggplot2)
library(forcats)
library(scales)
加载数据
circ=read.csv("Documents.csv")
circ=as.data.frame(circ)
circ$Term=fct_inorder(circ$Term) #fct_inorder按照事先排好的顺序进行。
head(circ)
画图
ggplot(data=circ)+
geom_point(mapping=aes(y=circ$Term,x=circ$Pvalue,size=circ$DEGsInPathway,color=circ$Pvalue))+
scale_color_gradient2(low="red",mid="yellow",high='darkturquoise ',midpoint=0.015) +theme_bw()+theme(text=element_text(size=10, family="sans"))
#其中theme(text=element_text(size=10, family="sans"))为修改坐标轴的字体以及大小
查看ggplot2的默认字体
theme_get()$text
查看windows的默认字体
windowsFonts()