构建更好的弹出框
借助 paste0() 函数和一些 HTML 标签,您可以自定义弹出框。paste0() 会将其参数转换为字符,并在不添加分隔符的情况下将它们合并为一个字符串。
addCircleMarkers(popup = ~paste0(name,
"<br/>",
sector_label))
可以使用 <br/> 标签来换行,使每个元素显示在单独的一行上。
为区分不同的数据元素,您可以将每所大学的名称设为斜体:把 name 变量包裹在 <i></i> 中。
addCircleMarkers(popup = ~paste0("<i>",
name,
"</i>",
"<br/>",
sector_label))
本练习是课程的一部分
在 R 中使用 leaflet 构建交互式地图
交互式实操练习
通过完成这段示例代码来试试这个练习。
# Clear the bounds and markers on the map object and store in map2
map2 <- map %>%
___() %>%
___()