Postleitzahlen

Today, I am taking a look at postal code. I have to give my privat or working address often as I am registering for diverse service. I was curious to look at the repartition of the Postal code. In Germany, postal code consist of 5 numbers. For Berlin, 4 areas are defined 10*, 12*, 13*, 14*.

Picture of the day

A Map made with r, sf and ggplot2 of Berlin according to the main postal code area.

plz <- read_sf("https://fbinter.stadt-berlin.de/fb/wfs/data/senstadt/s_plz?service=wfs&version=2.0.0&request=GetFeature&TYPENAMES=s_plz")
plz$plz_r <- as.character(trunc(plz$plz / 1000))
plz <- plz[plz$plz_r %in% 10:14,]
jpeg("2022-03-02_plz.jpg",
     width=1200, height=1000, quality=90,
     res=120)
plz %>%
  group_by(plz_r) %>%
  summarise() %>%
  ggplot() +
  geom_sf(aes(fill=plz_r)) +
  geom_sf_text(aes(label = plz_r))+
  scale_fill_brewer(palette ="Set3") +
  theme_void()
dev.off()

Berlin’s Posta code areas. Data: Postleitzahlen, CC-BY-3.0 Amt für Statistik Berlin-Brandenburg