This is a Flowmap.blue widget for R. It produces an interactive flow map representing numbers of movements between locations (origin-destination data).
As an alternative, you may also consider using R to populate a spreadsheet for publishing on Flowmap.blue as described in this excellent blog post.
You can install the package from GitHub as follows:
devtools::install_github("FlowmapBlue/flowmapblue.R")
library(flowmapblue)
locations <- read.csv('https://gist.githubusercontent.com/ilyabo/a7b9701424257146b571149d92a14926/raw/2e9e1e9bcf64cf0090781b451037229ccb78e1b1/locations.csv')
flows <- read.csv('https://gist.githubusercontent.com/ilyabo/a7b9701424257146b571149d92a14926/raw/2e9e1e9bcf64cf0090781b451037229ccb78e1b1/flows.csv')
mapboxAccessToken <- 'YOUR_MAPBOX_ACCESS_TOKEN'
flowmapblue(locations, flows, mapboxAccessToken, clustering=TRUE, darkMode=TRUE, animation=FALSE)