美文网首页R入门函数与脚本
R Pheatmap包 画热图,自定义颜色条,保存PDF

R Pheatmap包 画热图,自定义颜色条,保存PDF

作者: 火卫控 | 来源:发表于2023-08-13 16:01 被阅读0次

R Pheatmap包 画热图,自定义颜色条,保存PDF

采用colorRampPalette 定义颜色条
自定义函数save_pheatmap_pdf 来 定制化保存PDF

结果如下:
[图片上传失败...(image-949b6-1692000081567)]

代码如下:

library(pheatmap)
#test1 <-read.csv("C:/Users/Administrator/Desktop/YsJ/sz/zzwkP1.csv",header=TRUE)
#test1 <-read.csv("D:\\12345.csv",header=TRUE,row.names = 1)
#"D:\GZlab_W_AQY\实验记录\原始数据\2023.4.17-假病毒\20230417\20230147.csv"
#"D:\Coding\R_gzlab_docu\protease_test\20230420jia2nd\20230420.csv"
test1 <-read.csv("D:\\Coding\\R_gzlab_docu\\protease_test\\20230807-all\\protesea-all.csv",row.names = 1,header = T)

test1 <- scale(test1)

#breaks
#bk <- c(seq(-30,99,by=5),seq(100,230,by=5))
bk <- c(seq(0,99,by=10),seq(100,500,by=10))

p <- pheatmap(test1,
              cluster_rows = FALSE,  
              cluster_cols = F,
              border_color = "white",
              display_numbers = T,
              fontsize = 5,
              cellwidth = 25, cellheight = 5,
              
              
              #display_numbers = matrix(ifelse(test > 5, "*", "")),
              #legend_breaks = -1:4, legend_labels = c("0", "1e-4", "1e-3", "1e-2", "1e-1", "1"),
              
              
              color = c(colorRampPalette(colors = c("blue","white"))(length(bk)/5),colorRampPalette(colors = c("white","red"))(length(bk)/1.25)),
              legend_breaks=seq(0,500,20),
              breaks=bk,
              #color = colorRampPalette(colors = c("blue","pink","red")(100))
              #color = colorRampPalette(colors = c("blue","white","red"))(100)
)


save_pheatmap_pdf <- function(x, filename, width=7, height=7) {
  stopifnot(!missing(x))
  stopifnot(!missing(filename))
  pdf(filename, width=width, height=height)
  grid::grid.newpage()
  grid::grid.draw(x$gtable)
  dev.off()
}

save_pheatmap_pdf(p, "20230807testall.pdf",8,25)

相关文章

  • 热图——pheatmap学习

    热图——pheatmap学习代码及参数如下: 仅展示热图汇总得结果! 参考:pheatmap.pdf (r-pro...

  • R语言ggplot2画四方形的热图展示相关系数的简单小例子

    R语言里画热图通常会使用pheatmap这个包。如果想使用ggplot2这个包画热图的话需要借助geom_tile...

  • 画热图

    所用R包:pheatmap #pheatmap画热图,TP53基因三个探针的表达量 #重点在于整理数据: #1,分...

  • pheatmap包学习

    pheatmap pheatmap热图绘制 加载所需要的包 读入数据 查看数据 最初原始的热图绘制 热图颜色的调整...

  • 2019-10-24 Heatmap

    用“pheatmap"包画热图~ 高级绘图 1. 这是最简单的一张热图 pheatmap(Heatmapdata,...

  • ComplexHeatmap复杂热图绘制学习——9.其它软件包

    与其他软件包集成 9.1 pheatmap热图 pheatmap用于制作热图是一个很不错的 R 包,启发了许多其他...

  • 【r<-高级|分享】用R画热图的几个参考

    刚学画热图,找了波度娘。发现几个网址不错,推荐下: 5个画热图的R包,你都知道吗? 介绍了pheatmap包、he...

  • R包-pheatmap热图

    热图在比较样本间基因的表达差异上能够比较好的反映数据内在信息,通过对样本或基因聚类,进一步分析细胞内在信息。 CR...

  • R pheatmap画热图

    绘制热图的函数。 1、参数说明 2、Details 该函数还允许使用kmeans聚类聚合行。如果行数太大,R无法再...

  • R绘图_热图包pheatmap

    pheatmap,全称Pretty Heatmaps,直译“完美的热图”,是一款非常优秀的热图绘制R包。网上也有很...

网友评论

    本文标题:R Pheatmap包 画热图,自定义颜色条,保存PDF

    本文链接:https://www.haomeiwen.com/subject/vczfmdtx.html