обновление
Я только что обнаружил, что установка burst
-аргумента на FALSE
, кажется, помогает?
b %>%
mapview(zcol="group", cex="number.of.types", burst=FALSE)
предыдущий ответ
Я не уверен насчет mapview
-опций, так как я редко использую функцию.
Вы можете попытаться повторно скопировать карту, которую вы хотите, с помощью листовки (это то, что использует mapview, если я правильно помню).
Требуется немного больше строк кода, хотя ..
library(leaflet)
colorGroup <- colorFactor( topo.colors( 2 ), b$group )
leaflet() %>% addTiles() %>%
addCircleMarkers( data = b,
#circle size
radius = ~number.of.types,
#circle borders
color = "black", opacity = 1, stroke = TRUE, weight = 2,
#circle inside
fillColor = ~ colorGroup( group ), fillOpacity = 0.8 )
приводит к
И вам придется добавить код для легенды и всплывающих окон (при необходимости).