标签与弹出框

在 R 中使用 leaflet 构建交互式地图

Rich Majerus

Vice President of Strategy & Planning, Queens University of Charlotte

管道与 ~ 运算符

ipeds %>% 
 leaflet() %>% 
 addProviderTiles("CartoDB") %>% 
 addCircleMarkers(
               lng = ~lng, 
               lat = ~lat, 
               popup = ~name, 
               color = "#FF0000")

所有学院的圆形标记 1

# ipeds 被指定了 3 次
leaflet() %>% 
  addProviderTiles("CartoDB") %>% 
  addCircleMarkers(
              lng = ipeds$lng, 
              lat = ipeds$lat, 
              popup = ipeds$name, 
              color = "red")

所有学院的圆形标记 2

在 R 中使用 leaflet 构建交互式地图

所有颜色

ipeds %>% 
     leaflet() %>% 
     addProviderTiles("CartoDB")%>% 
     addCircleMarkers(
        lng = ~lng, lat = ~lat, 
        popup = ~name,color = "#FF0000")
十六进制 十进制 RGB 颜色
FF 255 红
00 0 绿
00 0 蓝

十六进制 FF0000

= 16^1*15 + 16^0*15

= 16*15 + 1*15

= 240 + 15

= 255

在 R 中使用 leaflet 构建交互式地图

构建更好的弹出框

addCircleMarkers(popup = ~name)

addCircleMarkers(popup = ~paste0(name, "-", sector_label)

addCircleMarkers(popup = ~paste0("<b>",name,"</b>","
                         <br/>",sector_label))

自定义弹出框

在 R 中使用 leaflet 构建交互式地图

标签

ipeds %>% 
    leaflet()  %>% 
    addProviderTiles("CartoDB")  %>% 
    addCircleMarkers(label = ~name, radius = 2)

自定义标签

在 R 中使用 leaflet 构建交互式地图

Passons à la pratique !

在 R 中使用 leaflet 构建交互式地图

Preparing Video For Download...