Today's Visualization (R)

source: 41 Percent Of Fliers Think You’re Rude If You Recline Your Seat | FiveThirtyEight

data: Flying Etiquette Survey - Dataset - DataHub - Frictionless Data

forked: https://raw.githubusercontent.com/ShokoLocoMocco/data/master/flying-etiquette-survey/flying-etiquette.csv

code (complete):

flying_etiquette <- read.csv("https://raw.githubusercontent.com/ShokoLocoMocco/data/master/flying-etiquette-survey/flying-etiquette.csv")
 
 
 flying_etiquette_f <- flying_etiquette %>%
  mutate_if(is.character, as.factor) %>%
  filter("How.often.do.you.travel.by.plane." != "Never")
 
 
 gathered_data <- flying_etiquette_f %>%
  select(contains("rude")) %>%
  gather(q_on_rude, res)
 
 dichotimized_fe <- gathered_data %>%
  mutate(q_on_rude = str_remove(q_on_rude, ".*rude.to.")) %>%
  mutate(q_on_rude = str_remove(q_on_rude, "on.a.plane")) %>%
  filter(str_detect(res, ".")) %>%
  mutate(rude = if_else(res %in% c('No, not rude at all', 'No, not at all rude'), 0, 1))
 
 rude_behave <- dichotimized_fe %>%
  mutate(q_on_rude = gsub("[.]", " ", q_on_rude)) %>%
  group_by(q_on_rude) %>%
  summarize(rude_r = mean(rude))
 rude_behave
 
 
 initial_bar <- rude_behave %>%
  mutate(q_on_rude = fct_reorder(q_on_rude, rude_r)) %>%
  ggplot(aes(x = q_on_rude, y = rude_r)) +
  geom_col()
 
 
 initial_bar
 
 bar_labs <- initial_bar +
  labs(title = "Hell Is Other People In A Pressurized Metal Tube",
  subtitle = "Percentage of 874 air-passenger respondents who said action is very or somewhat rude",
  caption = "Source: SurveyMonkey Audience", x = NULL,
  y = NULL)
 
 bar_labs
 
 hor_plot <- bar_labs +
  coord_flip() +
  theme(axis.ticks.x = element_blank(), axis.text.x = element_blank())
 
 hor_plot
 
 
 end_plot <- hor_plot +
  geom_text(aes(label = scales::percent(rude_r), y = rude_r + .05), position = position_dodge(0.9), vjust = 1) +
  geom_col(fill = "purple")
 
 end_plot
 
 

findings:

rude_behave %>%
  mutate(rude_r = rude_r*100)

👇

I never like it when the world is not nice to kids and (mostly) mothers are to blame in such situation.... I also understand there are moments that we don't want to be distracted. I hope this survey would help air companies to come up with some sort of solution for traveling kids so everyone can fly in peace.

*Btw, I wouldn't mind adults be just kicked out for not wearing a mask properly. They just need to act their age instead of acting unruly knowingly themselves.