如何在R中格式化leaflet弹出标签？

Question

我有一个数据框：

https://www.dropbox.com/s/51j3hh9urwjudu2/Agents.csv?dl=0

使用这个代码，我可以创建一个leaflet地图：

map = leaflet() %>%

  addTiles() %>%  # Add default OpenStreetMap map tiles

  addCircles(lng = agents$longitude, lat = agents$latitude, 
             popup=paste("Agent:", agents$Agent, "<br>",
                         "Satisfaction:", agents$Satisfaction, "<br>", 
                         "No. Customers:", agents$Customers, "<br>",
                         "Colour Ref:", agents$Colour), 
             radius = agents$Customers * 10,
             color = agents$Colour,
             stroke = FALSE, fillOpacity = 0.5)

看起来像这样：

现在，我希望能够：

将第一行字体加粗（在本例中为“代理人 4”）。我已尝试插入：

"", agents$Agent, font = 2 "<br>",

但这并不起作用。

我还想将“Medium”、“4200”和“green”标签页排成一行，以便更容易阅读。

有人知道如何做吗？谢谢！

- AJGL

---

您可以使用CSS自定义标签（请参见https://rstudio.github.io/leaflet/popups.html）。 - Travis Hinkelman

Answer 1

我发现在数据框中为弹出文本创建新变量更容易。

以下是一个例子。

agents$popup_text <- 
  paste0('<strong>', agents$Agent, '</strong>',
         '<br/>', 'Satisfaction: ', '<strong>', agents$Satisfaction, '</strong>', ' ') %>% 
  lapply(htmltools::HTML)

- Samuel