2016-10-04 35 views

回答

0

你不能改变正常标记的颜色 - 到目前为止我知道。你可以做的是用圆:

library(leaflet) 

m <- leaflet() %>% 
    addTiles() %>% # Add default OpenStreetMap map tiles 
    setView(13, 42, zoom = 4) %>% 
    addCircles(c(13,0,10), c(42,40,45), radius = c(50000, 1, 100000), color=c("red", "orange", "blue")) 
m # Print the map 

或创建自己的标记,这个函数是这样的:

Rlogo = file.path(R.home('doc'), 'html', 'logo.jpg') 
m <- leaflet() %>% 
    addTiles() %>% # Add default OpenStreetMap map tiles 
    setView(13, 42, zoom = 4) %>% 
    addMarkers(
    5, 47, icon = list(
     iconUrl = Rlogo, iconSize = c(100, 76)/2 
    ) 
) 
m