devtools::load_all() library(tidyverse) library(cowplot) theme_set(theme_cowplot())
fake_data <- fake_data_grein() fake_data$breathing_data %>% ggplot(aes(x = day, y = patient, fill = breathing)) + geom_tile(width = 1, height = 0.5)
fake_data$marker_data %>% filter(!(marker %in% c("hcq","az", "tocilizumab", "kaletra"))) %>% ggplot(aes(x = day, y = value, group = patient)) + geom_line() + facet_wrap(~marker, scales = "free")
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.