주(州)의 대학 지도 만들기

R로 만드는 leaflet 인터랙티브 지도

Rich Majerus

Vice President of Strategy & Planning, Queens University of Charlotte

Maine에는 4년제 대학이 몇 개 있나요?

ipeds %>% 
   filter(state == "ME")

# A tibble: 21 x 5
                     name       lng      lat state sector_label
                    <chr>     <dbl>    <dbl> <chr>        <chr>
1           Bates College -70.20333 44.10530    ME      Private
2         Bowdoin College -69.96524 43.90690    ME      Private
3           Colby College -69.66337 44.56421    ME      Private
4 College of the Atlantic -68.22885 44.39958    ME      Private
...

주(州)의 대학 지도 만들기

# 'lng'와 'lat'은 각각 경도와 위도를 나타냄
maine_colleges_map <- 
  leaflet() %>% 
  addProviderTiles("CartoDB") %>% 
  addMarkers(data = maine_colleges)

Maine 대학 마커 1

주(州)의 대학 지도 만들기

maine_colleges_map <- 
   leaflet() %>% 
   addProviderTiles("CartoDB")%>% 
   addMarkers(data = maine)

Maine 대학 마커 1

# 마커를 추가해도
# 기존 마커는 제거되지 않음
maine_colleges_map %>%
   addCircleMarkers(data = maine)

Maine 대학 마커 2

주(州)의 대학 지도 만들기

# 마커를 추가해도
# 기존 마커는 제거되지 않음
maine_colleges_map %>% 
   addCircleMarkers(data = maine)

Maine 대학 마커 2

maine_colleges_map %>% 
   clearMarkers() %>% 
   addCircleMarkers(data = maine, 
                    radius = 3)

Maine 대학 마커 3

주(州)의 대학 지도 만들기

maine_colleges_map <- 
  maine_colleges_map %>% 
  clearMarkers %>% 
  addCircleMarkers(
          data = maine_colleges, 
          radius = 3)

Maine 대학 마커 3

maine_colleges_map %>% 
  addCircleMarkers(
           data = maine_colleges, 
           radius = 4,
           color = "red",
           popup = ~name)

Maine 대학 마커 4

연습해 봅시다!

R로 만드는 leaflet 인터랙티브 지도