paper_tables_and_figures.Rmd

---
output: github_document
---


## Minimal input data frame

element | feature | value | annotation | group 
------------ | ------------- | ------------- | ------------- | -------------
`chr` or `fctr` | `chr` or `fctr` | `numeric` | ... | ...

```{r}
library(tidyverse)
library(tidyHeatmap)
pasilla_plus = 
    tidyHeatmap::pasilla %>%
        dplyr::mutate(act = activation) %>% 
        tidyr::nest(data = -sample) %>%
        dplyr::mutate(size = rnorm(n(), 4,0.5)) %>%
        dplyr::mutate(age = runif(n(), 50, 200)) %>%
        tidyr::unnest(data) %>%
        dplyr::rename(count = `count normalised adjusted`) %>%
        dplyr::mutate(pathway = if_else(location == "Secretory", "cluster 1", "cluster 2"))
```

```{r example_figure}
pasilla_plus %>%
  group_by(pathway) %>%
  heatmap( symbol, sample, count ) %>%
    add_tile(condition) %>%
    add_point(activation) %>%
    add_tile(act) %>%
    add_bar(size) %>%
    add_line(age)
```