Great R Gurus,
在以下示例中,是否有任何方法可以使用字体真棒图标制作圆形标记:
df.20 <- quakes[1:20,]
getColor <- function(quakes) {
sapply(quakes$mag, function(mag) {
if(mag <= 4) {
"green"
} else if(mag <= 5) {
"orange"
} else {
"red"
} })
}
icons <- awesomeIcons(
icon = 'ios-close',
iconColor = 'black',
library = 'ion',
markerColor = getColor(df.20)
)
leaflet(df.20) %>% addTiles() %>%
addCircleMarkers(~long, ~lat, icon=icons, label=~as.character(mag))
我希望获得类似this的内容,但使用圆圈标记。 您的回答时间表示高度赞赏......