R语言绘制黑灰图片，如热图、气泡图（用于论文不彩印）

retu <- read.csv("retu.csv",header = T,row.names = 1)
retu <- as.matrix(retu)
library(pheatmap)
col <- colorRampPalette(c("#d8e3e7", "black"))(256)
pheatmap(retu,color = col, show_rownames  = FALSE)

library(ggplot2)
KEGG <- read.csv("DXKEGG.csv",header = T)
colnames(KEGG)[1] <- "num"
colnames(KEGG)
pp <- ggplot(data = KEGG,mapping = aes(x=richFactor,y=Description))
pp
pp+geom_point(mapping = aes(size=num,colour=Padjust))+labs(x="Rich factor",y="Description",colour="p-adjust",size="Gene number")+theme_bw()+ theme_classic()+theme(text=element_text(family="serif"))+
  scale_color_gradient(low = "#d8e3e7",high = "black")+
  scale_x_continuous(limits = c(0,0.5),breaks = seq(0,0.5,0.05))+
scale_size(breaks =c(3,6,9,12))