tarea3_covid

df <- read.csv("country_wise_latest.csv") 

hist(df$Confirmed, breaks = 10, main = "Distribución de casos confirmados", xlab = "Active", ylab = "Deaths")

hist(df$Confirmed, breaks = 10, main = "Distribución de nuevos casos y muertes", xlab = "New.deaths", ylab = "New.cases") 

boxplot(df$New.cases, horizontal = TRUE, notch = FALSE, main = "Distribución de casos confirmados", xlab = "New.cases", ylab = "New.deaths")

plot(df$Active, df$Recovered, main = "Gráfico de dispersión", xlab = "Active", ylab = "Recovered", col = "green")