awesome - Agregue coordenadas a la imagen para usar como mapa en los paquetes Leaflet, Shiny y Shinydashboard en R

r leaflet layers

Question

Estoy planeando crear un mapa interactivo con marcadores de incidentes de SST hospitalarios usando Leaflet, Shiny y Shinydashboard siguiendo las líneas de la siguiente plantilla impresionante para el mapa interactivo y el histograma

Mi problema es que no tengo un sistema de referencia de coordenadas ya que este no es un objeto geográfico (no lat y long). También está en forma de trama.

¿Cómo puedo hacer que el plan de planta inferior se convierta en algo con un CRS (sistema de referencia de coordenadas) que pueda tratarse como un mapa?

Es decir, quiero poder desplazar, ampliar, agregar Marcadores, etc.

Parece haber una manera de hacer esto usando Java, sin embargo, esperaba hacerlo en R ya que no estoy familiarizado con Java. Ver coordenadas en el mapa espacial

Answer 1

Tu puedes hacer:

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

Eso le da un objeto RasterBrick georreferenciado de cuatro capas (RGB + alfa) que puede ver con

plotRGB(b)

Por supuesto, la georeferencia no está relacionada con ningún otro objeto espacial, pero parece que esto puede no ser importante para usted.

Si quieres un objeto de una sola capa (un RasterLayer ) puedes tomar cualquiera de las tres capas (son todas iguales)

r <- b[[1]]

o directamente desde el archivo:

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

y entonces

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

Answer 2

Aquí hay una solución usando mapview :

library(raster)
library(png)
library(mapview)
web_img <- "http://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)

Tenga en cuenta que las coordenadas tienen su origen en la esquina inferior izquierda de la imagen (0, 0) y, en este caso, se escalan a (0, 1) en la esquina inferior derecha y (0.859, 1) en la esquina superior derecha para mantener la relación de aspecto correcta. Agregar marcadores dentro de este sistema de referencia de coordenadas local debería ser fácil.