r - 传单 minichars 组论点

Question

我想问一下，函数 from 是否有组参数(leaflet.minicharts)？我正在使用函数addFlows函数，我正在尝试将其插入图层控件，但是由于它没有group参数，我不知道该怎么做。

例子：

library(leaflet)
library(spdep)
library(leaflet.minicharts)
library(tidyverse)


URL <- "https://biogeo.ucdavis.edu/data/gadm3.6/Rsp/gadm36_DEU_1_sp.rds"
data <- readRDS(url(URL))
cns <- poly2nb(data)
cS <- nb2listw(cns)

# Plotting results
plot(data)
plot(cS, coordinates(data), add = T)

# Plotting in ggplot 
# Converting to data.frame
data_df <- data.frame(coordinates(data))
colnames(data_df) <- c("long", "lat")

n = length(attributes(cS$neighbours)$region.id)
DA = data.frame(
from = rep(1:n,sapply(cS$neighbours,length)),
to = unlist(cS$neighbours),
weight = unlist(cS$weights)
)
DA = cbind(DA, data_df[DA$from,], data_df[DA$to,])
colnames(DA)[4:7] = c("long","lat","long_to","lat_to")



# Plotting in leaflet
library(leaflet)
leaflet() %>% 
addProviderTiles("CartoDB.Positron") %>% 
addProviderTiles(providers$Stamen.Toner, group = "Toner") %>%
addProviderTiles(providers$Stamen.TonerLite, group = "Toner Lite") %>% 
addPolygons(data=data, weight = 0.8, fill = F, color = "red") %>% 
addFlows(lng0 = DA$long, lat0 = DA$lat,lng1 = DA$long_to, lat1 = DA$lat_to, dir = 2, maxThickness= 0.85) %>% 
#addPolylines(data=DA, lng = DA$long_to, lat = DA$lat_to, weight = 0.85) %>% 
addLayersControl(
  baseGroups = c( "CartoDB.Positron (default)", "Toner", "Toner Lite"),
  options = layersControlOptions(collapsed = FALSE)
)

我想插入addFlows到激光控制中，以便可以炫耀和显示。

标签： rleafletmapsr-leaflet