Cloud2016
我没琢磨出来比较好的，只是给那个点增加了提示，需要把鼠标放到那个点上才可以看到提示的内容：
library(echarts4r)
data("quakes")
row <- c(-21.0744343, -176.2500947, 500, 5, 50)
quakes <- rbind(quakes, row) #把这个点加到数据集里面
quakes$label <- ' '
quakes[which(quakes$lat == -21.0744343 &
quakes$long == -176.2500947), ]$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_tooltip(
padding = 5,
borderWidth = 1,
trigger = "item",
formatter = htmlwidgets::JS("function(params){
return( params.name )}")
)
那个，我想吐槽下你给的那个点的坐标位置也太特殊了，我刚开始把地图缩小了没找到，还是加了数据标签的引导线才顺着线找到的。
看其他小伙伴们有没有什么好的思路。
