| 1234567891011121314151617181920212223242526 |
- #!/usr/bin/env Rscript
- library(rctutils)
- library(scriptName)
- library(openxlsx)
- library(forcats)
- library(tidyverse)
- tryCatch(
- setwd(dirname(current_filename())),
- error=function(...) warning("Could not find script path. Hopefully you are in the right directory already."))
- organ_data <- read.xlsx("transplants-organ.xlsx") %>%
- arrange(desc(Count)) %>%
- mutate(Organ=fct_inorder(Organ))
- p <- ggplot(organ_data) + aes(x=Organ, y=Count, fill=Organ) +
- geom_col() +
- geom_text(aes(label=str_c(" ", Organ, " (", Count, ") "), hjust=ifelse(Count>max(Count)/2, 1, 0)), vjust=0.5) +
- coord_flip() + scale_x_discrete(limits = rev(levels(organ_data$Organ))) +
- scale_y_continuous(expand=expand_scale(mult=c(0, 0.01))) +
- guides(fill=FALSE) +
- theme(axis.text.y=element_blank(),
- axis.ticks.y=element_blank()) +
- ylab("Transplants performed")
- ggprint(p, pdf("transplants-organ.pdf", width=6, height=3))
|
