r - 在 R Shiny 中的传单中的圆形标记上打印标签

Question

伟大的 R 大师，

是否有任何可能的方法在 Rshiny 中的圆形标记顶部嵌入标签以获得如下所示的内容:



这是引用的快速示例:

# Some fake data
df <- sp::SpatialPointsDataFrame(
  cbind(
    (runif(20) - .5) * 10 - 90.620130,  # lng
    (runif(20) - .5) * 3.8 + 25.638077  # lat
  ),
  data.frame(type = factor(
    ifelse(runif(20) > 0.75, "p", "s"),
    c("s", "p")
  ))
)

# leaflet map
leaflet(df) %>% addTiles() %>% addCircleMarkers(label = ~type)

我想在标记的顶部打印标签(即“s”和“p”)。
非常感谢您的回答时间...

Answer 1

您需要添加一个 labelOptions争论您的 addCircleMarkers函数调用。默认情况下，当您悬停时，标签显示为弹出窗口。

使用您的其余代码:

leaflet(df) %>% addTiles() %>% addCircleMarkers(stroke = FALSE, label = ~type,
    labelOptions = labelOptions(noHide = TRUE, offset=c(0,-12), textOnly = TRUE)) 

noHide = TRUE是关键
textOnly = TRUE去除弹出气泡