dev/issues/issue-233.R

In jbkunst/highcharter: A Wrapper for the 'Highcharts' Library

library(highcharter)
library(dplyr)
library(purrr)

set.seed(123)

n <- 10
 
df <- data_frame(
  lat = stats::runif(n, -180, 180),
  lon = stats::runif(n, -180, 180),
  z =  round(stats::runif(n)*10) + 1,
  color = colorize(lat)
  )

sequences <- map2(1:n, df$z, function(x, y){ ifelse(x == 1:n, y, 0) })

df <- mutate(df, sequence = sequences)

df

hcmap() %>% 
  hc_add_series(data = df, type = "mapbubble",
                minSize = 0, maxSize = 15) %>% 
  hc_motion(enabled = TRUE, series = 1, labels = 1:n,
            loop = TRUE, autoPlay = TRUE, 
            updateInterval = 1000, magnet = list(step =  1))