cderv, thank you for the feedback. First off, yes, the steps to load the dataset are part of the markdown. Also, here is the link to the dataset, it was from tidytuesday.
Also, here is the Rmd. code chunk where I use the data. The first step was a manipulation...
group_by(field) %>%
summarise(mean_percent_women = mean(percent_women)) -> percent_women_research
ggplot(data = percent_women_research) +
aes(y = mean_percent_women*100, x = field) +
geom_point(aes(color = field,
size = mean_percent_women)) +
scale_color_brewer(palette = "Set1") +
guides(size = FALSE,
color = FALSE) +
theme(panel.grid.major = element_line(linetype = "dashed", color = "black", size = .11),
panel.background = element_rect("cornsilk"),
text = element_text(family = "Courier"),
axis.ticks = element_blank(),
axis.title.x = element_blank(),
axis.title.y = element_blank(),
axis.text.y = element_text(size = 13),
axis.text.x = element_blank()) +
labs(title = "Across the world, what are the major sectors women work in?", subtitle = "Average percent of women by field of 39 leading economies", caption = "viz by Rich with ggplot, source: TidyTuesday") +
scale_y_continuous(limits = c(10,50)) +
geom_text(data = . %>%
group_by(field),
aes(label = field),
nudge_y = -1.2,
nudge_x = .1,
family = "Courier")