Добавление круговых маркеров на листке R на уже нанесенную карту - PullRequest
Новая
       93

Добавление круговых маркеров на листке R на уже нанесенную карту

0 голосов
/ 14 июля 2020 
bins <- c(0,10,20,30,40,50,Inf)

pal <- colorNumeric(
palette = c('Grey', '#C9E1F9', '#BCD2E8', '#86ACC6', '#73A5C6', '#528AAE', '#2E5984',  '#1E3F66', '#152B46'),
domain = ar_prov_objetivos$Orden
)

 ar_prov_objetivos%>%mutate(popup= str_c('<strong>', ProvinciaMod, '<strong>',
                  ' - Toneladas de IA: ', Potencial)%>%
       map(htmltools::HTML))%>%
  leaflet()%>%
   addTiles()%>%
    addPolygons(label = ~popup,
          fillColor = ~pal(Orden),
          color = 'black',
          weight = 0.5,
          smoothFactor = 0.5,
          opacity = 1,
          fillOpacity = 0.55,
          highlightOptions = highlightOptions(color = 'white',
                                              weight = 2,
                                              bringToFront = TRUE),
          labelOptions=labelOptions(
            style = list('font-weight' = 'normal', padding = '3px 8px'),
            textsize = '15px',
            direction = 'auto'))%>%
      addCircleMarkers(lng = -62.3964567,
               lat = -38.721146,
               radius = 10)%>%
      addCircleMarkers(lng = -61.2364567,
               lat = -43.725146,
               radius = 10)%>%
      addCircleMarkers(lng = -78.3964567,
               lat = -34.724146,
               radius = 10)
...