Covid19

[Fonte dos dados]: https://github.com/CSSEGISandData/COVID-19/tree/master/csse_covid_19_data/csse_covid_19_time_series 

library(tidyverse)
library(readr)
library(scales)

# Fonte: https://github.com/CSSEGISandData/COVID-19/tree/master/csse_covid_19_data/csse_covid_19_time_series
covid19_confirmed_global <- read_delim("time_series_covid19_confirmed_global.csv",";", escape_double = FALSE, col_types = cols(data = col_date(format = "%d/%m/%Y")), trim_ws = TRUE)

# Bases

covid19_confirmed_global
covid19_deaths_global
covid19_recovered_global

Casos Confirmados

#library("reshape2")
#library("ggplot2")

#test_data_long <- melt(test_data, id="date")  # convert to long format
#ggplot(data=test_data_long,
#      aes(x=date, y=value, colour=variable)) +
#       geom_line()

ggplot(covid19_confirmed_global, aes(data)) + scale_x_date(labels = date_format("%d/%m")) + theme(axis.text.x = element_text(angle=90)) + theme_bw() + ylab("covid19_confirmed") +
  geom_point(aes(y = Brazil, colour = "Brazil")) + 
  geom_point(aes(y = Argentina, colour = "Argentina"))+
  geom_point(aes(y = Chile, colour = "Chile")) +
  geom_point(aes(y = Bolivia, colour = "Bolivia"))+
  geom_point(aes(y = Paraguay, colour = "Paraguay")) +
  geom_point(aes(y = Uruguay, colour = "Uruguay"))+
  geom_point(aes(y = Ecuador, colour = "Ecuador"))

ggplot(covid19_confirmed_global, aes(data)) + scale_x_date(labels = date_format("%d/%m")) + theme(axis.text.x = element_text(angle=90)) + theme_bw()+ ylab("covid19_confirmed") + 
  geom_line(aes(y = Brazil, colour = "Brazil")) + 
  geom_line(aes(y = Argentina, colour = "Argentina"))+
  geom_line(aes(y = Chile, colour = "Chile")) +
  geom_line(aes(y = Bolivia, colour = "Bolivia"))+
  geom_line(aes(y = Paraguay, colour = "Paraguay"))+
  geom_line(aes(y = Uruguay, colour = "Uruguay"))+
  geom_line(aes(y = Ecuador, colour = "Ecuador"))