Recreating bar chart with R and ggplot2

Heyy, can anyone help with recreating a graph in R using ggplot2?
library(ggplot)
library(tidyverse)
library(ggthemes)



We were thinking of creating two separate graphs and combining them using patchwork or cowplot and also ggthemes for the design. Would be great if anyone with some more experience could help us with how to approach this task. Any help is much appreciated!