我有一个数据框:
https://www.dropbox.com/s/51j3hh9urwjudu2/Agents.csv?dl=0
使用它,我可以使用以下代码创建传单 map :
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”和“绿色”,使它们彼此一致,更易于阅读。
有谁知道如何做到这一点?谢谢!
最佳答案
我发现在数据框中为弹出文本创建一个新变量更容易。
这是一个例子。
agents$popup_text <-
paste0('<strong>', agents$Agent, '</strong>',
'<br/>', 'Satisfaction: ', '<strong>', agents$Satisfaction, '</strong>', ' ') %>%
lapply(htmltools::HTML)
关于r - 如何在 R 中格式化传单弹出标签?,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/47558090/