R Notebook

library(tidyverse)
library(readr)
CovidData <- read_csv("Downloads/CovidData.csv")

This is a data set of covid-19, SARS and MERS cases who got chest x-rays.

ggplot(CovidData, aes(x= age))+ geom_bar() + ylab("number of cases")

NA
NA

Bar graph looking at all cases based on age

Now looking just at Covid-19 cases

CovidOnly <- CovidData %>% filter(finding == "COVID-19")
ggplot(CovidOnly, aes(x= age))+ geom_bar() + ylab("Covid-19 cases")

ggplot(CovidOnly, aes(x= sex)) + geom_bar() + ylab("Covid-19 cases")

ggplot(CovidOnly, aes(x=survival)) +geom_bar() + ylab("Number of Cases")

Now looking at Survival based at different ages

Under45 <- CovidOnly %>% filter(age <45)
MidAge <- CovidOnly %>% filter(age >= 45, age< 60 )
old <- CovidOnly %>% filter(age >=60 )


ggplot(Under45, aes(x=survival)) + geom_bar() +ylab("Number of Cases (under 45)")

ggplot(MidAge, aes(x=survival)) + geom_bar() +ylab("Number of Cases (45-60)")

ggplot(old, aes(x=survival)) + geom_bar() + ylab("Number of Cases (over 60)")

NA
NA