Closed davidhodge931 closed 2 years ago
library(palmerpenguins) library(dplyr) library(simplevis) plot_data <- penguins %>% group_by(species) %>% summarise(body_mass_g = mean(body_mass_g, na.rm = TRUE)) gg_bar_col(plot_data, x_var = species, y_var = body_mass_g, col_var = species, col_legend_none = TRUE, mobile = T)