oldpar <- par(no.readonly = TRUE)
par(mar = c(3, 3, 1, 5))
# Data simulation
set.seed(1)
mat <- matrix(rnorm(100), ncol = 10)
rownames(mat) <- paste0("r", 1:nrow(mat))
colnames(mat) <- paste0("c", 1:ncol(mat))
# Generating heatmaps
Heatmap(mat = mat)
Heatmap(mat = mat, text = TRUE, format = "f", digits = 2)
Heatmap(
mat = mat,
col = c("lightgrey", "blue", "black"),
legend = FALSE
)
par(oldpar)
Run the code above in your browser using DataLab