sheet1.csv

sheet1_chart.R

library(tidyverse)
library(unhcrthemes)

sheet1 <- read_csv("sheet1.csv")
 
 ggplot(sheet1, aes(year, n, fill = poc)) +
  geom_col(width = 0.7) +
  scale_x_continuous(labels = ~ paste0("'", substr(.x, start = 3, stop = 4)),
                     breaks = 2010:2020) +
  scale_y_continuous(expand = c(0, 0),
                     limits = c(0, NA)) +
  labs(title = "Title should be short with the firs word capitalized | 2010-2020",
       subtitle = "Subtitle should also be short with the first world capitalized",
       x = "X-axis title",
       y = "Y-axis title",
       caption = "Source: here is the data source\n\U00A9 UNHCR, the UN refugee agency") +
  scale_fill_manual("",
                    values = c(`Internally displaced persons` = "#00B398",
                               `UNRWA refugees` = "#338EC9",
                               `UNHCR refugees` = "#0072BC",
                               `Asylum-seekers` = "#18375F",
                               `Venezuelans displaced abroad` = "#EF4A60")) +
  unhcrthemes::theme_unhcr(grid = "Y") +
  theme(axis.line.x = element_line(colour = "#1A1A1A", size = 0.75),
        plot.title.position = "plot",
        plot.caption.position = "plot",
        legend.justification = "left")