File:ComplexHeatmap1.png

No higher resolution available.

ComplexHeatmap1.png (600 × 450 pixels, file size: 29 KB, MIME type: image/png)

Summary

library(ComplexHeatmap)
set.seed(123)
ng <- 10; n <- 10
mat = matrix(rnorm(ng * n), n)
rownames(mat) = paste0("R", 1:ng)
colnames(mat) = paste0("C", 1:n)
bin <- sample(c("resistant", "sensitive"), n, replace = TRUE)
tgi <- runif(n)

# sort the columns by tgi
ord <- order(tgi)

col_fun = circlize::colorRamp2(range(tgi), c("#DEEBF7", "#084594"))
column_ha = HeatmapAnnotation(tgi = tgi[ord], 
                              bin = bin[ord], 
            col = list(tgi = col_fun,
                       bin = c("resistant" = "violet", 
                               "sensitive" = "mediumseagreen")))

p <- mat[, ord] |>
     Heatmap(name = "expr", 
          top_annotation = column_ha, 
          cluster_columns = FALSE,
          show_row_names = TRUE,
          column_names_rot = 60) |> 
     draw(padding = unit(c(2, 20, 2, 2), "mm"))
# svg("~/Downloads/out.svg", width = 8, height = 6)
# p
# dev.off()

File history

Click on a date/time to view the file as it appeared at that time.

	Date/Time	Thumbnail	Dimensions	User	Comment
current	14:02, 23 August 2022		600 × 450 (29 KB)	Brb (talk \| contribs)	<pre> library(ComplexHeatmap) set.seed(123) ng <- 10; n <- 10 mat = matrix(rnorm(ng * n), n) rownames(mat) = paste0("R", 1:ng) colnames(mat) = paste0("C", 1:n) bin <- sample(c("resistant", "sensitive"), n, replace = TRUE) tgi <- runif(n) # sort the columns by tgi ord <- order(tgi) col_fun = circlize::colorRamp2(range(tgi), c("#DEEBF7", "#084594")) column_ha = HeatmapAnnotation(tgi = tgi[ord], bin = bin[ord], col = list(tgi = col_fun,...

You cannot overwrite this file.

File usage

The following page uses this file:

Heatmap