He visto preguntas similares, pero hasta ahora ninguna que se ajuste a mis necesidades (al menos en la medida en que las entiendo), así que me disculparé de antemano si esto ya ha sido respondido. También soy una especie de novato de R.

Tengo un marco de datos que contiene dos conjuntos de Lat / Lon en cada fila. Los datos reales contienen cientos de filas y muchas columnas de datos relacionados. Estoy trazando los puntos para ambos conjuntos de Lat / Lon y quiero dibujar líneas que conecten cada par como una línea separada. Aquí hay un ejemplo de cómo deberían ser los resultados.

[! [ingrese la descripción de la imagen aquí] [1]] [1]

Aquí hay un ejemplo simplificado de los datos. Habrá valores duplicados de Evento y Ubicación.

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

Aquí hay una muestra simplificada del código para mapear los puntos:

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')