Buenas y ascépticas!
Capaz que sea demasiado disgregante, pero creo que a alguno le puede
interesar. En el usuario de R-Blogers de Twitter estos dÃas estan
presentando hasta paquetes para tratar los temas del corina...
No ando yo en eso, pero creo que les puede interesar, si no andan
aplastados con tele-urgencias.
Yo sÃ, simple pero mucho.
Cuidense y a los cercanos y lejanos,
Juan
Hau idatzi du Javier Gómez Gonzalez (zaragatan en gmail.com) erabiltzaileak
(2020 mar. 23, al. (03:13)):
Hola,
Te sale error porque has cargado el fichero con read.csv().
Si pruebas a cargarlo con "fread()" tus datos tendrán clase data.table.
El error que obtienes es porque el objeto df (igual que datos) no es un
data.table.
Saludos,
Carlos Ortega
www.qualityexcellence.es
El dom., 22 mar. 2020 a las 22:45, Javier Marcuzzi (<
javier.ruben.marcuzzi en gmail.com>) escribió:
Eric
¿Que dataset utilizo? Por curiosidad probé su código, pero me salen
errores. Copio y pego todo como me sale en la consola.
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 `:=`(...)
defined for use in j, once only and in particular ways. See
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 =
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 en 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
autónomas y quiero calcular el número diario de nuevos casos y la
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]]