Today's Visualization (R)

Dataset from https://www.kaggle.com/kaggle/kaggle-survey-2017?utm_medium=partner&utm_source=datacamp.com&utm_campaign=ml+survey+case+study&select=multipleChoiceResponses.csv

using R with ggplot2

ggplot(mc_responses_reordered %>%
  filter(!is.na(WorkInternalVsExternalTools)), aes(x = fct_rev(WorkInternalVsExternalTools))) +
  geom_bar(fill = "blue") +
  coord_flip() +
  labs(x = "Tools at Work", y = NULL)

ggplot(responses_1f, aes(fct_rev(fct_infreq(EmployerIndustry)), fill = EmployerIndustry)) +
  geom_bar(show.legend = F) +
  coord_flip() +
  scale_y_log10() +
  labs(title = "Kaggle Data Science Survey 2007 Employer Industry", x = "Industry", y = NULL, caption = "...color doesn't mean sh!t 🙈")

I feel embarrassed but just for the record.