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

Question

我计划使用 Leaflet、Shiny 和 Shinydashboard 沿着以下真棒 template for interactive map and histogram 的路线创建一个带有医院 OHS 事件标记的交互式 map

我的问题是我没有坐标引用系统，因为这不是地理对象(没有纬度和经度)。它也是光栅形式。

如何将下面的平面图制作成具有 CRS(坐标引用系统)的东西，可以像 map 一样对待。

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

似乎有一种方法可以使用 Java 来做到这一点，但是我希望在 R 中做到这一点，因为我不熟悉 Java。见 Coordinates to space map

Answer 1

你可以做:

library(raster)
b <- brick("8aSe9.png")

这为您提供了一个四层地理引用 RasterBrick 对象(RGB + alpha)，您可以使用

plotRGB(b)

当然，地理引用与任何其他空间对象都没有关系，但这似乎对您来说无关紧要。

如果你想要一个单层对象(一个 RasterLayer )，你可以选择三层中的任何一个(它们都是一样的)

r <- b[[1]]

或直接从文件:

r <- raster("8aSe9.png")

进而

image(r, col=gray(seq(0,1,.1)))
# or  plot(r, col=gray(seq(0,1,.1)), legend=F)