"Rshiny에서 interactive mapping 그림을 만들기 위해서는 leaflet 패키지를 이용해야 한다. leaflet 패키지를 미리 설치하자.
연습 데이터를 만들기 위해 sample 함수를 이용하여 127,127.1,127.2 ~ 128.8,128.9,129 사이에서 100개의 경도를 중복을 허용하여 랜덤으로 발생시키고 위도도 sample 함수를 이용하여 35,35.1,35.2 ~ 36.8,36.9,37 사이에서 100개를 발생시켰다. 또한, 1~100 사이에서 value 값을 랜덤으로 발생시켰다. 랜덤으로 발생시킨 세개의 변수를 이용하여 data라는 데이터를 생성하였다.
그 다음 leaflet 함수를 이용하여 맵에 조건을 하나씩 넣으면 된다. leaflet(데이터)를 쓴뒤 %>%을 적는다. 조건을 추가할 때마다 %>% 적는 것을 까먹으면 안된다.
setView으로 맵이 그려질 때 출력되어질 처음 위치를 적어야하는데 setView(lng=경도,lat=위도,zoom=확대 정도)이므로 경도 위도로 위치를 정하고 zoom 정도를 조절하면 된다.
addProviderTiles는 그림의 형식을 바꿀 수 있는 함수이다. 이 함수를 쓰지 않으면 해안선에 보라색이 있는 그림이 출력되지만addProviderTiles(providers$CartoDB.Positron)를 추가해주면 보라색 해안선이 없는 간단한 그림이 출력된다. names(providers)을 하면 여러가지 그림 형식이 나오니 취향에 맞게 쓰면된다.
다음으로 이용한 함수는 addCircles인데 위경도 위치를 표현하는 표시를 원으로 바꿔준다. addCircles(lng=경도,lat=위도,popup=원클릭시 출력되는 문자,radius=원의 크기,fillColor=원의 색깔,stroke=원 테두리 출력 여부, fillOpacity=원 안 색깔의 투명도 정도)로 구성되어 있다. popup에 위치의 값을 출력하고 싶을 때 숫자만 넣으면 출력이 안되니 as.character로 숫자를 문자로 바꿔야한다.
마지막으로 addLegend는 그림에서 처럼 설명을 넣을 수 있는 기능이다. addLegend(위치,colors=색,title=legend 이름,labels=레전드 설명)으로 구성된다.
install.packages("leaflet")
연습 데이터를 만들기 위해 sample 함수를 이용하여 127,127.1,127.2 ~ 128.8,128.9,129 사이에서 100개의 경도를 중복을 허용하여 랜덤으로 발생시키고 위도도 sample 함수를 이용하여 35,35.1,35.2 ~ 36.8,36.9,37 사이에서 100개를 발생시켰다. 또한, 1~100 사이에서 value 값을 랜덤으로 발생시켰다. 랜덤으로 발생시킨 세개의 변수를 이용하여 data라는 데이터를 생성하였다.
그 다음 leaflet 함수를 이용하여 맵에 조건을 하나씩 넣으면 된다. leaflet(데이터)를 쓴뒤 %>%을 적는다. 조건을 추가할 때마다 %>% 적는 것을 까먹으면 안된다.
setView으로 맵이 그려질 때 출력되어질 처음 위치를 적어야하는데 setView(lng=경도,lat=위도,zoom=확대 정도)이므로 경도 위도로 위치를 정하고 zoom 정도를 조절하면 된다.
addProviderTiles는 그림의 형식을 바꿀 수 있는 함수이다. 이 함수를 쓰지 않으면 해안선에 보라색이 있는 그림이 출력되지만addProviderTiles(providers$CartoDB.Positron)를 추가해주면 보라색 해안선이 없는 간단한 그림이 출력된다. names(providers)을 하면 여러가지 그림 형식이 나오니 취향에 맞게 쓰면된다.
다음으로 이용한 함수는 addCircles인데 위경도 위치를 표현하는 표시를 원으로 바꿔준다. addCircles(lng=경도,lat=위도,popup=원클릭시 출력되는 문자,radius=원의 크기,fillColor=원의 색깔,stroke=원 테두리 출력 여부, fillOpacity=원 안 색깔의 투명도 정도)로 구성되어 있다. popup에 위치의 값을 출력하고 싶을 때 숫자만 넣으면 출력이 안되니 as.character로 숫자를 문자로 바꿔야한다.
마지막으로 addLegend는 그림에서 처럼 설명을 넣을 수 있는 기능이다. addLegend(위치,colors=색,title=legend 이름,labels=레전드 설명)으로 구성된다.
library(shiny)
library(leaflet)
server <- function(input,output, session){
output$map <- renderLeaflet({
data<-data.frame(longitude=sample(seq(127,129,0.1),100,replace=T),latitude=sample(seq(35,38,0.1),100,replace=T),value=sample(1:100,100,replace=T))
m <- leaflet(data=data) %>%
setView(lng=128, lat=37 , zoom=6) %>%
addProviderTiles(providers$CartoDB.Positron) %>%
addCircles(lng=data$longitude,lat=data$latitude,popup=as.character(data$value),radius=data$value*100,fillColor="blue",stroke=FALSE,fillOpacity=0.4) %>%
addLegend("bottomleft",colors="blue",title="Color",labels=c(">1000"))
})
}
library(shiny)
library(leaflet)
ui <- fluidPage(
leafletOutput("map",height = 800)
)
