Data Visualization, R Programming, Data Science, Ggplot2, Tidyverse.
"")) %>% mutate(Country = fct_reorder(term, estimate, .desc = TRUE))) %>% bind_rows(.id = "Type") Reference lines for average measures for NZ ref_line <- list( " " = tidy(fit_Energy_GWh)[1,2], "NZ annual average" = tidy(fit_Carbon_Gg)[1,2]) %>% bind_rows(.id = "Type") Side-by-side bar-plot