\begin{Schunk}
\begin{Sinput}
 ggplot(data = dat_long, aes(y = variable, x = value)) +
    geom_density_ridges() + theme_ridges()+
    scale_y_discrete(expand = c(0.01, 0))+
    scale_x_continuous(expand = c(0, 0))
\end{Sinput}
\end{Schunk}
