heatmaply_cor(
cor(mtcars),
xlab = "Features",
ylab = "Features",
k_col = 2,
k_row = 2
)
很多情况下,我们在相关性热图中还要体现...p值,也可以做一个更高级的相关热图,将p值映射到点大小:
r <- cor(mtcars)
cor.test.p <- function(x){
FUN <- function(x, y) cor.test...(x, y)[["p.value"]]
z <- outer(
colnames(x),
colnames(x),
Vectorize(function(...i,j) FUN(x[,i], x[,j]))
)
dimnames(z) <- list(colnames(x), colnames(x))
z
}
p <- cor.test.p(mtcars...的 cellnote 参数,可以显示覆盖在热图上的字符值。