氣泡圖也屬于散點圖的一種，在散點圖的基礎上改變點的形狀，大小和顏色
1.如何改變點的形狀
用自帶的mtcars演示
p = ggplot(mtcars,aes(wt,mpg))
p + geom_point(shape=17,size=4)
p + geom_point(aes(shape = factor(cyl)),size=4)
2.改變點的大?。簹馀輬D
加載包、數據的讀入及數據格式
library(ggplot2)
pathway = read.table("R0-vs-R3.path.richFactor.head20.tsv",header=T,sep="\t")
3.初始化數據
pp = ggplot(pathway,aes(richFactor,Pathway))
pp + geom_point()
氣泡圖（三維數據）,size 可以是一個值，也可以是數據中的一列
pp + geom_point(aes(size=R0vsR3))
添加顏色變化——四維數據
scale_colour_gradient：自定義一個連續型的配色，常用于熱圖；
pbubble = pp + geom_point(aes(size=R0vsR3,color=-1*log10(Qvalue)))
pbubble
pbubble + scale_colour_gradient(low="green",high="red")
expression函數改變樣式，[]是用來添加下標，^是用來添加上標
pr = pbubble + scale_colour_gradient(low="green",high="red") + labs(color=expression(-log[10](Qvalue)),size="Gene number",x="Rich factor",y="Pathway name",title="Top20 of pathway enrichment")
pr
pr + theme_bw()
散點圖小結
? 顏色: color/colour （可漸變）
? 形狀：shape
? 大?。簊ize （可漸變）
? 透明度：alpha （練習）
? 改變坐標軸的范圍: xlim()和ylim()函數
? 改變標題，坐標軸標題和legend標題:labs()函數
? 保存圖片：ggsave()函數
支持多種圖片格式：png,pdf,svg等
ggsave("pathway_enrichment.png")
ggsave("pathway_enrichment_gray.png",pr)
ggsave("volcano4.pdf",volcano,width=4,height=4)
ggsave("volcano8.pdf",volcano,width=8,height=8)
繪制直線小結
? geom_abline(slope=xx,intercept=xx): 繪
制直線
? geom_hline(yintercept=xx):繪制水平線
? geom_vline(xintercept=xx):繪制垂直線
? size: 線條粗細
? color: 線條顏色
? linetype: 線條類型
