ел подобные вопросы, но пока что ни один не отвечал моим потребностям (по крайней мере, в той степени, в которой я их понимаю), поэтому я заранее извинюсь, если на этот вопрос уже был дан ответ. Я также вроде R новичка.

У меня есть фрейм данных, содержащий два набора Lat / Lon в каждой строке. Фактические данные содержат сотни строк и множество столбцов связанных данных. Я строю точки для обоих наборов широты и долготы и хочу нарисовать линии, соединяющие каждую пару отдельной линией. Вот пример того, как должны выглядеть результаты.

[! [введите описание изображения здесь] [1]] [1]

Вот упрощенный пример данных. Будут повторяться значения событий и местоположения.

Event_lat   Event_lon   Event   Location    Location_latitude   Location_longitude
40.791151   -124.054008 704832643   60005   40.790961   -124.1825609
38.900882   -122.660353 704653051   60009   38.873889   -122.709722
38.921488   -122.600049 704681147   60011   38.85111099 -122.593333
38.921488   -122.600049 704681147   60011   38.85111099 -122.593333
39.141877   -123.044724 706777142   60012   39.22794396 -123.064722
38.928113   -122.611386 708644013   60016   38.98950003 -122.7695828
39.02361    -122.72195  708582623   60016   38.98950003 -122.7695828
38.87586    -122.842684 708336092   60016   38.98950003 -122.7695828
39.239926   -123.145497 709020144   60017   39.24138798 -123.2163878
39.3307 -123.221674 708875205   60017   39.24138798 -123.2163878

Вот упрощенный пример кода для сопоставления точек:

library(leaflet)
myData <-read.csv("Book1.csv",header=TRUE, sep=",")
leaflet()%>%
  addTiles() %>%
  addCircles(myData,lng = myData$lsr_lon,lat = myData$lsr_lat, radius=20, color = "red",group = "events") %>% 
  addCircles(myData,lng = myData$site_longitude,lat = myData$site_latitude, radius=20, color = "blue",group = 'Locations')