Small multiples

library(ggtext)

## Warning: package 'ggtext' was built under R version 4.0.5

library(tidyselect)
library(ggplot2)
library(tidyverse)

## -- Attaching packages --------------------------------------- tidyverse 1.3.0 --

## v tibble  3.0.5     v dplyr   1.0.3
## v tidyr   1.1.2     v stringr 1.4.0
## v readr   1.4.0     v forcats 0.5.0
## v purrr   0.3.4

## -- Conflicts ------------------------------------------ tidyverse_conflicts() --
## x dplyr::filter() masks stats::filter()
## x dplyr::lag()    masks stats::lag()

library(lubridate)

## 
## Attaching package: 'lubridate'

## The following objects are masked from 'package:base':
## 
##     date, intersect, setdiff, union

df_wide <- read_csv("small multiples.csv")

## 
## -- Column specification --------------------------------------------------------
## cols(
##   Region = col_character(),
##   `2013` = col_double(),
##   `2014` = col_double(),
##   `2015` = col_double(),
##   `2016` = col_double(),
##   `2017` = col_double(),
##   `2018` = col_double(),
##   `2019` = col_double()
## )

df <- df_wide %>% 
  pivot_longer(cols = !Region, 
               names_to = "year", 
               values_to = "value") %>% 
  mutate(Region = as.factor(Region),
         year = as.numeric(year))

ggplot(data= df, aes(x = year, y = value, group = Region)) +
  geom_line(aes(color = Region), size = 2.5) +
  labs (title = " Region progess since 2013") +
  
  
  scale_x_continuous(limits = c(2013,2019), 
                   breaks = seq(2013,2019, by = 1)) +
  scale_y_continuous(limits = c(0, 100),
                     breaks = seq(0, 100, by = 10),
                     labels = function(x) paste0(x,"%")) +

  
  theme(plot.title = element_markdown(size=16),
        plot.title.position = "plot",
        plot.subtitle = element_markdown(size=12, face="bold"),
        
        axis.title.y = element_blank(), # weird, why y here ?
        axis.text.y = element_text(size = 12), 
        axis.ticks.y = element_blank(),
        
        axis.title.x = element_markdown(hjust = 0,size = 12),
        axis.text.x = element_text(size = 12),
        axis.line.x = element_line(),
        axis.ticks.x = element_blank(),
        
        legend.title = element_blank(),
        
        
        # legend.position = "none",
        panel.grid.major = element_blank(),
        panel.grid.minor = element_blank(),
        panel.background = element_blank())

ggplot(data= df, aes(x = year, y = value, group = Region)) +
  geom_line(color = "#1F497D",size = 2.5) +
  labs (title = " Region progess since 2013") +
  
  facet_grid(. ~ Region) +
  scale_x_continuous(limits = c(2013,2019), 
                   breaks = seq(2013,2019, by = 6)) +
  scale_y_continuous(limits = c(0, 100),
                     breaks = seq(0, 100, by = 10),
                     labels = function(x) paste0(x,"%")) +

  
  theme(plot.title = element_markdown(size=16),
        plot.title.position = "plot",
        plot.subtitle = element_markdown(size=12, face="bold"),
        
        axis.title.y = element_blank(), # weird, why y here ?
        axis.text.y = element_text(size = 12), 
        axis.ticks.y = element_blank(),
        
        axis.title.x = element_markdown(hjust = 0,size = 12),
        axis.text.x = element_text(size = 12),
        axis.line.x = element_line(),
        axis.ticks.x = element_blank(),
        
        legend.position =  "None",
    
        
        # legend.position = "none",
        panel.grid.major = element_blank(),
        panel.grid.minor = element_blank(),
        panel.background = element_blank(),
        
        panel.spacing.x = unit(2, "lines"))

```