在 R Shiny 的传单中的圆形标记上打印标签答案

【问题标题】：Print label on circle markers in leaflet in Rshiny在 R Shiny 的传单中的圆形标记上打印标签
【发布时间】：2017-04-18 14:14:16
【问题描述】：

伟大的 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”）。非常感谢您抽出宝贵的时间来回答...

【问题讨论】：

看看here。 labelOptions 是您要通过设置noHide = TRUE 和调整offset 来调整的内容

标签： r leaflet shiny

【解决方案1】：

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

使用您的其余代码：

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

noHide = TRUE 是关键

textOnly = TRUE 移除弹出气泡

【讨论】：

发布了我的答案后，我才注意到 TimSalabim 提供了上述解决方案！
完美。非常方便......谢谢杰里米！