library(leaflet) library(dplyr)

Sample data

shipping_data <- data.frame( POL = c(“Singapore”, “Shanghai”, “Hamburg”), POD = c(“Rotterdam”, “Los Angeles”, “New York”), Operator = c(“Maersk”, “CMA CGM”, “Hapag-Lloyd”), Voyage = c(“V001”, “V002”, “V003”), POL_Lat = c(1.3521, 31.2304, 53.5511), POL_Lon = c(103.8198, 121.4737, 9.9937), POD_Lat = c(51.9244, 34.0522, 40.7128), POD_Lon = c(4.4777, -118.2437, -74.0060) )

Create leaflet map

leaflet(shipping_data) %>% addTiles() %>% addCircleMarkers( ~POL_Lon, ~POL_Lat, color = “blue”, label = ~POL, popup = ~paste(“Port of Loading:”, POL, “
Operator:”, Operator) ) %>% addCircleMarkers( ~POD_Lon, ~POD_Lat, color = “red”, label = ~POD, popup = ~paste(“Port of Discharge:”, POD, “
Voyage:”, Voyage) ) %>% addPolylines( lng = ~c(POL_Lon, POD_Lon), lat = ~c(POL_Lat, POD_Lat), label = ~paste(“Operator:”, Operator, “
Voyage:”, Voyage), color = “blue” )