Использование листовки с блестящей буквой R для карты хороплет - PullRequest
Новая
       4

Использование листовки с блестящей буквой R для карты хороплет

0 голосов
/ 26 мая 2020

Я пытаюсь создать хороплетную карту, используя R, shiny и leaflet. Мой «набор данных» называется LocationRating, он выглядит следующим образом: 

   CompanyLocation        ratingMedio
 1 Amsterdam              3.5 
 2 Argentina              3.32
 3 Australia              3.33
 4 Austria                3.17
 5 Belgium                3.35
 6 Brazil                 3.5

Для создания моей карты choropleth у меня есть пользовательский интерфейс и сервер. Пользовательский интерфейс довольно прост: 

h2('World'),
leafletOutput("mymap")

в то время как сервер такой: 

mybins <- c(0, 0.5, 1, 1.5, 2, 2.5, 3, 3.5, 4, 4.5, 5, Inf),
    mypalette <- colorBin( palette="YlOrBr", domain=world_spdf@LocationRating$ratingMedio, na.color="transparent", bins=mybins),

    mytext <- paste(
        "Country: ", world_spdf@LocationRating$CompanyLocation,"<br/>", 
        "Rating: ", world_spdf@LocationRating$ratingMedio,
        sep="") %>%
        lapply(htmltools::HTML),

    leaflet(world_spdf) %>% 
        addTiles()  %>% 
        setView( lat=10, lng=0 , zoom=2) %>%
        addPolygons( 
            fillColor = ~mypalette(ratingMedio), 
            stroke=TRUE, 
            fillOpacity = 0.9, 
            color="white", 
            weight=0.3,
            label = mytext,
            labelOptions = labelOptions( 
                style = list("font-weight" = "normal", padding = "3px 8px"), 
                textsize = "13px", 
                direction = "auto"
            )
        ) %>%
        addLegend( pal=mypalette, values=~ratingMedio, opacity=0.9, title = "Rating", position = "bottomleft" )

В самом начале сервер был таким и работал и показывал пустую карту: 

output$mymap <- renderLeaflet({
        leaflet() %>%
            addProviderTiles(providers$Stamen.TonerLite,
                             options = providerTileOptions(noWrap = TRUE)
            )})

Теперь, с новой версией (которая выглядит лучше старой) ничего не происходит, и у меня много ошибок.

Кто-нибудь может мне помочь исправить одну из двух версий сервера, пожалуйста?

...