Legends on R Leaflet Maps

Question

Хотя я понимаю, что размещение легенд на картах с использованием Rstudio leaflet package все еще продолжается, я пытался добавить в HTML-код пост-hoc в HTML, который генерирует R.

library("leaflet") 
set.seed(100) 
pdf <- data.frame(Latitude = runif(100, -90,90), Longitude = runif(100, -180,180), 
        col=rep(c("red", "blue"), 50)) 

#just red 
leaflet(pdf) %>% addTiles() %>% 
    addCircleMarkers(lat = ~ Latitude, lng = ~ Longitude, color= ~col) 

Я пытался адаптировать код из http://leafletjs.com/examples/choropleth.html и выяснить, где, чтобы добавить его к выходу из выполнения кода в R и превратить его в HTML.

Так что-то вроде положить следующий в теле HTML:

<script> 
var legend = L.control({position: 'bottomright'}); 

legend.onAdd = function (map) { 

    var div = L.DomUtil.create('div', 'info legend'), 
     grades = [red, blue], 
     labels = []; 

    // loop through our density intervals and generate a label with a colored square for each label 
    for (var i = 0; i < grades.length; i++) { 
     div.innerHTML += 
      '<i style="background:' + getColor(grades[i] + 1) + '"></i> ' + 
      grades[i] + (grades[i + 1] ? '&ndash;' + grades[i + 1] + '<br>' : '+'); 
    } 

    return div; 
}; 

legend.addTo(map); 
<script> 

Это не похоже на работу, однако. Ничего не появляется. Также не ясно, как я буду использовать имена, отличные от «красного» и «синего» для оценок. Я также добавил в CSS, как показано в примере choropleth, но без кубиков.

Кто-нибудь сделал это - вручную добавила легенду к своему R-выводу (скажем, захватив источник из Rpubs после публикации), чтобы добавить легенду?

Answer 1

Хотя это не совсем то, что я искал, кажется, что функция addLegend находится на своем пути и находится в одной ветви пакета. Смотрите документацию и и пример здесь:

http://smartinsightsfromdata.github.io//2015/04/25/choropleths.html