插入图片
如何将数据的统计结果以图片的形式插入到绘制的图片中?
先使用annotation_custom 方法,后续再添加其它方法的说明;
f=read.table("C:\\Users\\XXX\\Desktop\\all.rRNA.txt",head=T)
library(png)
library(grid)
library(ggplot2)
summary(f) ## 保存图片
mg <- readPNG("C:\\Users\\XXX\\Desktop\\a.png")
g <- rasterGrob(mg, interpolate=TRUE)
p<-ggplot(f, aes(x=rRNA))+geom_density(color="red",size=1) + theme_classic()
p+annotation_custom(g, xmin=47, xmax=65, ymin=0.025, ymax=0.045)
多张图片合并
library(ggpubr)
h=read.table("C:\\Users\\XXX\\Desktop\\num.input3.txt",head=T)
p1=ggplot(h, aes(x=Sample, y=GeneNumber.TPM..0.01., fill=Project)) + geom_bar(position="dodge", colour="black"