Shiny leaflet지도의 맞춤 마커

Question

다른 색깔의 동일한 마커와 함께 총 4 가지 유형의 유형에 따라 Shiny 전단지 점을 매핑해야합니다.

나는이 체크 :

https://rstudio.github.io/leaflet/markers.html

이 내 반응처럼 보이지만, 나는 그것을 고칠 수 :( Change color of leaflet marker

이 코드는 대답

library(dplyr) 
library(leaflet) 

mutate(quakes, group = cut(mag, breaks = c(0, 5, 6, Inf), labels = c("blue", 
"green", "orange"))) -> mydf 

### I edit this png file and created my own marker. 
### https://raw.githubusercontent.com/lvoogdt/Leaflet.awesome- 
markers/master/dist/images/markers-soft.png 
quakeIcons <- iconList(blue = makeIcon("/Users/jazzurro/Documents/Stack 
Overflow/blue.png", iconWidth = 24, iconHeight =32), 
        green = makeIcon("/Users/jazzurro/Documents/Stack 
Overflow/green.png", iconWidth = 24, iconHeight =32), 
        orange = makeIcon("/Users/jazzurro/Documents/Stack 
Overflow/orange.png", iconWidth = 24, iconHeight =32)) 


leaflet(data = mydf[1:100,]) %>% 
addTiles() %>% 
addMarkers(icon = ~quakeIcons[group]) 

에 공유 된 기본적으로 동일한 코드가 있습니다

# Create our own custom icons 
teamIcons <- iconList(
A = makeIcon("C:/Map/Asset 20.png", iconWidth = 18, iconHeight = 18), 
B = makeIcon("C:/Map/Asset 21.png", iconWidth = 18, iconHeight = 18), 
C = makeIcon("C:/Map/Asset 22.png", iconWidth = 18, iconHeight = 18), 
D = makeIcon("C:/Map/Asset 23.png", iconWidth = 18, iconHeight = 18)) 

DATA1 < - 데이터 %> % (TYPE = 인자 (데이터 $ 타입), C ("A", "B", "C", "D"))

그럼 방금 수행을 돌연변이

m <- leaflet(data=data) %>% 
addProviderTiles(providers$Stamen.TonerLite) %>% 
addMarkers(~data1$long, ~data1$lat, icon = ~teamIcons[data1$type], popup 
state_popup) 

addMarkers의 데이터는 데이터가 아닌 data1 (데이터 1)에서 가져옵니다. 멋진 아이콘을 사용할 때 문제가 발생하지 않습니다. 디렉토리에서 내 자신의 아이콘을 사용할 때 맵에 보통 파란색 아이콘이 나타납니다.

잘못된 첨자 형 '논리적'

Answer 1

개인적으로 해결.

library(leaflet) 
library(dplyr) 

각 아이콘은 개인적으로 숫자로 사용자 정의되었으며 작업 디렉토리에 저장되었습니다.

그런 다음 icon_list()를 사용

# Create our own custom icons 
icon_list <- iconList(
project1 = makeIcon("C:/Map/1.png", iconWidth = 24, iconHeight = 30), 
project2 = makeIcon("C:/Map/2.png", iconWidth = 24, iconHeight = 30) 

등이

프로젝트 1을만큼, 프로젝트 2 등은 물론 데이터 세트 열에서 같은 이름과 일치하고 데이터 세트에서 각 프로젝트가 오래 있어야하며 위도.

그런 다음

data2 <- data %>% mutate(type = factor(data$project_id), c("project1", 
"project2") 

서버에서 간단한 코드 나에게 많은 도움이, this question

Answer 2

Oleksiy의 answer이

m <- leaflet(data=data) %>% 
    addProviderTiles(providers$Stamen.TonerLite) %>% 
    addMarkers(~data2$long, ~data2$lat, icon=~icon_list[data2$project_id], 
    popup = state_popup) 

감사 같은 것입니다.

하지만 돌연변이 함수에서 두 개의 오류가 발견되었습니다. 변환 할 데이터 파일의 이름을 놓치고 data2을 만들 때 요소 함수가 data2 데이터 프레임과 작동해야합니다.

그래서

mutate(data2,type=factor(data2$project_id),c("project1","project2")) 

대신

mutate(type=factor(data$project_id),c("project1","project2")`.