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")


cas-bioinf/covid19retrospective documentation built on Sept. 7, 2021, 6:19 p.m.