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

Question

我有一个数据框：

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

使用它，我可以使用以下代码创建传单地图：

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)

看起来像这样：

现在，我想：

第一行以粗体显示（在本例中为“Agent 4”）。我试过插入：

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

但这不起作用。

我还想标记“中”、“4200”和“绿色”，使它们彼此一致，更易于阅读。

有谁知道如何做到这一点？谢谢！

Answer 1

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

这是一个例子。

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