Chapter 48 Outcomes and Products associated with Adverse Events

We examine the Products associated with the following outcomes

• Death
  
• Death for persons 70 and above
• Disability

We find causes of deaths to be primarily caused by

• Raw Oysters
• Axon
  
• Benefiber with Wheat Dextrin
  
• 5 Hour Energy
  
• Shower to Shower Powder

48.1 Death Products

keywordOutcome = "DEATH"
 
OutcomeSpecificEvents = AdverseFoodEvents %>%
  filter(str_detect(Outcomes,keywordOutcome))

OutcomeSpecificEvents %>%
  filter(ProductName != "REDACTED") %>%
  PlotProducts(fillColorName = "red")

Why would someone eat Raw Oysters ?

48.2 Death Products for Age 70 and Above

keywordOutcome = "DEATH"
 
OutcomeSpecificEvents = AdverseFoodEvents %>%
  filter(str_detect(Outcomes,keywordOutcome))

OutcomeSpecificEvents %>%
  mutate(AgeAtAdverseEventInYears = as.integer(AgeAtAdverseEventInYears)) %>%
  filter(AgeAtAdverseEventInYears >= 70) %>%
  filter(ProductName != "REDACTED") %>%
  PlotProducts(fillColorName = "red")

48.3 Disability Products

keywordOutcome = "DISABILITY"
 
OutcomeSpecificEvents = AdverseFoodEvents %>%
  filter(str_detect(Outcomes,keywordOutcome))

OutcomeSpecificEvents %>%
  PlotProducts(fillColorName = fillColor2)