test = scale(mtcars[,3:7])
pheatmap(test)

pheatmap(test, color = colorRampPalette(c("#00AFBB", "#FC4E07", "#E7B800"))(50))

pheatmap(test, cluster_row = FALSE, cluster_cols = FALSE)

pheatmap(test, legend = FALSE)

pheatmap(test, display_numbers = TRUE)

data = matrix(ifelse(test > 0.5, "*", ""),nrow = nrow(test))
pheatmap(test, display_numbers = data)

annotation_col = data.frame(
group_1 = c('KK','KK','JJ','JJ','JJ'),
group_2 = 1:5
)
rownames(annotation_col) = colnames(test)
annotation_row = data.frame(
vs = factor(mtcars$vs)
)
rownames(annotation_row) = rownames(test)
pheatmap(test, annotation_col = annotation_col, annotation_legend = FALSE)
pheatmap(test, annotation_col = annotation_col, annotation_row = annotation_row)


pheatmap(test, annotation_col = annotation_col, annotation_row = annotation_row, angle_col = "45")

pheatmap(test,annotation_col = annotation_col,cluster_rows = FALSE,gaps_row = c(10, 14))
