在Rshiny传单中的圆形标记上打印标签

Question

Great R Gurus，

有没有可能在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 删除弹出气泡