Eric
Gracias por compartir.
Javier Marcuzzi
El dom., 22 mar. 2020 a las 16:52, neo (<ericconchamu...@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@r-project.org
> > https://stat.ethz.ch/mailman/listinfo/r-help-es
>
> [[alternative HTML version deleted]]
>
> _______________________________________________
> R-help-es mailing list
> R-help-es@r-project.org
> https://stat.ethz.ch/mailman/listinfo/r-help-es
>
[[alternative HTML version deleted]]
_______________________________________________
R-help-es mailing list
R-help-es@r-project.org
https://stat.ethz.ch/mailman/listinfo/r-help-es
