按特定顺序映射向量组

Question

我有一个形状文件，其中包含不同年份的路线折线。这是

一个示例数据形状文件，其中包含 2000 年和 2013 年的路线。我希望地图在顶部显示较旧的路线，在底部显示较新的路线。我查看了 addMapPane

 函数，但不确定如何将其应用于同一文件中的向量。这是到目前为止我的代码：

sample_palette <- leaflet::colorFactor(palette = rainbow(2), 
                                domain = data_sample$Year)


sample_plot <- leaflet(data_sample) %>% 
  addProviderTiles("CartoDB.Positron") %>% 
  addPolylines(color = ~sample_palette(Year), 
               opacity = 1) %>% 
  leaflet::addLegend(values = ~Year, 
                     opacity = 1, 
                     pal = sample_palette, 
                     title = "Routes")

sample_plot

Answer 1

请找到一种可能的解决方案，将较旧的路线置于最近的路线之上：只需更改

data_sample

中的行顺序

• 代码

library(sf)
library(leaflet)

data_sample <- st_read("ADD YOUR PATH HERE")

# Order 'data_sample' rows in decreasing order of 'Year' 
data_sample <- data_sample %>% 
  arrange(., desc(Year))

# Choose colors
sample_palette <- leaflet::colorFactor(palette = rainbow(2), 
                                       domain = data_sample$Year)

# Build the map
sample_plot <- leaflet(data_sample) %>% 
  addProviderTiles("CartoDB.Positron") %>% 
  addPolylines(color = ~sample_palette(Year), 
               opacity = 1) %>% 
  leaflet::addLegend(values = ~Year, 
                     opacity = 1, 
                     pal = sample_palette, 
                     title = "Routes")

• 可视化

sample_plot