# NOT RUN {
library(dplyr)
hm =
tidyHeatmap::N52 %>%
tidyHeatmap::heatmap(
.row = symbol_ct,
.column = UBR,
.value = `read count normalised log`
)
hm %>% add_tile(CAPRA_TOTAL)
hm %>% add_tile(inflection, palette = circlize::colorRamp2(c(0, 3,10), c("white", "green", "red")))
# }
Run the code above in your browser using DataLab