#
# Räumliche Bevölkerungsbewegung nach Haushaltstypen, Leipzig
# Open Data Leipzig
#
library(tidyverse)
url <- "https://opendata.leipzig.de/dataset/fe3bbe2d-6118-40bc-8817-9f8c03b2f168/resource/8fbd6507-02a5-4368-859a-1e3662ddc57b/download/umzuegeleipzig2012ff.csv"
Patrick Hausmann patperu
patperu
/ B502_DTV_Kfz_Zeitreihe.csv
Last active
November 5, 2022 07:17
Richtungsbezogene Verkehrbelastung an der Zählstelle 'Kiel/Schönkirchen (B502)'
We can make this file beautiful and searchable if this error is corrected: No commas found in this CSV file in line 0.
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| Jahr;TK_Nr;DZ_Nr;DZ_Name;Land_Nr;Land_Code;Str_Kl;Str_Nr;Str_Zus;Erf_Art;Fernziel_Ri1;Nahziel_Ri1;Hi_Ri1;Fernziel_Ri2;Nahziel_Ri2;Hi_Ri2;Anz_Fs_Q;Betriebs_km;vT_MobisSo;vT_W;vT_U;vT_S;DTV_Kfz_MobisSo_Q;DTV_Kfz_MobisSo_Ri1;DTV_Kfz_MobisSo_Ri2;DTV_Kfz_W_Q;DTV_Kfz_W_Ri1;DTV_Kfz_W_Ri2;DTV_Kfz_U_Q;DTV_Kfz_U_Ri1;DTV_Kfz_U_Ri2;DTV_Kfz_S_Q;DTV_Kfz_S_Ri1;DTV_Kfz_S_Ri2;Entw_Kfz_MobisSo_Q;Entw_Kfz_W_Q;Entw_Kfz_U_Q;Entw_Kfz_S_Q;DTV_SV_MobisSo_Q;DTV_SV_MobisSo_Ri1;DTV_SV_MobisSo_Ri2;DTV_SV_W_Q;DTV_SV_W_Ri1;DTV_SV_W_Ri2;DTV_SV_U_Q;DTV_SV_U_Ri1;DTV_SV_U_Ri2;DTV_SV_S_Q;DTV_SV_S_Ri1;DTV_SV_S_Ri2;Entw_SV_MobisSo_Q;Entw_SV_W_Q;Entw_SV_U_Q;Entw_SV_S_Q;pSV_MobisSo_Q;pSV_W_Q;pSV_U_Q;pSV_S_Q;fer;bSo;bFr;Mt;pMt;Mn;pMn;Md;pMd;Me;pMe;MSV30_Kfz_MobisSo_Q;MSV30_Kfz_W_Q;MSV30_Kfz_U_Q;MSV30_Kfz_S_Q;MSV30maxRi_Kfz_MobisSo;MSV30maxRi_Kfz_W;MSV30maxRi_Kfz_U;MSV30maxRi_Kfz_S;pMSV30maxRi_Kfz_MobisSo;pMSV30maxRi_Kfz_W;pMSV30maxRi_Kfz_U;pMSV30maxRi_Kfz_S;Ri_MSV30maxRi_Kfz_MobisSo;Ri_MSV30maxRi_Kfz_W;Ri_MSV30maxRi_Kfz_U;Ri_MSV30maxRi_Kfz_S;DL_Q;D |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| # | |
| # regionalkey = "01*,12*" -> Nur für die Bundesländer 'Schleswig-Holstein' und 'Brandenburg' | |
| # job = "true" -> Batchjob | |
| # | |
| # Path Regionalstatistik -> "/genesisws/rest/2020/data/tablefile" | |
| # Path Destatis -> "/genesisWS/rest/2020/data/tablefile" | |
| library(httr2) | |
| library(tidyverse) |
patperu
/ umzuege_leipzig.md
Last active
January 11, 2023 15:26
Räumliche Bevölkerungsbewegung nach Haushaltstypen, Leipzig
patperu
/ mapview_addWMSTiles.R
Created
December 13, 2021 13:33
Using WMS Tiles (wms_topplus_open) with mapview
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| library(tidyverse) | |
| library(sf) | |
| library(leaflet) | |
| library(mapview) | |
| dat <- tibble::tribble( | |
| ~rowid, ~nkm_qm, ~lat, ~long, | |
| 1L, 8.18, 52.449917, 13.381893, | |
| 2L, 8, 51.576676, 7.229981, | |
| 3L, 11.5, 53.890169, 10.668716, |
patperu
/ air_quality_uba.md
Created
July 26, 2021 09:27
| title | date | editor_options | ||
|---|---|---|---|---|
Stickstoffdioxid am Theodor-Heuss-Ring, Kiel (1h-Mittelwerte) |
25 7 2021 |
|
library(tidyverse)
patperu
/ Amtszeit_Vorsitz_OBR_Kiel.R
Created
May 14, 2021 08:32
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| # Quelle: https://ratsinfo.kiel.de/bi/au010.asp?T1=Ortsbeir%E4te&AU=Ortsbeirat&SORTVON=20&SORTBIS=39 | |
| library(tidyverse) | |
| library(ggchicklet) | |
| library(hrbrthemes) | |
| library(lubridate) | |
| obr_vorsitz <- tibble::tribble( | |
| ~OBRId, ~Ortsbeirat, ~Funktion, ~Name, ~Herkunft, ~Vorsitz_seit, | |
| 1L, "Ortsbeirat Schilksee", "Vorsitz", "Finger, Maike", "SPD", "12.09.18", |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| # https://www.destatis.de/DE/Themen/Laender-Regionen/Regionales/Gemeindeverzeichnis/_inhalt.html | |
| library(tidyverse) | |
| library(pdftools) | |
| read_gv100ad <- function(data_file, data_dict_file) { | |
| ################################################################# | |
| # Data Dictionary | |
| ################################################################# |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| # https://daten.berlin.de/datensaetze/postleitzahlen-wfs-2 | |
| library(httr) | |
| library(glue) | |
| library(sf) | |
| wfs_source <- "s_plz" | |
| u_data <- glue("https://fbinter.stadt-berlin.de/fb/wfs/data/senstadt/{wfs_source}") |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| # see also https://www.brodrigues.co/blog/2018-06-10-scraping_pdfs/ | |
| library(pdftools) | |
| library(tidyverse) | |
| ( txt <- pdf_text(pdf = 'http://pardok.parlament-berlin.de/starweb/adis/citat/VT/18/SchrAnfr/S18-20899.pdf') %>% | |
| readr::read_lines() ) | |
| fin <- txt[133:145] |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| library(tidyverse) | |
| library(ggchicklet) | |
| library(hrbrthemes) | |
| # https://www.destatis.de/DE/Presse/Pressemitteilungen/2019/10/PD19_N01_129.html | |
| readr::read_csv2('nettokaltmieten.csv') %>% | |
| mutate(Mietdifferenz = ((`Einzug 2015 oder später`/ Insgesamt) - 1) * 100) %>% | |
| mutate(width = 0.75, Kategorie = fct_reorder(Kategorie, Mietdifferenz, .desc = FALSE)) %>% | |
| ggplot(aes(Kategorie, Mietdifferenz)) + |
NewerOlder