带有分组值字幕的传单图例

Question

有没有办法为传单图例添加字幕？以下示例生成一个正常运行的图例。但是，有没有办法将子组组合到同一个图例中？

我可以想象这可以通过通过 className 参数（默认 className = "info legend"）向图例注入自定义 CSS 代码来解决。但我对 CSS 完全是个新手。 https://www.rdocumentation.org/packages/leaflet/ versions/2.1.1/topics/addLegend

这项工作也很有帮助，它是为了 NA 级的间距而完成的（https://github.com/rstudio/leaflet/issues/615#issuecomment-656035992< /a>）

为了说明我想要的内容，我创建了不同的图例条目，但它们没有正确连接。

library(leaflet)
colors <- colorFactor(palette="viridis",
                      domain=gadmCHE@data$NAME_1, na.color="transparent")

Deutsch <- gadmCHE[c(1:6,9:12,14:20,22,25:26),]
Italienisch <- gadmCHE[c(21),]
Französisch <- gadmCHE[-c(1:6,9:12,14:22,25:26),]

gadmCHE %>% leaflet() %>% addTiles() %>% 
  addPolygons(fillColor = ~colors(NAME_1), fillOpacity = 1) %>%
  addLegend(position = "topright", pal = colors, values = Deutsch@data$NAME_1, title = "Deutsch")%>%
  addLegend(position = "topright", pal = colors, values = Italienisch@data$NAME_1, title = "Italiensch")%>%
  addLegend(position = "topright", pal = colors, values = Französisch@data$NAME_1, title = "Französisch")

我实际上需要复制以下内容。请耐心等待，因为

• 我知道缩短图例条目会更好，但这会带来相当多的遗产。我不太可能在这方面取得成功。

• 将各州归为不同语言区域的说法不正确。

• 这并不完全是我想要展示的，因为在我的例子中，整个图例条目不能变得更短（即，Senkrecht durchwaschene Böden，Normal durchlässig，sehr tiefgründig）