在 R 中显示 pheatmap 单元格中的原始数字

Jef*_*NKC 2 r heatmap pheatmap

好吧,我确信我有一个非常基本的问题,但我在 R 方面太新手,无法解决它。我正在使用 pheatmap 创建热图,并希望显示每个单元格中的原始数字,但也对行进行缩放。问题是当我使用 display_numbers = nrow(theatmap_data) 时,它只显示转换后的缩放数字而不是原始值。

这是截图

library(pheatmap)
t(heatmap_data) -> theatmap_data
  
pheatmap((theatmap_data),cluster_rows= FALSE, cluster_cols = FALSE,
           scale ="row", display_numbers = nrow(theatmap_data))
Run Code Online (Sandbox Code Playgroud)

Mar*_*dri 5

如果要显示单元格内的原始值,可以使用以下代码:

library(pheatmap)

# Generate a simple matrix
set.seed(1234)
theatmap_data <- matrix(runif(24), ncol=4)
rownames(theatmap_data) <- paste0("G", 1:6)
colnames(theatmap_data) <- paste0("S", 1:4)

# Show the content of the matrix
print(theatmap_data)
#           S1          S2        S3         S4
# G1 0.1137034 0.009495756 0.2827336 0.18672279
# G2 0.6222994 0.232550506 0.9234335 0.23222591
# G3 0.6092747 0.666083758 0.2923158 0.31661245
# G4 0.6233794 0.514251141 0.8372956 0.30269337
# G5 0.8609154 0.693591292 0.2862233 0.15904600
# G6 0.6403106 0.544974836 0.2668208 0.03999592

# display_numbers = matrix of rounded row values
pheatmap((theatmap_data),cluster_rows= FALSE, cluster_cols = FALSE,
           scale ="row", display_numbers = round(theatmap_data,2))
Run Code Online (Sandbox Code Playgroud)

在此输入图像描述