使用 plot() 绘制 sf 图

如您所见，sf 对象可以用 base R 的 plot() 函数来绘图。第一次绘图用于建立地图的基础，后续图层可以继续用 plot() 叠加。

下面有 4 个 sf 对象，分别为：

london_poly
london_loop
london_capital
num_listings

请补全下方代码，使用 plot() 将这些 sf 对象拼接成一幅地理空间地图。绘图时使用 st_geometry()，以确保所有对象确为 sf 几何对象。

已加载 sf 和 tidyverse 库。

本练习是课程的一部分

使用 shinydashboard 构建仪表板

查看课程

练习说明

绘制第一层多多边形（multipolygon）london_poly。
绘制 london_loop，并设置为紫色。
绘制 london_capital，并设置为绿色。
为 num_listings 中的每个点添加红色标记。

交互式实操练习

通过完成这段示例代码来试试这个练习。

# Plot the first layer which is a multipolygon
___(___(london_poly), 
     col = sf.colors(length(london_poly$Name), 
                     categorical = TRUE), 
     axes=TRUE, border=grey(0.2, 0.5))
# Plot london_loop and color it purple
___(___(london_loop), add=___, col=___)
# Plot london_capital and color it green
___
# Add red markers for each point in num_listings
___

编辑并运行代码