library(ggplot2)
library(plotly)
require(graphics)
my_file <- read.csv("owid-covid-data.csv")
my_file_F <- as.data.frame(my_file)
mydates <- my_file_F$date
mydates_D <- as.Date(mydates)
Date <- mydates_D[60070:60130]

cases <- my_file_F$total_cases
cases_R <- cases[60070:60130]

New_Cases <- cases_R
Arq <- cbind(Date, New_Cases)
Arq <- as.data.frame(Arq)

## GCVD <- plot_ly(Arq, x = Date, y = New_Cases, type = "scatter", mode = "lines")

## GCVD <- GCVD %>%  layout(yaxis = list(title = 'Number of Cases'), 
##                          xaxis = list(title = 'Date') )
                       
## GCVD