r - 是否可以更改热图中的列顺序?
问题描述
我创建了一个带有 heatmaply 的树状图,其中包含来自 dendextend 包的树状图对象。我想知道是否有办法更改列的顺序:vs、am、carb、wt、drat、gear 等。例如,我想按字母顺序对它们进行排序。这可能吗?
library(heatmaply)
library(tidyverse)
library(RColorBrewer)
library(dendextend)
custom_colors <- c("#B6E2D3", "#887BB0", "#FFD53D", "#EF7C8E", "#A1F7A1", "#EFE7BC", "#C26DBC", "#14C2DD",
"#5CD85A", "#AB6B51", "#39918C", "#FFA384", "#57DDF3", "#D0B49F", "#EEB5EB", "#74BDCB")
dend_example <- mtcars %>% dist %>% hclust(method = "ward.D2") %>%
as.dendrogram %>% color_branches(k=5) %>% color_labels
heatmaply_mtcars<- heatmaply(mtcars, hclustfun = hclust, hclust_method = "ward.D2",
Rowv = dend_example,
main = "mtcars",
show_dendrogram = c(TRUE, FALSE),
showticklabels = c(TRUE, TRUE),
scale_fill_gradient_fun = ggplot2::scale_fill_gradient2(high = "#025492"),
file = "heatmaply_mtcars.html",
column_text_angle = 30,
colorbar_thickness = 50)
解决方案
我在带有 colv 参数的 heatmaply 中包含了一个列树状图。使用包 dendextend 中的旋转函数旋转列树状图:
dend_example <- mtcars %>% dist %>% hclust(method = "ward.D2") %>%
as.dendrogram %>% color_branches(k=5) %>% color_labels
column_dend <- t(mtcars) %>% dist %>% hclust(method = "ward.D2") %>%
as.dendrogram
column_dend <- column_dend %>% rotate(c(vector_with_labels))
heatmaply_mtcars<- heatmaply(mtcars, hclustfun = hclust, hclust_method = "ward.D2",
Rowv = dend_example,
Colv = column_dend,
main = "mtcars",
show_dendrogram = c(TRUE, FALSE),
showticklabels = c(TRUE, TRUE),
scale_fill_gradient_fun = ggplot2::scale_fill_gradient2(high = "#025492"),
file = "heatmaply_mtcars.html",
column_text_angle = 30,
colorbar_thickness = 50)
推荐阅读
- docker - Dockerize Wildfly 和 ssh
- c# - Rest Sharp .NET 核心与框架
- python - 将kafka控制台输出提取为变量
- java - 将 json 字符串转换为 json 对象,就像在 Java 中一样
- yocto - 其他配方的do_rootfs完成后如何执行bitbake任务?
- go - 日志包中 logger.Output() 方法中的“calldepth”参数是什么?
- python - 将多个 CSV 读入 Pandas 数据框
- javascript - nuxt-i18n 路由不适用于 SSR,但适用于 SPA
- java - 从java中的excel文件读取时出错
- c# - 检查 HttpRequest 路径是否为空