Hola a todos:
Tengo un bucle que tarda horas y me gustaría optimizarlo. Me explico.
Simplificando, tengo una tabla con 332.505 registros de 63.738 individuos. Cada
registro es una medida realiza de unos
días a unos meses o años después de la anterior. Lo que quiero es borrar
aquellos registros que entre él y el anterior hayan transcurrido menos
de 6 meses, de manera que me quede una tabla con sólo aquellas medidas
realizadas al menos 6 meses después de la anterior.
La tabla simplificada (no diferencio entre medida y ID y con una nueva columna
“BORRAR”) seria:
## Código
df <- data.frame(
ID = c(1, 1, 1, 2, 2, 2, 1, 3),
date = as.Date(c("2023-01-01", "2023-05-15", "2023-12-01", "2023-01-01",
"2023-04-01", "2023-12-01", "2023-03-15", "2023-01-01")),
BORRAR = 0)
## El código con el bucle (doble bucle) es:
# Definir umbral : 6 meses: si registro posterior menor 6 meses: borrar
umbral <- 30.5 * 6
# Ordenar por ID i fecha
df <- df[order(df$ID, df$date), ]
# Bucle per cada ID
for (id in unique(df$ID)) {
# Filtrar per ID actual
subset_df <- df[df$ID == id, ]
# Si hay más de un registro borrar aquellos de más de 6 meses
if (nrow(subset_df) > 1) {
# Inicializar la referencia del primer registro no borrado
reference_date <- subset_df$date[1]
for (i in 2:nrow(subset_df)) {
# Calcular la diferencia en días respecto a la referencia
diff_days <- as.numeric(difftime(subset_df$date[i], reference_date, units
= "days"))
# Si la diferencia es menor que el umbral, marcado para borrar
if (diff_days < umbral) {
df$BORRAR[df$ID == id & df$date == subset_df$date[i]] <- 1
} else {
# Actualizar la fecha referencia al nuevo registro no borrado
reference_date <- subset_df$date[i]
} ## Fin de if (diff_days < umbral)
} ## Fin del for (I in 2:nrow(subset_df))
} ## Fin de (nrow(subset_df) > 1)
}
# Resultado sin borrar registros
df
## fin Código
El problema es que tarda muchas horas en ejecutarse. He intentado
optimizarlo (antes tardaba más), pero ya no se más R. ¿Algunas
sugerencias pera que vaya más rápido?
Muchas gracias de antemano por su ayuda.
_______________________________________________
R-help-es mailing list
R-help-es@r-project.org
https://stat.ethz.ch/mailman/listinfo/r-help-es
