Quasi War Encounters

Read data:

qw <- read.csv("~/Downloads/QW_Encounters.csv", stringsAsFactors = FALSE)

Make map:

library(cartographer)
cartographer() %>%
  tile_layer(provider = "mapbox", path = "mapbox.natural-earth-hypso-bathy") %>%
  points_layer(data = qw, x = "longitude", y = "latitude")