Partiendo de los elementos de un vector:
cuartilin <- c(7.157005,43.899484,54.361137,69.247565,264.413889)
Y una variable de un dataframe
dfv <- data.frame(variable = c(7.157005,8.314364,8.353196,13.470627,21.696288,24.245269,36.784279,39.195120,41.664000,42.631196,44.322246,45.047203,48.957792,49.482210,50.580542,52.680045,52.815305,52.955818,53.812210,53.981087,54.741187,55.758900,57.754522,58.171500,62.616087,62.793654,63.969264,65.684746,66.437549,69.228131,69.305867,70.666772,70.929404,88.111394,89.767651,100.428632,117.751045,132.549124,153.454057,264.413889))
Se quieren obtener los valores más cercanos que sean iguales o menores de cuartilin
que se encuentran en la variable dfv$variable
Utilizando este código[1] obtengo los valores más cercanos ya sean menores, iguales o superiores:
diferenciao <- dfv[sapply(
1:length(cuartilin),
FUN=function(i)
which.min(
abs(cuartilin[i] - dfv$'variable')
)
),]
diferenciao
ACTUALIZACIÓN:
¿Cómo podríamos solucionar el problema añadido de que existan valores "NA"?, el código propuesto en la propia pregunta también resuelve la búsqueda de los valores más cercanos a los elementos del vector cuartilin
, aún cuando existan valores NA
, en dfv$variable
.
La nueva definición de dfv$variable
incluye valores NA
:
dfv <- data.frame(variable = c(7.157005,54.741187,50.580542,NA,62.793654,NA,24.245269,100.428632,53.812210,52.680045,264.413889,44.322246,117.751045,69.228131,21.696288,58.171500,36.784279,63.969264,42.631196,132.549124,48.957792,57.754522,NA,52.815305,45.047203,39.195120,70.929404,NA,41.664000,65.684746,55.758900,8.314364,89.767651,NA,52.955818,69.305867,66.437549,53.981087,153.454057,62.616087,70.666772,8.353196,88.111394,13.470627,49.482210))