R: Bubble matrix

看到一篇推送,觉得图好漂亮,这次又来当了次代码搬运工了

Bubble matrix

我们先创建一个数据

data<-read.csv('E:/R file/data.csv', header = T)

数据表格

#加载包
library(reshape2)
library(ggplot2)   

data_melt<-melt (data)
names(data_melt) = c('Gene', 'Cell', 'Value')
#melt()函数把表格中的宽数据变成长数据
p<-ggplot(data_melt, aes(x = Gene, y = Cell, size = Value, color=Cell)) + geom_point()
p

image.png

做美化

p<-ggplot(data_melt, aes(x = Gene, y = Cell, size = Value, color=Cell)) + geom_point()+
  theme(panel.background = element_blank(),    #透明背景
        panel.grid.major = element_line(colour = "gray"),  #灰实线
        panel.border = element_rect(colour="black",fill=NA))  #黑色边框

image.png

参考:
https://www.jianshu.com/p/83724c498199