ggheatmap_anno_sample: Draw a heatmap of the grouped samples, and add group...
In ZhonghuiGai/ggheatmap: Heatmap based on ggplot2

Description Usage Arguments Value Author(s) Examples

View source: R/ggheatmap_anno_sample.R

Draw a heatmap of the grouped samples, and add group information to the result of ggheatmap

1	ggheatmap_anno_sample(data)

data

a data.frame containg the samples information and the grouping information

a ggplot2 type of heatmap containing only one row

Zhonghui Gai

data <- rowname_to_col(iris)
data <- data[,-6]
data$samples <- factor(data$samples, levels = data$samples)
p <- ggheatmap(data = data, midpoint = 2, scale = TRUE)
anno.samples <- data.frame(group = iris$Species,
samples = data$samples)
p.sample <- ggheatmap_anno_sample(data = anno.samples) + ggsci::scale_fill_jama()
p %>% aplot::insert_top(p.sample, height = 0.01)