Mapa województw

library(rgdal)
library(sp)
library(ggplot2)
districts <- readOGR("D:/R/PRG", "wojewodztwa")

OGR data source with driver: ESRI Shapefile 
Source: "D:/R/PRG", layer: "wojewodztwa"
with 16 features
It has 29 fields

districts <- spTransform(districts, CRS("+init=epsg:4326"))
districts <- fortify(districts, region = "jpt_kod_je")
ids <- factor(c("02","04","06","08","10","12","14","16","18","20","22","24","26","28","30","32"))
distcol <- data.frame(
  id = ids,
  value = heat.colors(16)
)
distplot <- merge (distcol,districts, by=c("id"))
ggplot() +
  geom_polygon(data=distplot,
               aes(long, lat, group=group, fill = I(value)),
               color="#000000", show.legend = FALSE) +
  coord_map() +
  theme_void()