我們使用R繪制泡泡圖時(shí)周偎，可能會(huì)遇到這樣一種情況抹剩，即count點(diǎn)太小 ，但又不知道應(yīng)該如何調(diào)大蓉坎，如下圖：
附代碼：
library(ggplot2)
pathway = read.csv("1KEGG.csv",header=TRUE,row.names=1,check.names = FALSE)
p = ggplot(pathway,aes(Pvalue,pathway))
p=p + geom_point()
p=p + geom_point(aes(size=Count))
pbubble = p+ geom_point(aes(size=Count,color=-1*log10(Pvalue)))
pr = pbubble+scale_color_gradient(low="blue",high = "red")
pr = pr+labs(color=expression(-log[10](Pvalue)),size="Count",?
? ? ? ? ? ? x="-Log10(Pvalue)",y="KEGG pathway",title="KEGG Pathway")
pr + theme_bw()
pr
經(jīng)學(xué)習(xí)（向大神請(qǐng)教）后澳眷，修改了一下range的大小【+scale_size_continuous(range = c(4.5,7.5))】，如下圖：
附代碼：
library(ggplot2)
pathway = read.csv("1KEGG.csv",header=TRUE,row.names=1,check.names = FALSE)
p = ggplot(pathway,aes(Pvalue,pathway))
p=p + geom_point()
p=p + geom_point(aes(size=Count))+scale_size_continuous(range = c(4.5,7.5))
pbubble = p+ geom_point(aes(size=Count,color=-1*log10(Pvalue)))+scale_size_continuous(range = c(4.5,7.5))
pr = pbubble+scale_color_gradient(low="blue",high = "red")
pr = pr+labs(color=expression(-log[10](Pvalue)),size="Count",?
? ? ? ? ? ? x="-Log10(Pvalue)",y="KEGG pathway",title="KEGG Pathway")
pr + theme_bw()
pr
問(wèn)題就這么輕松解決啦蛉艾，小泡泡變大泡泡钳踊，是不是很簡(jiǎn)單？
