Warning: file_get_contents(/data/phpspider/zhask/data//catemap/1/cassandra/3.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181
R pheatmap比例与pheatmap之前的比例不同_R_Scale_Pheatmap - Fatal编程技术网

R pheatmap比例与pheatmap之前的比例不同

R pheatmap比例与pheatmap之前的比例不同,r,scale,pheatmap,R,Scale,Pheatmap,打印前缩放时的热图: mat_scaled <- scale(t(mat)) pheatmap(t(mat_scaled), show_rownames=F, show_colnames=F, border_color=F, color=colorRampPalette(brewer.pal(6,name="PuOr"))(12)) 其中比例设置为[-6,6]。 为什么会有这种差异?我如何获得第二幅图中表示的矩阵?在第二幅图中,您使用pheatmap的scale=“r

打印前缩放时的热图:

mat_scaled <- scale(t(mat))
pheatmap(t(mat_scaled), show_rownames=F, show_colnames=F,
         border_color=F, color=colorRampPalette(brewer.pal(6,name="PuOr"))(12))

其中比例设置为[-6,6]。

为什么会有这种差异?我如何获得第二幅图中表示的矩阵?

在第二幅图中,您使用
pheatmap
scale=“row”
选项绘制缩放矩阵的热图 这不是比较外部和内部缩放的正确方法。
以下是解决方案:

library(gridExtra)
library(pheatmap)
library(RColorBrewer)
cols <- colorRampPalette(brewer.pal(6,name="PuOr"))(12)
brks <- seq(-3,3,length.out=12)  
data(attitude)
mat <- as.matrix(attitude)

# Scale by row
mat_scaled <- t(scale(t(mat)))

p1 <- pheatmap(mat_scaled, show_rownames=F, show_colnames=F, 
         breaks=brks, border_color=F, color=cols)

p2 <- pheatmap(mat, scale="row", show_rownames=F, show_colnames=F, 
         breaks=brks, border_color=F, color=cols)

grid.arrange(grobs=list(p1$gtable, p2$gtable))
库(gridExtra)
图书馆(pheatmap)
图书馆(RColorBrewer)

如果你能给出一个可重复的例子(见这里-),那将是很有帮助的。
library(gridExtra)
library(pheatmap)
library(RColorBrewer)
cols <- colorRampPalette(brewer.pal(6,name="PuOr"))(12)
brks <- seq(-3,3,length.out=12)  
data(attitude)
mat <- as.matrix(attitude)

# Scale by row
mat_scaled <- t(scale(t(mat)))

p1 <- pheatmap(mat_scaled, show_rownames=F, show_colnames=F, 
         breaks=brks, border_color=F, color=cols)

p2 <- pheatmap(mat, scale="row", show_rownames=F, show_colnames=F, 
         breaks=brks, border_color=F, color=cols)

grid.arrange(grobs=list(p1$gtable, p2$gtable))