R листовка addPolygons - как вывести полигоны? - PullRequest
Новая
       25

R листовка addPolygons - как вывести полигоны?

0 голосов
/ 29 января 2019

С leaflet() и addPolygons() можно раскрасить полигоны (штаты США в приведенном ниже примере) в соответствии с конкретной переменной.

Q / Есть ли способ штриховки полигонов чтобы добавить вторую информацию на карту?

Цвет дает первую информацию (принадлежность кластера), я хотел бы добавить вторую информацию (например, состояния с 'New' в их имени).Было бы очень полезно визуализировать обе информации одновременно.

library(rgdal)

# From https://www.census.gov/geo/maps-data/data/cbf/cbf_state.html
states <- readOGR(
  dsn   = "2.Data/shp/cb_2013_us_state_20m.shp", 
  layer = "cb_2013_us_state_20m", 
  GDAL1_integer64_policy = T
)

sample <- states %>% 
  subset(STUSPS %in% c("CT","ME","MA","NH","RI","VT","NY","NJ","PA"))

MaPalette1 <- colorFactor(c('red', 'blue', 'green', 'grey', 'black', 'pink', 'orange', 'yellow', 'purple', 'white'), 
                          sample@data$STATEFP)

leaflet(sample) %>%
  addPolygons(
    color       = 'black', 
    weight      = 1,
    fillOpacity = 1,
    fillColor   = ~ MaPalette1(STATEFP)
)

enter image description here

Я попытался закрасить границу многоугольников, но, поскольку на карте уже много цветов, это не так.Легко визуализировать.

Я также протестировал addLayersControl (), но я действительно хочу визуализировать информацию на одном слое, а наложение двух цветовых слоев создает новые цвета, информация не понятна.

Заранее благодарен за вашу помощь.Когда я сказал «штриховка», я подумал что-то вроде этого:

enter image description here

...