Eu tenho uma matriz com duas variáveis numéricas: lat
and long
. Tipo isto:
> head(pontos_sub)
id lat long
1 0 -22,91223 -43,18810
2 1 -22,91219 -43,18804
3 2 -22,91225 -43,18816
4 3 -22,89973 -43,20855
5 4 -22,89970 -43,20860
6 5 -22,89980 -43,20860
Agora eu faço um round para arrendondar com 3 dígitos decimais:
pontos_sub$long_r <- round(pontos_sub$long, 3)
pontos_sub$lat_r <- round(pontos_sub$lat, 3)
> head(pontos_sub)
id lat long long_r lat_r
1 0 -22,91223 -43,18810 -43,188 -22,912
2 1 -22,91219 -43,18804 -43,188 -22,912
3 2 -22,91225 -43,18816 -43,188 -22,912
4 3 -22,89973 -43,20855 -43,209 -22,900
5 4 -22,89970 -43,20860 -43,209 -22,900
6 5 -22,89980 -43,20860 -43,209 -22,900
Ahora quero usar o pacote dplyr para encontrar, agrupado por cada long_r lat_r e usando a função distVincentyEllipsoid, a distancia mínima a todos os lat long do grupo correspondente. Algo assim:
> newdata <- pontos_sub %>%
group_by(long_r,lat_r) %>%
summarise(min_long = special_fun(arg),
min_lat = special_fun(arg))
O que resultaria algo como isto:
> head(newdata)
long_r lat_r min_long min_lat
1 -43,188 -22,912 xxxxxx xxxxxxx
4 -43,209 -22,900 xxxxxx xxxxxxx
Para finalizar, gostaria de saber se esta é a forma mais rápida, pois tenho milhares de linhas... existe alguma outra maneira de fazer isto bem rápido?
lat
elong
sem arredondar para oslat_r
elong_r
arredondados?