Отображение по цветным группам единиц на карте sf - PullRequest
Новая
       42

Отображение по цветным группам единиц на карте sf

0 голосов
/ 05 июля 2019

У меня к вам технический вопрос:

У меня есть шейп-файл из нескольких городов в округе 

library(dplyr)
library(ggplot2)
library(sf)

    read_sf("cities.shp")  %>% 
      ggplot() +  geom_sf() + theme_bw()

Мой shp выглядит так: 

   Code  Name   Long Lat    Groups
   <chr> <chr>     <dbl>    <dbl> <dbl>
 1 34001 ABEI…   724751. 6262333.     9
 2 34002 ADIS…   734961. 6270688.    10
 3 34003 AGDE    739245. 6245728.     7
 4 34004 AGEL    688135. 6249905.     4
 5 34005 AGON…   758530. 6311345.    20
 6 34006 AIGNE   683215. 6247000.     4
 7 34007 AIGU…   685638. 6249976.     4
 8 34008 LES …   705573. 6274482.     6
 9 34009 ALIG…   727555. 6263258.     9
10 34010 ANIA…   747789. 6287511.    18

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

Спасибо

1 Ответ

0 голосов
/ 08 июля 2019

Итак, это было просто ...

Как и код geom_x, который мы можем использовать arg fill = 

 (test <- read_sf("map.shp") %>% mutate(Groups = as.factor(Groups)) %>% 
        mutate(Groups = factor(Groups, levels = c(paste0(1:23)))) %>%
      ggplot() +  geom_sf(aes(fill = Groups)) + theme_bw() )

Вот и все, Thx!

...