在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删除了弹出气泡