Я попытался получить время вождения и расстояние для двух наборов местоположений, оба из которых представлены с долготой и широтой.
Я использовал gmapsdistance, перед которым будет возвращаться матрица расстояний для каждой точки в двух векторах. Но здесь я только хочу вычислить расстояние для каждого ряда. Поэтому я считаю целесообразным использовать функцию apply для каждой строки.
Данные кажутся такими
unique_pair <- structure(list(latitude = c(42.018435, 42.018435, 42.120501), longitude = c(-70.846707, -70.846707, -71.233164),x.x.locationlatitude = c(42.23656924, 42.361856, 41.901186), x.x.locationlongitude = c(-70.9865341, -71.065615, -71.093756), n = c(80L, 2L, 65L)), row.names = c(NA, -3L), class = c("tbl_df","tbl", "data.frame"))
abk<-apply(unique_pair,1,function(x) { gmapsdistance(
origin =x[1]+x[2], # start point of journey
destination = x[3]+x[4], # end point of journey
mode = "driving", # driving time
shape = "long" # format of output data
)})
[1,2] [3,4] являются lon и lat для двух мест. Но всегда есть ошибка такая, что
Если я не использовал +, они использовали каждый lon и lat отдельно как места и сообщали, что результат бесполезен.
Если я использовал +, чтобы включить lat и lon в качестве точки для местоположения, он показывает нечисловой аргумент для бинарного оператора
Я также хочу процитировать их, но это тоже не работает.
Может ли кто-нибудь помочь и дать некоторые рекомендации? Большое спасибо