jlehtoma · March 13, 2019 20:03 · jlehtoma · Mar 13, 2019 · jlehtoma · Mar 13, 2019
diff --git a/plot_funding.R b/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)
	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)