Cfrgtkky

my data look like this:

ggplot() +

  geom_polygon(data = poland.map.gg, 

               aes(long, lat, group = group, fill = N_mężczyzna))

I want to remove that blank weird shapes.

full code:

library(rgdal)  



download.file("http://www.gis-support.pl/downloads/wojewodztwa.zip", "wojewodztwa.zip") #ściągamy plik z shapefilem

unzip("wojewodztwa.zip", exdir=".") #rozpakowujemy plik



poland.map <- readOGR(dsn=".", "województwa") #argumentami są nazwa folderu oraz nazwa pliku (nie podajemy rozszerzenia)



poland.map@data <- poland.map@data[ , c(6,16)] #weźmy tylko nazwy województw oraz ich powierzchnie

names(poland.map@data) <- c("nazwa", "powierzchnia") 



#kłopoty z kodowaniem

poland.map@data$nazwa <- c("opolskie", "świętokrzyskie", "kujawsko-pomorskie", "mazowieckie", "pomorskie", "śląskie",

                           "warmińsko-mazurskie", "zachodniopomorskie", "dolnośląskie", "wielkopolskie", "łódzkie",

                           "podlaskie", "małopolskie", "lubuskie", "podkarpackie", "lubelskie")





library(ggplot2)

library(rgeos)

library(maptools)

poland.map.gg <- fortify(poland.map, region="nazwa")

km_woj <- read.table(file="clipboard", header = T)

head(poland.map.gg)

poland.map.gg <- merge(poland.map.gg, km_woj, by.x="id", by.y="Województwo", 

                       sort=F)

ggplot()+geom_polygon(data=poland.map.gg, aes(long, lat, group=group,

                                              fill=N_mężczyzna))

km_woj is a data frame which looks like this:

Try to use sf package instead of rgeos. And join from dplyr.
Better do not use polish letters in variable names :)

Full code:

library(tidyverse)

library(sf)



download.file("http://www.gis-support.pl/downloads/wojewodztwa.zip", "wojewodztwa.zip") #ściągamy plik z shapefilem

unzip("wojewodztwa.zip", exdir=".") #rozpakowujemy plik



# fake km_woj table:

km_woj <- tibble(Wojewodztwo =  c("opolskie", "świętokrzyskie", "kujawsko-pomorskie", "mazowieckie", "pomorskie", "śląskie", "warmińsko-mazurskie", "zachodniopomorskie", "dolnośląskie", "wielkopolskie", "łódzkie", "podlaskie", "małopolskie", "lubuskie", "podkarpackie", "lubelskie"),

             N_mezczyzna = rnorm(16, 100, 10))





poland.map <- read_sf("województwa.shp")



poland.map <- poland.map %>% select(nazwa = jpt_nazwa_, geometry)



#kłopoty z kodowaniem

poland.map$nazwa <- c("opolskie", "świętokrzyskie", "kujawsko-pomorskie", "mazowieckie", "pomorskie", "śląskie", "warmińsko-mazurskie", "zachodniopomorskie", "dolnośląskie", "wielkopolskie", "łódzkie", "podlaskie", "małopolskie", "lubuskie", "podkarpackie", "lubelskie")





poland.map



poland.map.gg <- left_join(poland.map, km_woj, by = c("nazwa" = "Wojewodztwo"))



poland.map.gg



ggplot() +

  geom_sf(data = poland.map.gg,

          aes(fill = N_mezczyzna))