Asignación 2

Analisis de la evolución del COVID en Canada’

library(readr)

## Warning: package 'readr' was built under R version 3.6.3

library(gganimate)

## Warning: package 'gganimate' was built under R version 3.6.3

## Loading required package: ggplot2

library(tidyverse)

## Warning: package 'tidyverse' was built under R version 3.6.3

## -- Attaching packages -------------------

## v tibble  3.0.1     v dplyr   0.8.4
## v tidyr   1.0.3     v stringr 1.4.0
## v purrr   0.3.3     v forcats 0.5.0

## Warning: package 'tibble' was built under R version 3.6.3

## Warning: package 'tidyr' was built under R version 3.6.3

## Warning: package 'forcats' was built under R version 3.6.3

## -- Conflicts --- tidyverse_conflicts() --
## x dplyr::filter() masks stats::filter()
## x dplyr::lag()    masks stats::lag()

library(gifski)

## Warning: package 'gifski' was built under R version 3.6.3

library(gganimate)
library(plotly)

## Warning: package 'plotly' was built under R version 3.6.3

## 
## Attaching package: 'plotly'

## The following object is masked from 'package:ggplot2':
## 
##     last_plot

## The following object is masked from 'package:stats':
## 
##     filter

## The following object is masked from 'package:graphics':
## 
##     layout

url_deaths <- "https://raw.githubusercontent.com/CSSEGISandData/COVID-19/master/csse_covid_19_data/csse_covid_19_time_series/time_series_covid19_deaths_global.csv"
url_confirmed <- "https://raw.githubusercontent.com/CSSEGISandData/COVID-19/master/csse_covid_19_data/csse_covid_19_time_series/time_series_covid19_confirmed_global.csv"
url_recovered <- "https://raw.githubusercontent.com/CSSEGISandData/COVID-19/master/csse_covid_19_data/csse_covid_19_time_series/time_series_covid19_recovered_global.csv"

confirmed <- read.csv(url_confirmed)
deaths <- read.csv(url_deaths)
recovered <- read.csv(url_recovered)



canada_confirmed <-  t(confirmed[confirmed$Country.Region=="Canada",])
canada_deaths    <-  t(deaths[deaths$Country.Region=="Canada",])
canada_recovered <-  t(recovered[recovered$Country.Region=="Canada",])

plot(canada_confirmed)

## Warning in xy.coords(x, y, xlabel, ylabel, log): NAs introducidos por coerción

## Warning in xy.coords(x, y, xlabel, ylabel, log): NAs introducidos por coerción

#Vector
DATE = seq(from = as.Date("2020-01-22"), to = as.Date("2020-04-22"), by = 'day')

#Confirmed
vector1   <- as.vector(canada_confirmed)
vector2   <- vector1[5:96]
n         <- as.numeric(vector2)
CONFIRMED <- as.vector(n)

#Deaths 
vector1 <- as.vector(canada_deaths)
vector2 <- vector1[5:96]
n       <- as.numeric(vector2)
DEATHS  <- as.vector(n)

#Recovered
vector1    <- as.vector(canada_recovered)
vector2    <- vector1[5:96]
n          <- as.numeric(vector2)
RECOVERED  <- as.vector(n)


#DATAFRAME
DATA       <- data.frame(DATE,CONFIRMED,DEATHS,RECOVERED)

#Confirmed Plot
ggplot(data = DATA) +
  geom_line(mapping = aes(x = DATE, y = CONFIRMED)) 

#Recovered Plot
ggplot(data = DATA) +
  geom_line(mapping = aes(x = DATE, y = RECOVERED)) 

#Deaths Plot
ggplot(data = DATA) +
  geom_line(mapping = aes(x = DATE, y = DEATHS)) 

#Animation Confirmed
ggplot(data = DATA) +
  ggtitle("CANADA COVID-19 CONFIRMED CASES ")+
  geom_line(mapping = aes(x = DATE, y = CONFIRMED))+
  transition_reveal(DATE)

#Animation Recovered
ggplot(data = DATA) +
  ggtitle("CANADA COVID-19 RECOVERED CASES ")+
  geom_line(mapping = aes(x = DATE, y = RECOVERED))+
  transition_reveal(DATE)

#Animation Deaths
ggplot(data = DATA) +
  ggtitle("CANADA COVID-19 DEATH CASES ")+
  geom_line(mapping = aes(x = DATE, y = DEATHS))+
  transition_reveal(DATE)



#Triline animation
ggplot(data = DATA)+
  geom_line(aes(x = DATE, y = CONFIRMED), color = 'blue')+
  geom_line(aes(x = DATE, y = DEATHS), color = 'red')+
  geom_line(aes(x = DATE, y = RECOVERED), color = 'green')+
  ylab("Canada Covid - 19") + xlab("Date") +
transition_reveal(DATE)