Chapter 52 Gender and Adverse Events

We find that Females report Adverse Events more than Males.

There is a distinct difference in the products which cause adverse events for Females and Males. The products which cause the adverse events in Females are different kind of Vitamins , Cleansing Conditioner. The products which cause the adverse events in Males are Super Beta Prostate , Hydroxy Cut ( a weight loss product ) , Raw Oysters , Peanut Butter.

AdverseFoodEvents %>%
  group_by(Gender) %>%
  filter(!is.na(Gender)) %>%
  summarise(Count = n()) %>%
  arrange(desc(Count)) %>%
  ungroup() %>%
  mutate(Gender = reorder(Gender,Count)) %>%
  head(10) %>%
  
  ggplot(aes(x = Gender,y = Count)) +
  geom_bar(stat='identity',colour="white", fill = fillColor) +
  geom_text(aes(x = Gender, y = 1, label = paste0("(",Count,")",sep="")),
            hjust=0, vjust=.5, size = 4, colour = 'black',
            fontface = 'bold') +
  labs(x = 'Gender', 
       y = 'Count', 
       title = 'Gender and Count') +
  coord_flip() + 
  theme_bw()

Please see the bar charts below to see the differences in the Products used by the different sexes which lead to adverse events.

52.1 Plot Products for Female

AdverseFoodEvents %>%
  filter(Gender == 'Female') %>%
  filter(ProductName != "REDACTED") %>%
  PlotProducts(fillColorName = fillColor2)

52.2 Plot Products for Male

AdverseFoodEvents %>%
  filter(Gender == 'Male') %>%
  filter(ProductName != "REDACTED") %>%
  PlotProducts(fillColorName = fillColor2)

52.3 Female Symptoms Top 10

AdverseFoodEvents %>%
  filter(Gender == 'Female') %>%
  BarPlotSymptoms()

52.4 Male Symptoms Top 10

AdverseFoodEvents %>%
  filter(Gender == 'Male') %>%
  BarPlotSymptoms()