heatmap_row_split

library(ComplexHeatmap)

## Loading required package: grid

## ========================================
## ComplexHeatmap version 2.18.0
## Bioconductor page: http://bioconductor.org/packages/ComplexHeatmap/
## Github page: https://github.com/jokergoo/ComplexHeatmap
## Documentation: http://jokergoo.github.io/ComplexHeatmap-reference
## 
## If you use it in published research, please cite either one:
## - Gu, Z. Complex Heatmap Visualization. iMeta 2022.
## - Gu, Z. Complex heatmaps reveal patterns and correlations in multidimensional 
##     genomic data. Bioinformatics 2016.
## 
## 
## The new InteractiveComplexHeatmap package can directly export static 
## complex heatmaps into an interactive Shiny app with zero effort. Have a try!
## 
## This message can be suppressed by:
##   suppressPackageStartupMessages(library(ComplexHeatmap))
## ========================================

remove_adeno <- readRDS("~/Documents/r_codes/remove_adeno.rds")
filtered_df <- remove_adeno[,-1]
filtered_matrix <- as.matrix(filtered_df)

# ısı haritası oluşturma
Heatmap(filtered_matrix, name = "Adeno", row_split = remove_adeno$merged_stage, cluster_rows = FALSE,cluster_columns = FALSE)

## The automatically generated colors map from the 1^st and 99^th of the
## values in the matrix. There are outliers in the matrix whose patterns
## might be hidden by this color mapping. You can manually set the color
## to `col` argument.
## 
## Use `suppressMessages()` to turn off this message.

remove_scc <- readRDS("~/Documents/r_codes/remove_scc.rds")
filtered_df <- remove_scc[,-1]
filtered_matrix <- as.matrix(filtered_df)

# ısı haritası oluşturma
Heatmap(filtered_matrix, name = "Scc", row_split = remove_scc$merged_stage, cluster_rows = FALSE,cluster_columns = FALSE)

## The automatically generated colors map from the 1^st and 99^th of the
## values in the matrix. There are outliers in the matrix whose patterns
## might be hidden by this color mapping. You can manually set the color
## to `col` argument.
## 
## Use `suppressMessages()` to turn off this message.

remove_adeno_selected <- readRDS("~/Documents/r_codes/remove_adeno_selected.rds")
filtered_df <- remove_adeno_selected[,-11]
filtered_matrix <- as.matrix(filtered_df)

# ısı haritası oluşturma
Heatmap(filtered_matrix, name = "Adeno Selected", row_split = remove_adeno_selected$merged_stage, cluster_rows = FALSE,cluster_columns = FALSE)

## The automatically generated colors map from the 1^st and 99^th of the
## values in the matrix. There are outliers in the matrix whose patterns
## might be hidden by this color mapping. You can manually set the color
## to `col` argument.
## 
## Use `suppressMessages()` to turn off this message.

remove_sq_selected <- readRDS("~/Documents/r_codes/remove_sq_selected.rds")
filtered_df <- remove_sq_selected[,-8]
filtered_matrix <- as.matrix(filtered_df)

# ısı haritası oluşturma
Heatmap(filtered_matrix, name = "Scc Selected", row_split = remove_sq_selected$merged_stage, cluster_rows = FALSE)