HOW TO CREATE A BEAUTIFUL INTERACTIVE HEATMAP IN R

最新推荐文章于 2023-07-08 12:12:52 发布

「已注销」

最新推荐文章于 2023-07-08 12:12:52 发布

阅读量114

点赞数

分类专栏： r语言可视化文章标签： r语言 python c++

本文链接：https://blog.csdn.net/m0_38127487/article/details/125420420

版权

r语言可视化专栏收录该内容

153 篇文章 7 订阅

订阅专栏

这篇博客展示了如何使用R语言中的heatmaply包来创建各种定制化的热力图。从基础的热力图绘制到复杂的颜色映射、 dendrogram 结合、自定义注释和悬停提示，每一步都详细演示了代码实现。示例中涵盖了调整颜色方案、设置聚类数量以及利用dendextend库创建树状图等功能，为数据分析和可视化提供了丰富的示例。

摘要由CSDN通过智能技术生成

install.packages("heatmaply")
library("heatmaply")
df <- normalize(mtcars)
heatmaply(df)

在这里插入图片描述

install.packages("heatmaply")
library("heatmaply")
df <- normalize(mtcars)
ggheatmap(df)
gplots::heatmap.2(
  as.matrix(df),
  trace = "none",
  col = viridis(100),
  key = FALSE
)

在这里插入图片描述

install.packages("heatmaply")
library("heatmaply")
df <- normalize(mtcars)
heatmaply(
  as.matrix(df),
  seriate = "mean", 
  row_dend_left = TRUE,
  plot_method = "plotly"
)

在这里插入图片描述

install.packages("heatmaply")
library("heatmaply")
df <- normalize(mtcars)
heatmaply(
  df,
  k_col = 2, 
  k_row = 2
)

在这里插入图片描述

install.packages("heatmaply")
library("heatmaply")
df <- normalize(mtcars)
heatmaply(
  df,
  colors = viridis(n = 256,  option = "magma"),
  k_col = 2, 
  k_row = 2
)

在这里插入图片描述

install.packages("heatmaply")
library("heatmaply")
df <- normalize(mtcars)
library(RColorBrewer)
heatmaply(
  df,
  colors = colorRampPalette(brewer.pal(3, "RdBu"))(256),
  k_col = 2, 
  k_row = 2
)

在这里插入图片描述

install.packages("heatmaply")
library("heatmaply")
df <- normalize(mtcars)
gradient_col <- ggplot2::scale_fill_gradient2(
  low = "blue", high = "red", 
  midpoint = 0.5, limits = c(0, 1)
)
heatmaply(
  df,
  scale_fill_gradient_fun = gradient_col
)

在这里插入图片描述

library(dendextend)
# Create dendrogram for rows
mycols <- c("#2E9FDF", "#00AFBB", "#E7B800", "#FC4E07")
row_dend <-  df %>%
  dist() %>%
  hclust() %>%
  as.dendrogram() %>%
  set("branches_lwd", 1) %>% 
  set("branches_k_color", mycols[1:3], k = 3) 

# Create dendrogram for columns
col_dend <-  df %>%
  t() %>%
  dist() %>%
  hclust() %>%
  as.dendrogram() %>%
  set("branches_lwd", 1) %>% 
  set("branches_k_color", mycols[1:2], k = 2)
heatmaply(
  df,
  Rowv = row_dend,
  Colv = col_dend
)

在这里插入图片描述

library(dendextend)
# Create dendrogram for rows
mycols <- c("#2E9FDF", "#00AFBB", "#E7B800", "#FC4E07")
row_dend <-  df %>%
  dist() %>%
  hclust() %>%
  as.dendrogram() %>%
  set("branches_lwd", 1) %>% 
  set("branches_k_color", mycols[1:3], k = 3) 

# Create dendrogram for columns
col_dend <-  df %>%
  t() %>%
  dist() %>%
  hclust() %>%
  as.dendrogram() %>%
  set("branches_lwd", 1) %>% 
  set("branches_k_color", mycols[1:2], k = 2)
heatmaply(
  df[, -c(8, 9)],
  col_side_colors = c(rep(0, 5), rep(1, 4)),
  row_side_colors = df[, 8:9]
)

在这里插入图片描述

library(dendextend)
# Create dendrogram for rows
mycols <- c("#2E9FDF", "#00AFBB", "#E7B800", "#FC4E07")
row_dend <-  df %>%
  dist() %>%
  hclust() %>%
  as.dendrogram() %>%
  set("branches_lwd", 1) %>% 
  set("branches_k_color", mycols[1:3], k = 3) 

# Create dendrogram for columns
col_dend <-  df %>%
  t() %>%
  dist() %>%
  hclust() %>%
  as.dendrogram() %>%
  set("branches_lwd", 1) %>% 
  set("branches_k_color", mycols[1:2], k = 2)
heatmaply(df, cellnote = mtcars)

在这里插入图片描述

library(dendextend)
# Create dendrogram for rows
mycols <- c("#2E9FDF", "#00AFBB", "#E7B800", "#FC4E07")
mat <- df
mat[] <- paste("This cell is", rownames(mat))
mat[] <- lapply(colnames(mat), function(colname) {
  paste0(mat[, colname], ", ", colname)
})
heatmaply(
  df,
  custom_hovertext = mat
)