气泡图（一）

这里我们绘制的是一个简单的气泡图，其实也就是一个散点图，如下所示

为了更加容易讲述，自动生成矩阵

dat1<-matrix(rnorm(20),nrow=4)
colnames(dat1)=paste0('sample',1:5)
rownames(dat1)=paste0('gene',1:4)

#查看dat1
dat1

library(ggplot2)
library(data.table)
dat2=melt(data = dat1,id.vars=rownames(dat1))
colnames(dat2)=c('gene','sample','expression')

#查看dat2
dat2

#绘图
ggplot(dat2,aes(x = sample,y = gene))+geom_point(aes(size=expression,color=expression))

可以加qq交流 2470042905