Echarts4r新西兰地图

Question

我正在尝试使用库echarts4r在R中创建新西兰的地图，但是该地图看起来很小，我无法弄清楚如何放大或确定LAT/LONG BONDARIES，以使其更大可见的。 这是我的代码（改编自文档中的示例 https：//echarts：//echarts4r.john-john-r.john--john-- coene.com/articles/map.html ）

library(echarts4r.maps)

df <- data.frame(
  region = c("Wellington", "Auckland"), 
  value = c(10,20)
)

df |> 
  e_charts(region) |>
  em_map("New_Zealand") |> 
  e_map(value, map = "New_Zealand") |> 
  e_visual_map(value) |> 
  e_theme("infographic")

屏幕截图

您知道如何在echarts4r中放大地图或设置lat/long界限吗？ 任何帮助将不胜感激！

Answer 1

我认为来自echarts4r.maps的地图的编码可能有问题，但我不确定。

我可以告诉你，惠灵顿在echarts4r背后的数据中没有被列为新西兰的城市。我认为这可能就是原因，但这与渲染/变焦问题无关。

我查找了新西兰的纬度/长边界，并在情节中使用了这一点，现在肯定是可读的。

df <- data.frame(
  region = c("Southland", "Auckland"), 
  value = c(1, 2)
)

df |> 
  e_charts(region, elementId = 'chart') |>
  em_map("New_Zealand") |> 
  e_map(value, map = "New_Zealand",
        boundingCoords = list(
          list(166.4669, -48.0624), list(179.0637, -34.1473)
        )) |> 
  e_visual_map(value) |> 
  e_theme("infographic")

Answer 2

祝福你凯特，真的在努力代码以闪亮将其用作条形图的过滤器。

使用 https://psim.shinyapps.io/echarts4r_callbacks/ 从鼠标中获得过滤。

# Update the filter date on click on data point
observeEvent(input$chart_clicked_data, {
filter_date(input$chart_clicked_data$value[1])
})

这有多容易。