r - 在 r 传单中修改 addPoylines 中的线宽

Question

我有以下 R 代码

library(leaflet)
library(dplyr)

dest_df <- data.frame (lat = c(41.82, 46.88, 41.48, 39.14),
                       long = c(-88.32, -124.10, -88.33, -114.90),
                       val= c(3,4,5,6)            
)


orig_df <- data.frame (lat = c(rep.int(40.75, nrow(dest_df))),
                       long = c(rep.int(-73.99,nrow(dest_df)))
)


dest_df$sequence <- c(sequence = seq(1, length.out = nrow(orig_df), by=2))
orig_df$sequence <- c(sequence = seq(2, length.out = nrow(orig_df), by=2))
orig_df=orig_df%>%
  bind_cols(dest_df%>%
              select(val))

ploy_df <- orig_df%>%
  bind_rows(dest_df)%>%
  arrange(sequence)

leaflet() %>%
  addTiles() %>%
  addPolylines(data=ploy_df,
               lng = ~long, 
               lat = ~lat,
               weight = ~val
  )

我要做的是根据给定变量（在本例中为 val）的值来改变绘制在地图上的线的权重。代码的输出是具有相同大小行的地图。

我怎么了？

任何帮助将非常感激。最好的

标签： rr-leaflet

Answer 1

我只是通过将我的数据框值写入 addPolylines 函数的“权重”来实现这一点，所以它是这样的：

addPolylines(data=ploy_df,
               lng = ~long, 
               lat = ~lat,
               weight = dest_df$val