如果要去掉图例的黑框添加代码:
kegg_point + theme(legend.key=element_blank())
使用ggplot2绘制气泡图
已预先设置阈值/标签
enrich = 0.01
minPvalue=1e-15
xlab=""
ylab="Rich factor"
title=""
color="-log10(Pvaule)"
size="DEGs"
使用geom_point()函数进行点的颜色/大小映射
当aes中写之前定义的标签名时
kegg_point<-ggplot(kegg,aes(x=Kegg_pathway,y=Rich_factor))+
geom_point(aes(color=color,size=size),alpha=0.8)+
coord_flip()+scale_color_gradient(low="green",high="red")
kegg_point
代码报错:
无法出图:
当aes中写原数值时
kegg_point<-ggplot(kegg,aes(x=Kegg_pathway,y=Rich_factor))+
geom_point(aes(color=-log10(Pvalue),size=DEGs),alpha=0.8)+
coord_flip()+scale_color_gradient(low="green",high="red")
kegg_point
可以正常出图:
请教老师这是什么原因?是aes中必须要写原数值,其余地方比如labs()中才可以写标签名是吗?
另外再辛苦老师指点一下如何去除图例中图形符号外的黑色边框?