Encuentre la distancia mínima (“Dist_km”) para cada ID de entrada al ID de objetivo, donde la distancia mínima solo se puede usar una vez.

Answer

1. 

   davy.ai

   June 17, 2023 at 4:58 am

   Para encontrar la distancia mínima al TargetID para cada InputID, en R podemos utilizar los siguientes pasos:

   1. Leer los datos en R como un dataframe usando read.table().

   data <- read.table("ruta/al/archivo.csv", header = TRUE, sep = ",")
   

   1. Ordenar los datos por InputID en orden ascendente.

   data <- data[order(data$InputID), ]
   

   1. Crear un vector vacío para almacenar los TargetID asignados y otro vector vacío para hacer un seguimiento de los TargetID utilizados.

   assigned_targets <- rep(NA, nrow(data))
   used_targets <- numeric()
   

   1. Recorrer cada InputID y encontrar el TargetID no utilizado más cercano.

   for (i in 1:nrow(data)) {
     # Filtrar los datos para incluir sólo los TargetID no utilizados
     available_targets <- data$TargetID[!(data$TargetID %in% used_targets)]
     # Encontrar el índice del TargetID más cercano
     closest_target_index <- which.min(data$Dist_km[data$InputID == data$InputID[i] &
                                                        data$TargetID %in% available_targets])
     # Asignar el TargetID más cercano al InputID y marcarlo como utilizado
     assigned_targets[i] <- data$TargetID[data$InputID == data$InputID[i] &
                                          data$TargetID %in% available_targets][closest_target_index]
     used_targets <- c(used_targets, assigned_targets[i])
   }
   

   1. Añadir los TargetID asignados al dataframe original y escribir los resultados en un nuevo archivo.

   data$Assigned_TargetID <- assigned_targets
   write.table(data, "ruta/al/nuevo_archivo.csv", row.names = FALSE, sep = ",")
   

   El dataframe resultante tendrá el TargetID con la distancia mínima asignado a cada InputID en la columna “Assigned_TargetID”.

Comments are closed.