Opetus- ja kulttuuriministeriön HY:lle myöntämän perusrahoituksen kehitys 2010–2020

plot_funding.R

library(hrbrthemes)
library(tidyverse)

dat <- tibble::tibble(year = factor(c(2010:2017, paste0("A", 2018:2020))),
                       funding = c(400, 410, 431, 423, 431, 446, 404, 395,
                                   390, 383, 374))

p1 <- dat %>%
  ggplot(aes(x = year, y = funding)) +
  geom_bar(stat = "identity", width = 0.4) +
  geom_text(aes(label = funding), vjust = -0.5) +
  ylim(0, 460) +
  ggtitle("Opetus- ja kulttuuriministeriön HY:lle myöntämän perusrahoituksen kehitys \n2010–2020, milj. e",
          subtitle = "(sisältää apteekkikompensaation vuosina 2010 - 2015)") +
  xlab("") + ylab("") +
  theme_ipsum_rc() + theme(plot.title = element_text(size = 14),
                           panel.grid.major.x = element_blank())

ggsave("hy_okm_perusrahoitus.png", p1)

Lähde: https://www.helsinki.fi/fi/yliopisto/yliopiston-talous/yliopiston-talouden-lukuja#section-11988