绘图导航
  • 基础绘图
  • 高级绘图
  • 微生物
  • 转录组

R语言|又来一个气泡图

 二维码 5
作者:图图来源:图图云平台

又来一个气泡图

#气泡图

library(ggplot2)

library(reshape2)

data=as.data.frame(read.table("PCA_testdata.txt",header = T,sep="\t" ,check.names=FALSE))[c(1:10),]

y=melt(data)

colnames(y)=c("id","sample","count")

p = ggplot(y,aes(sample,id))  

p=p + geom_point()  

p=p + geom_point(aes(size=count)) +scale_color_gradient(low="firebrick",high = "darkolivegreen1")  

pbubble = p + geom_point(aes(size=as.numeric(count),color=as.numeric(count)))  

pr = pbubble   +labs(color="",   x="Samples",y="ID" ,size="Percentage")

pr=pr + theme_bw() +scale_fill_manual(values = color)

pr



“作图帮”微信公众号同步更新

作图帮二维码.jpg


可添加下方微信进入【生信作图交流群】,群内免费分享绘图代码与示例数据

公司二维码.png






推荐使用谷歌浏览器点击下载