[R-es] Tasa variación diaria COVID-19

[Javier Marcuzzi]

Eric

¿Que dataset utilizo? Por curiosidad probé su código, pero me salen
errores. Copio y pego todo como me sale en la consola.

> #
https://raw.githubusercontent.com/datasets/covid-19/master/data/time-series-19-covid-combined.csv
> datos <-
read.csv("C:/Users/HP/Downloads/time-series-19-covid-combined.csv")
>
> library(data.table)
> library(ggplot2)
> library(anytime)
>
> df <-datos
>
> df[, fec:=anytime(fec)]
Error in `:=`(fec, anytime(fec)) :
  Check that is.data.table(DT) == TRUE. Otherwise, := and `:=`(...) are
defined for use in j, once only and in particular ways. See help(":=").
> setkey(df,com,fec)
Error in setkeyv(x, cols, verbose = verbose, physical = physical) :
  x is not a data.table
>
> # newc: son los nuevos casos
> df[, newc:=ct - shift(ct), by=.(com)]
Error in `[.data.frame`(df, , `:=`(newc, ct - shift(ct)), by = .(com)) :
  unused argument (by = .(com))
>
> # tasa: es la tasa de cambio que calculé así (ct2 - ct1)/ct1
>
> df[, tasa:=newc/ct, by=.(com)]
Error in `[.data.frame`(df, , `:=`(tasa, newc/ct), by = .(com)) :
  unused argument (by = .(com))

El dom., 22 mar. 2020 a las 16:52, neo (<ericconchamunoz using gmail.com>)
escribió:

> Hola Javier, yo lo hice de la siguiente forma:
>
> library(data.table)
> library(ggplot2)
> library(anytime)
>
> df <- fread("/home/neo/Desktop/rhelp/spain.csv")
> df[, fec:=anytime(fec)]
> setkey(df,com,fec)
>
>      # newc: son los nuevos casos
> df[, newc:=ct - shift(ct), by=.(com)]
>
>      # tasa: es la tasa de cambio que calculé así (ct2 - ct1)/ct1
>
> df[, tasa:=newc/ct, by=.(com)]
>
>
> y obtuve lo siguiente:
>
>
>                     fec       com     pob ct newc tasa
> 1: 2020-04-02 23:00:00 Andalucía 8414240 13 NA          NA
> 2: 2020-05-02 23:00:00 Andalucía 8414240 12   -1 -0.08333333
> 3: 2020-06-02 23:00:00 Andalucía 8414240 21    9 0.42857143
> 4: 2020-04-02 23:00:00    Aragón 1319291  0 NA          NA
> 5: 2020-05-02 23:00:00    Aragón 1319291  1    1 1.00000000
> 6: 2020-06-02 23:00:00    Aragón 1319291  6    5 0.83333333
> 7: 2020-04-02 23:00:00  Asturias 1022800  2 NA          NA
> 8: 2020-05-02 23:00:00  Asturias 1022800  5    3 0.60000000
> 9: 2020-06-02 23:00:00  Asturias 1022800  5    0 0.00000000
>
> Espero que te sirva.
>
> Saludos !!
>
> Eric.
>
>
>
>
> On 21-03-20 14:42, Javier Gómez Gonzalez wrote:
> > Hola:
> >
> > Tengo los datos diarios del número de casos de coronavirus por
> comunidades
> > autónomas y quiero calcular el número diario de nuevos casos y la tasa
> > diaria de variación del número de casos y no se como hacerlo en R.
> >
> > *fecha*
> >
> > *comunidad*
> >
> > *poblacion*
> >
> > *casos_totales*
> >
> > 04/03/2020
> >
> > Andalucía
> >
> > 8414240
> >
> > 13
> >
> > 05/03/2020
> >
> > Andalucía
> >
> > 8414240
> >
> > 12
> >
> > 06/03/2020
> >
> > Andalucía
> >
> > 8414240
> >
> > 21
> >
> > 04/03/2020
> >
> > Aragón
> >
> > 1319291
> >
> > 0
> >
> > 05/03/2020
> >
> > Aragón
> >
> > 1319291
> >
> > 1
> >
> > 06/03/2020
> >
> > Aragón
> >
> > 1319291
> >
> > 6
> >
> > 04/03/2020
> >
> > Asturias
> >
> > 1022800
> >
> > 2
> >
> > 05/03/2020
> >
> > Asturias
> >
> > 1022800
> >
> > 5
> >
> > 06/03/2020
> >
> > Asturias
> >
> > 1022800
> >
> > 5
> >
> > Gracias
> >
> >       [[alternative HTML version deleted]]
> >
> > _______________________________________________
> > R-help-es mailing list
> > R-help-es using r-project.org
> > https://stat.ethz.ch/mailman/listinfo/r-help-es
>
>         [[alternative HTML version deleted]]
>
> _______________________________________________
> R-help-es mailing list
> R-help-es using r-project.org
> https://stat.ethz.ch/mailman/listinfo/r-help-es
>

	[[alternative HTML version deleted]]