文章推荐：echarts4r: 从入门到应用【袁凡】

Cloud2016
不用 tooltip，改成增加 label 也行，如下：

quakes |>
  e_charts(x = long) |>
  e_geo(roam = TRUE,
        map = "world",
        boundingCoords = list(c(165.67,-38.59),
                              c(188.13,-10.72))) |>
  e_scatter(
    serie = lat,
    scale = NULL,
    size = mag,
    bind = label, #params.name
    name = "地震点",
    coord_system = "geo"
  )|>
  e_labels(
    position = 'top',
    formatter = htmlwidgets::JS("function(params){
        return( params.name )}")
  )

yuanfan 这个事看起来还挺复杂的，理想态是类似 ggplot2 的标签图层，或者 ggrepel 那样，可以另起一个数据，添加文本注释图层。

set.seed(2020)
library(ggplot2)
library(ggrepel)
dat <- data.frame(
  x = seq(100),
  y = cumsum(rnorm(100))
)
anno_data <- dat |> 
  subset(x %% 25 == 10)  |> 
  transform(text = "text")

ggplot(data = dat, aes(x, y)) +
  geom_line() +
  geom_label_repel(aes(label = text), # 有另一份数据，新加一个图层
    data = anno_data,
    direction = "y",
    nudge_y = c(-5, 5, 5, 5)
  ) +
  theme_minimal()

P.S. 汤加火山位置我应该给 c(-21.0744, 183.7499) 毕竟西经 176 就是东经 184， 这样就和 quakes 数据集保持一样了。

# 从本地加载新的正确的中国地图数据
> china_map <- jsonlite::read_json("中华人民共和国.json")
> china_map <- jsonlite::read_json("https://geo.datav.aliyun.com/areas_v3/bound/100000_full.json")
> # 开始绘图
> df |>
+     e_charts(region) |>
+     # 注册地图
+     e_map_register("China2", china_map) |>
+     # 调用注册的地图
+     em_map("China2") |>
+     # 将数据映射到地图上
+     e_map(value, map = "China2") |>
+     e_visual_map(value)
Error in readBin(3L, raw(0), 32768L) : 
  can only read from a binary connection

谢谢袁老师 @yuanfan 的分享，我跟着您的这篇文章学习使用echarts4r，做了一个dashboard：
https://shanlong.shinyapps.io/spar_dashboard_new/