Skip to content

[R-es] [Fwd: Re: Asignar a observaciones de una misma fecha el mismo número de orden en una secuencia]

1 message · miriam.alzate en unavarra.es

#
Finalmente está cerrado el tema, con el último correo se creó la variable
tal y como quería.

Muchas gracias.

---------------------------- Mensaje original ----------------------------
Asunto: Re: [R-es] Asignar a observaciones de una misma fecha el mismo
número de orden en una secuencia
De:     "Carlos Ortega" <cof en qualityexcellence.es>
Fecha:  Mar, 4 de Abril de 2017, 23:44
Para:   miriam.alzate en unavarra.es
--------------------------------------------------------------------------

Hola,

Acabo de correr el mismo código que te pasé con la modificación de nombres
de columnas...y me funciona...
Vaya no me genera errores...(lo he ejecutado sobre los datos "Sample").

#-----------
names(Sample) <- c('id', 'pubdate', 'txt', 'votes')
datIn <- Sample

library(data.table)
library(lubridate)
dt <- as.data.table(datIn)
dt[ , miju := julian.Date(ymd(pubdate))]

# Doy un primer orden sin tener en cuenta las fechas iguales
setorder(dt, id, -votes, miju)
dt[, mior := seq_len(.N), by=id]

# Para las fechas iguales
df <- as.data.frame(dt)
for(i in 1:(nrow(df)-1)) {
  if(df$miju[i] == df$miju[i+1])  {
    df$mior[i+1] <- df$mior[i]
  } else next
}

head(df[, c(1,2,4,5,6)])
#-----------

Please ejecútalo y comprueba que la lógica se cumple...
La columna a mirar es "mior".

Gracias,
Carlos.

El 4 de abril de 2017, 17:12, <miriam.alzate en unavarra.es> escribió: