R Leaflet-addPolylines-不斷添加區域名稱

Question

如何在折線的中心添加名稱？ 我添加了一段代碼：

為了使示例位於底部，我必須在哪里放置什么代碼？ 文字應始終在此，不要彈出，隱藏或懸停。

對於主題地圖，在addPolylines上只是tm_text（“ county”）。 提前致謝！

leaflet() %>%
addProviderTiles("CartoDB.Positron") %>%  
addMarkers(
    lng= 125.781199, lat= 39.039555,
    label="fun",
    labelOptions = labelOptions(noHide = FALSE, direction = "bottom", offset=c(0,5))) %>%

addPolygons(data=data,
            stroke=FALSE,
            smoothFactor = 0.2,
            fillOpacity = 0.8,
            label = lapply(list, HTML),
            color= ~pal(data$data)) %>%
addPolylines(data = county,
             fillColor = "transparent",
             color = "#000000",
             stroke = TRUE,
             weight = 1.5,
             smoothFactor = 0.5,
             group = "county") %>%
addLegend(position = "topright",
          pal = pal, 
          values = data$data,
          title = "",
          opacity = 1,
          labFormat = labelFormat(suffix = " %",
                                  transform = function(x) 100 * x))

Answer 1

我認為您不能直接使用addPolygons()來實現，但是您可以覆蓋純文本層。 在完整的示例中查看如何在小冊子中的多邊形頂部添加標簽的答案。

摘要是：

1. 計算數據框中多邊形的質心並添加標簽文本
2. 添加多邊形后，您可以使用質心數據addLabelOnlyMarkers()添加另一個addLabelOnlyMarkers()