Skip to content

Instantly share code, notes, and snippets.

View patperu's full-sized avatar

Patrick Hausmann patperu

42 followers · 72 following
View GitHub Profile
@patperu
patperu / GTFS_Palermo.R
Created August 30, 2015 14:20
AMAT GTFS Palermo
# Initial code: http://jkunst.com/r/plotting-gtfs-data-with-r/
# GTFS source
# http://www.comune.palermo.it/opendata_dld.php?id=318
library("dplyr")
library("readr")
library("ggplot2")
library("ggthemes")
options(stringsAsFactors = FALSE)
@patperu
patperu / GET_Immoscout24.R
Last active September 8, 2024 12:32
Receive data from the ImmobilienScout24-API
library(httr)
library(jsonlite)
library(tidyverse)
# Keys, but it's better to set up
# environment variables via 'Sys.setenv'
consumerKey <- "aaa"
consumerSecret <- "bbb"
immo24_app <- oauth_app(appname = "app",
@patperu
patperu / umzuege_leipzig.md
Last active January 11, 2023 15:26
Räumliche Bevölkerungsbewegung nach Haushaltstypen, Leipzig 
#
# 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"
@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.
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
@patperu
patperu / api_regionalstatistik.R
Last active October 25, 2022 07:35
Regionalstatistik API
#
# 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
patperu / mapview_addWMSTiles.R
Created December 13, 2021 13:33
Using WMS Tiles (wms_topplus_open) with mapview
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
patperu / air_quality_uba.md
Created July 26, 2021 09:27
title Stickstoffdioxid am Theodor-Heuss-Ring, Kiel (1h-Mittelwerte)
date 25 7 2021
editor_options
chunk_output_type
console
 
library(tidyverse)
@patperu
patperu / Amtszeit_Vorsitz_OBR_Kiel.R
Created May 14, 2021 08:32
# 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",
@patperu
patperu / read_gv100ad.R
Created February 24, 2020 08:57
R Import Destatis Gemeindeverzeichnis
# 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
#################################################################
@patperu
patperu / PLZ_Berlin.R
Created October 29, 2019 10:18
PLZ-Berlin / FIS-Brocker Berlin
# 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}")