在R中创建时空立方体图

Question

我想创建一个交互式图，如此处所示的固定版本。我的数据很简单，只是事件观察的列表，每个事件观察都有一个Date，lat和long。我可以使用plotly或传单吗？无法找到任何可见地图的示例。

library(tibble)
library(dplyr)
library(plotly)

tibble(  
  lat = runif(1000, 25, 50),
  long = runif(1000, -128, -62),
  date = sample(seq.Date(as.Date("2015-01-01"), as.Date("2017-12-31"), 1), 1000, replace = T) 
) %>%
  plot_ly(x = ~long, y = ~lat, z = ~date)