```handlebars
> getwd()
[1] "C:/Users/Administrator/Documents"
> setwd("F:/R.work")
> getwd()
[1] "F:/R.work"
> library(gplots)
载入程辑包:‘gplots’
The following object is masked from ‘package:stats’:
lowess
> M <- read.csv("heatmap.csv",header = T,row.names = 1)
> head(M)N.GD1    N.GD2    N.GD3    N.GD4    N.GD5    T.GD1
ENSG0001 651.2767 779.1340 610.2006 462.5733 646.3933 212.3474
ENSG0002 109.3259  90.5029 121.9745 135.7555 120.1212 100.2906
ENSG0003  80.6287  69.5727  87.5528  45.1127  66.4048  10.9051
ENSG0004   7.3395   7.3325   7.2697   6.4194   8.5815   8.6557
ENSG0005  50.2741  47.2587  31.4087  39.0856  50.0841  88.7184
ENSG0006   8.5917   8.2437   7.9099   7.0142   7.5238   6.6141T.GD2    T.GD3    T.GD4    T.GD5    N.GX1    N.GX2
ENSG0001 361.4496 344.2908 249.2474 404.4705 820.6379 686.5601
ENSG0002  94.4312 101.1539  88.6888  80.5298 113.0079 114.6932
ENSG0003  14.3540  20.6930  14.3418  10.9877  55.9658  80.4438
ENSG0004  11.1947   9.8837   9.4283   7.4753   6.7255   6.4597
ENSG0005 136.5762  72.9094  99.1368 111.9974  34.4052  37.3857
ENSG0006   9.3059   6.2345   7.0411   7.1369   6.9915   8.1845N.GX3    N.GX4    N.GX5    T.GX1    T.GX2    T.GX3
ENSG0001 661.3583 598.0273 778.1340 331.0933 318.8990 380.3224
ENSG0002 118.7943 122.7157  89.5029 100.6733  72.8508  85.1964
ENSG0003  36.5111  45.0856  68.5727  14.0344  10.5041  26.6979
ENSG0004   5.5219   6.4675   6.3325  11.1916   8.1096   8.6952
ENSG0005  33.3616  42.9594  46.2587  74.5685 107.1062  80.1001
ENSG0006   7.6436   7.5177   7.2437   7.0160   6.5288   5.6905T.GX4    T.GX5
ENSG0001 256.8138 359.4496
ENSG0002  80.9101  92.4312
ENSG0003  12.5248  12.3540
ENSG0004   8.3825   9.1947
ENSG0005 111.0517 134.5762
ENSG0006   7.1289   7.3059
> View(M)```handlebars
在这里插入代码片

class(M)
[1] “data.frame”
class(M[1,1])
[1] “numeric”
M <- as.matrix(M) #改变数据类型#
heatmap.2(M)

#此图有问题,可以上拉Rstudio中的plot解决#

class(M)
[1] “matrix” “array”
heatmap.2(M,key = F) #key 是否显示图列#

heatmap.2(M,symkey = F)#symkey设置图列颜色是否对称#

heatmap.2(M,symkey = T)

heatmap.2(M,symkey = T,density.info = “none”)

heatmap.2(M,symkey = T,trace = “none”) #trace是否显示每列的竖线#

heatmap.2(M,symkey = T,tracecol = “black”) #tracecol线的颜色#

heatmap.2(M,dendrogram = “none”)

heatmap.2(M,dendrogram = “row”)

heatmap.2(M,dendrogram = “col”)

pheatmap包

library(pheatmap)
pheatmap(M)

#对列进行分组#

colnames(M)
[1] “N.GD1” “N.GD2” “N.GD3” “N.GD4” “N.GD5” “T.GD1” “T.GD2” “T.GD3” “T.GD4”
[10] “T.GD5” “N.GX1” “N.GX2” “N.GX3” “N.GX4” “N.GX5” “T.GX1” “T.GX2” “T.GX3”
[19] “T.GX4” “T.GX5”
annotation_col <- data.frame(collType = factor(rep(c(“N1”,“T1”,“N2”,“T2”),each=5)))
annotation_col
collType
1 N1
2 N1
3 N1
4 N1
5 N1
6 T1
7 T1
8 T1
9 T1
10 T1
11 N2
12 N2
13 N2
14 N2
15 N2
16 T2
17 T2
18 T2
19 T2
20 T2

##把样品名和分组名映射起来##

row.names(annotation_col)
[1] “1” “2” “3” “4” “5” “6” “7” “8” “9” “10” “11” “12” “13” “14”
[15] “15” “16” “17” “18” “19” “20”
row.names(annotation_col) <- colnames(M) #把行号替换成样品名#
annotation_col
collType
N.GD1 N1
N.GD2 N1
N.GD3 N1
N.GD4 N1
N.GD5 N1
T.GD1 T1
T.GD2 T1
T.GD3 T1
T.GD4 T1
T.GD5 T1
N.GX1 N2
N.GX2 N2
N.GX3 N2
N.GX4 N2
N.GX5 N2
T.GX1 T2
T.GX2 T2
T.GX3 T2
T.GX4 T2
T.GX5 T2
pheatmap(M,annotation_col = annotation_col) #对列进行分组#

pheatmap(M,annotation_col = annotation_col,display_numbers = T)#热图上显示数字#

pheatmap(M,annotation_col = annotation_col,display_numbers = T,number_format = “%.2f”)#保留两位小数#


链接:https://pan.baidu.com/s/1XzUcgwXVUvlYYc6ybKB9SQ
提取码:87cl
复制这段内容后打开百度网盘手机App,操作更方便哦

链接:https://pan.baidu.com/s/1DIrigdqnbbuR0jiCyOS4BA
提取码:394r
复制这段内容后打开百度网盘手机App,操作更方便哦

热图 heatmap.2 和 pheatmap相关推荐

  1. R语言绘制热图实践(一)pheatmap包

    目录 前言 pheatmap包 pheatmap简介 常用参数介绍 使用 安装 绘制样本间相关系数图(简单使用) 差异表达基因热图(进阶使用) 如何查看pheatmap的聚类结果 pheatmap总结 ...

  2. 如何在R语言中建立六边形矩阵热图heatmap可视化

    原文链接:http://tecdat.cn/?p=18879 这是一个六边形热图可视化程序,主要用到的知识RColorBrewer,fields,也就是R中的可视化绘图库(点击文末"阅读原文 ...

  3. 相关性热图的完美解决方案 -- pheatmap包

    相关性热图的完美解决方案 – pheatmap包 install.packages('pheatmap')# 安装包,加载数据 library(pheatmap) # 生成测试数据集 test = m ...

  4. 【R】 绘制 热图 heatmap

    最近发现pheatmap画热图挺好看的,有机会也使用一下~~~ http://www.bjt.name/tag/heatmap/ R 绘制 heatmap NBA联盟50位顶级球员的指标表现 介绍如何 ...

  5. 基于HTML5实现3D热图Heatmap应用

    Heatmap热图通过众多数据点信息,汇聚成直观可视化颜色效果,热图已广泛被应用于气象预报.医疗成像.机房温度监控等行业,甚至应用于竞技体育领域的数据分析. http://www.hightopo.c ...

  6. matplotlib 标签_Python可视化matplotlibamp;seborn14热图heatmap

    "pythonic生物人"的第53篇分享. 热力图(heatmap)可通过颜色深浅变化,优雅的展示数据的差异:本篇详细介绍python seaborn绘制热图(手把手讲解). 本文 ...

  7. 热图(Heatmap)绘制(matplotlib与seaborn)

    热图是数据统计中经常使用的一种数据表示方法,它能够直观地反映数据特征,查看数据总体情况,在诸多领域具有广泛应用. 一:matplotlib绘制方法 1.基础绘制 热图用以表示的是矩阵数据,例如相关阵. ...

  8. 【R语言】——pheatmap包绘制聚类热图1(保姆级教程)

    一.前言 1 热图介绍 通常,热图是对所获得的数据或其他因素进行归一化处理后,用颜色的变化来直观表示不同样本间的变化情况.本质上其是由一个个用预设颜色表示数值大小的小方格组成的数据矩阵,并通过对因子或 ...

  9. R:热图解释 | pheatmap包参数及详细聚类图绘制流程(一篇解决热图绘制问题)

    热图解释及pheatmap绘制热图 一.热图绘制原理 1.1 热图介绍 1.2 热图绘制准备--均一化 1.3 热图绘制方式 1.4 热图数据查看示例 二.pheatmap包简介 2.1 pheatm ...

最新文章

  1. 以太坊Oracle系列二:My Oracle
  2. 【python 2】python 进阶
  3. stopwatch_在Java中衡量执行时间– Spring StopWatch示例
  4. php 导出excel 2007,使用PHPExcel导出Excel表
  5. JAVA基础系列:ThreadLocal
  6. Netty in action—Netty中的ByteBuf
  7. 掌握这些,你也可以轻松扒谱(下)
  8. HTML5小试 双人贪吃蛇
  9. 【年度总结】——难忘的45天
  10. OCR(图片识别)之 百度 VS 谷歌
  11. gromacs 中关于二级结构分析
  12. Linux云计算好学吗?Linux云计算运维学习资料 文件的基本管理
  13. 网络编程 3 tcp通信
  14. Python 利用PyQt5写一个简易的串口助手
  15. 如何利用无线技术有效预化工厂防爆炸事故?
  16. 上海税前12000的工资,税后能拿到多少?
  17. php去除换行(回车换行)的三种方法
  18. 数学笔记9——牛顿迭代法
  19. 2021 ICPC Southeastern Europe Regional Contest ABFGJKLN
  20. 利用PDA手持终端做好库存管理精细化运营

热门文章

  1. wordpress 外观-编辑-保存 “只能将修改保存到可写的文件。参见Codex文档以了解更多。”...
  2. 青龙面板2.9.3搭建
  3. 《麦肯锡方法》第4章 扩展客户-思维导图
  4. NUC972 SPI Flash启动+内核+Cramfs文件系统
  5. 靠打赏盈利的简书网是自媒体的新型发展模式吗?
  6. 华为全新数据中心管理系统DCIM+对智能化运维的实践与考虑
  7. 虚拟演播室,什么是虚拟演播室?(一)
  8. 靠左靠右实际布局DIV CSS实例模块
  9. NTC查表法,采用二分法
  10. JS leetcode求二叉树的最大深度