Aguascalientes

Aguascalientes<- t(datos[datos$nombre=="AGUASCALIENTES" ,])
Aguascalientes <- as.vector(Aguascalientes)
Aguascalientes<-Aguascalientes[4:130]
Aguascalientes <- as.numeric(Aguascalientes)
Aguascalientes <- as.vector(Aguascalientes)
cAguascalientes <- cumsum(Aguascalientes)
chiapas<- t(datos[datos$nombre=="CHIAPAS" ,])
chiapas <- as.vector(chiapas)
chiapas<-chiapas[4:130]
chiapas <- as.numeric(chiapas)
chiapas <- as.vector(chiapas)
Cchiapas <- cumsum(chiapas)
Fecha2 = seq(from = as.Date("2020-01-05"), to = as.Date("2020-05-10"), by = 'day')
c1 <-data.frame(Fecha2, Aguascalientes, chiapas)

#Graficos de casos diarios confirmados
plot(Aguascalientes)

#Grafica aguascalientes
ggplot(data = c1) +
  ggtitle("Casos diarios COVID-19 en aguascalientes")+
  geom_line(mapping = aes(x = Fecha2, y = Aguascalientes ))

aguascalientes y chiapas (interactiva)