비 지형 mapview 개체를 반짝 이는 응용 프로그램에 넣으십시오

Question

기본적으로 내 질문은 마커를 배치 할 수 있도록 반짝이는 응용 프로그램에 PNG 또는 mapview 개체를 배치하는 방법입니다. 내가 노력하고

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

ohs<-data.frame(OHS_no=c(1001:1010), x=runif(10, 0, 1), y = runif(10, 0, 0.8), AGE = c(4, 15, 15, 43, 5, 50, 67, 77, 77, 28)) 
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) 
abs(cbind(rnorm(40), rnorm(40))) 
m@map %>% addMarkers(lng = ohs$x, lat = ohs$y) 

: 그 다른 SO 사용자 question here의 도움 아래의 코드를 사용하여지도보기 개체로 변환 된 이상

나는 PNG와 같은 15 비 지리적 배치도의지도보기 개체가 모두 함께 넣어주는 Shiny 앱을 만들지 만 renderLeaflet 명령에 머물러 있고 m @ map 객체를 앱 내에 배치하는 방법을 모르겠습니다. 기본적으로지도 객체와 함께 아래 기능을 전단지로 사용합니다.

library(shiny) 
library(leaflet) 
ohs<-data.frame(OHS_no=c(1001:1010), x=runif(10, 0, 1), y = runif(10, 0, 0.8)) 
r_colors <- rgb(t(col2rgb(colors())/255)) 
names(r_colors) <- colors() 

ui <- fluidPage(
leafletOutput("mymap"), 
p(), 

) 

server <- function(input, output, session) { 



    output$mymap <- renderLeaflet({ 
    leaflet() %>% 
     addProviderTiles("Stamen.TonerLite", 
         options = providerTileOptions(noWrap = TRUE) 
    ) %>% 
     addMarkers(lng = ohs$x, lat = ohs$y) 
    }) 
} 

shinyApp(ui, server) 

Answer 1

이 나를 위해 작동합니다

이

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

ohs<-data.frame(OHS_no=c(1001:1010), x=runif(10, 0, 1), y = runif(10, 0, 0.8)) 
r_colors <- rgb(t(col2rgb(colors())/255)) 
names(r_colors) <- colors() 

ui <- fluidPage(
    leafletOutput("mymap"), 
    p() 

) 

server <- function(input, output, session) { 
    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) 

    output$mymap <- renderLeaflet({ 
    m@map %>% 
     addMarkers(lng = ohs$x, lat = ohs$y) 
    }) 
} 

shinyApp(ui, server) 

간단히 (전단지 위젯 객체 인) m@map로 leaflet()를 교체합니다. 래스터가 지리 참조 연산을하지 않는다는 것을 감안할 때, 제공자 타일을 추가하는 것은 의미가 없습니다.