Skip to content

Instantly share code, notes, and snippets.

@jlehtoma
Last active March 13, 2019 20:03
Show Gist options
  • Save jlehtoma/df6f1c97c60335bb6052bb57d1dbf204 to your computer and use it in GitHub Desktop.
Save jlehtoma/df6f1c97c60335bb6052bb57d1dbf204 to your computer and use it in GitHub Desktop.
Opetus- ja kulttuuriministeriön HY:lle myöntämän perusrahoituksen kehitys 2010–2020
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)
@jlehtoma
Copy link
Author

hy_okm_perusrahoitus

Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment