tiff(filename = "c:\\aaa.tiff",

     res = 800, pointsize = 2)

plot(1:100)

dev.off()    

 tiff(file=paste0(out_dir,"/1.bulkprior.Liver.tif"),compression="lzw",units="in",res=1000,pointsize=8,height=6,width=6)

 mar.default <- c(5,4,4,4) + 0.1

 par(mar = mar.default + c(0, 2, 0, 0))

 plot(GSScore$Liver.SpecificScore,GSScore$HCC.TvsN.HCCDB,pch=16,cex=0.8,

      cex.lab = 3,cex.axis=2,xlab = "Liver-specific metric",ylab = "Deregultaion metric")

 abline(v=0,h=0,col="gray")

 abline(h=c(-0.5,0.5,-1),v=4,col="red")

 dev.off()

compression="lzw"，LZW是一种无损压缩格式，不会丢失任何数据，但肯定会减少文件大小