向图像添加坐标以用作 R 中的 Leaflet、Shiny 和 Shinydashboard 包中的地图

Question

我计划使用 Leaflet、Shiny 和 Shinydashboard 创建一个带有医院 OHS 事件标记的交互式地图，沿着以下用于交互式地图和直方图的真棒模板

我的问题是我没有坐标参考系统，因为这不是地理对象（没有纬度和经度）。它也是光栅形式。

如何将下面的平面图制作成具有 CRS（坐标参考系统）的东西，可以像地图一样对待。

也就是说，我希望能够平移、缩放、添加标记等。

似乎有一种方法可以使用 Java 来做到这一点，但是我希望在 R 中做到这一点，因为我不熟悉 Java。见坐标到空间地图

Answer 1

这是使用mapview 的解决方案：

library(raster)
library(png)
library(mapview)

web_img <- "https://i.stack.imgur.com/8aSe9.png"

png <- readPNG(readBin(web_img, "raw", 1e6))

rst_blue <- raster(png[, , 1])
rst_green <- raster(png[, , 2])
rst_red <- raster(png[, , 3])

img <- brick(rst_red, rst_green, rst_blue)

m <- viewRGB(img)

m@map %>% addMarkers(lng = 0.5, lat = 0.5)

请注意，坐标的原点位于图像的左下角 (0, 0)，在本例中，缩放到右下角的 (0, 1) 和右上角的 (0.859, 1)，以保持纵横比是正确的。在这个局部坐标参考系中添加标记应该很容易。