## Task 3: Visualization Use ggplot() from ggplot2 package to create scatter plots of Severity and Cases for each DiseaseType. Take Severity as the x axis and Cases as the y axis. *Hint*: You can create a new data frame for each DiseaseType that only includes the data of that DiseaseType. ```{r plot} ### scatter plot of Severity and Cases for each DiseaseType ## Viral ggplot( outbreak %>% filter(DiseaseType == 'Viral'), aes(x= Severity, y= Cases)) + geom_point()+ scale_x_log10() + geom_smooth(method= lm) ## Bacterial ggplot( outbreak %>% filter(DiseaseType == 'Bacterial'), aes(x= Severity, y= Cases)) + geom_point() + scale_x_log10() + geom_smooth(method= lm) ## Parasitic ggplot( outbreak %>% filter(DiseaseType == 'Parasitic'), aes(x= Severity, y= Cases)) + geom_point() + scale_x_log10() + geom_smooth(method= lm) ``` **Question 5** What do the scatter plots show about the relationship between Severity and Cases? Write one line for each DiseaseType. **ADD YOUR RESPONSE HERE** **Viral**: The