class_survey_df <- 
    read_csv(here("data/survey_responses/Compis-in-Urban-Research-II.csv"))

rbranding::brand_set_ggplot(here("_brand.yml"))
plot_compi_survey_var <- function(var, df){
    df |> 
        ggplot(
            mapping = (aes(x = !!sym(var)))
        ) +
        geom_bar() +
        scale_y_continuous("Anzahl Antworten") +
        scale_x_discrete(" ")
}

for (colname in colnames(class_survey_df)){
    p <- plot_compi_survey_var(
        colname,
        class_survey_df)
    print(p)
}