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)