Skip to content

Instantly share code, notes, and snippets.

View FrieseWoudloper's full-sized avatar

Willy Tadema FrieseWoudloper

23 followers · 8 following
View GitHub Profile
@FrieseWoudloper
FrieseWoudloper / evenementen_totalen.csv
Created May 1, 2015 14:52
Exercise module 6
volgnr jaar aantal_verleend aantal_geweigerd aantal_totaal gevraagd_bedrag_geweigerd gevraagd_bedrag_verleend gevraagd_bedrag_totaal verleend_bedrag
1 2011 37 25 62 694114 284960 979074 508982
2 2012 25 27 52 627500 160273 787773 486000
3 2013 34 31 65 689550 271225 960775 494000
4 2014 26 14 40 552000 185720 737720 384500
@FrieseWoudloper
FrieseWoudloper / index.html
Last active August 29, 2015 14:22
<!DOCTYPE html>
<html lang="en">
<head>
<meta charset="utf-8">
<title>Provincies in het Wbp Meldingenregister</title>
<script type="text/javascript" src="http://d3js.org/d3.v3.js"></script>
<script type="text/javascript" src="http://labratrevenge.com/d3-tip/javascripts/d3.tip.v0.6.3.js"></script>
<style type="text/css">
body {
@FrieseWoudloper
FrieseWoudloper / index.html
Created August 21, 2015 12:20
CartoDB VN-resoluties
<!doctype html>
<html>
<head>
<link rel="stylesheet" href="http://libs.cartocdn.com/cartodb.js/v3/3.11/themes/css/cartodb.css" />
<script src="http://libs.cartocdn.com/cartodb.js/v3/3.11/cartodb.js"></script>
<style>
html, body {width:100%; height:100%; padding: 0; margin: 0;}
#map { width: 100%; height:100%; background: black;}
#menu { position: absolute; top: 5px; right: 10px; width: 500px; height:60px; background: transparent; z-index:10;}
#menu a {
@FrieseWoudloper
FrieseWoudloper / Oefening.R
Created October 18, 2015 10:01
library(rgdal)
library(rgeos)
URL <- "http://www.twiav.nl/files/NL_Gemeenten2014.zip"
dir.create("./Data", showWarnings = FALSE)
download.file(URL, destfile ="./Data/NL_Gemeenten2014.zip", mode = "wb")
unzip("./Data/NL_Gemeenten2014.zip", exdir = "./Data")
unlink("./Data/NL_Gemeenten2014.zip")
gem2014 <- readOGR("Data/NL_Gemeenten2014.TAB", "NL_Gemeenten2014")
@FrieseWoudloper
FrieseWoudloper / AHN.R
Created October 26, 2015 13:14
# Zie http://stackoverflow.com/questions/14510435/is-there-a-possibility-to-pass-binary-raster-data-directly-to-a-spatial-object
# Optie 1
library(raster)
library(rgdal)
setwd("d:/temp")
url <- "http://geodata.nationaalgeoregister.nl/ahn2/wms?version=1.3.0&service=WMS&request=GetMap&LAYERS=ahn2_05m_int&style=ahn2_05m_detail&WIDTH=1000&HEIGHT=1250&bbox=213089,593892,217076,597981&CRS=EPSG:28992&FORMAT=image/geotiff"
download.file(url, destfile="zoutkamp.tiff", mode = "wb")
@FrieseWoudloper
FrieseWoudloper / basisscholen_in_Groningen.csv
Last active October 29, 2015 07:40
Intermediate D3 for Data Visualization - Project Module 1
gemeente scholen_basisonderwijs scholen_basisonderwijs_per_10000_inwoners
Appingedam 5 4.1
Bedum 7 6.7
Bellingwedde 9 9.7
De Marne 12 11.5
Delfzijl 23 8.7
Eemsmond 14 8.6
Groningen 39 2
Grootegast 11 9
Haren 10 5.4
@FrieseWoudloper
FrieseWoudloper / Leeftijdsopbouw_De_Marne_cat.csv
Last active November 12, 2015 18:55
Intermediate D3 for Data Visualization - Project Module 2
We can make this file beautiful and searchable if this error is corrected: It looks like row 9 should actually have 25 columns, instead of 4. in line 8.
"cat","1992","1993","1994","1995","1996","1997","1998","1999","2000","2001","2002","2003","2004","2005","2006","2007","2008","2009","2010","2011","2012","2013","2014","2015"
"0-9 years old",576,553,494,518,492,457,413,365,358,342,410,387,451,417,372,290,264,431,412,413,368,520,836,1019
"10-19 years old",551,548,544,523,562,551,557,517,465,446,544,482,444,467,413,542,509,282,277,253,429,427,242,597
"20-29 years old",628,625,565,471,607,535,903,818,818,775,408,410,375,201,554,1007,1191,1347,1363,1200,1200,1382,1531,1373
"30-39 years old",740,767,744,759,752,721,669,652,617,630,662,670,652,608,722,784,725,848,1010,951,899,1044,1029,1187
"40-49 years old",727,749,765,773,772,774,779,784,814,822,826,811,813,831,813,740,710,705,648,640,629,604,569,517
"50-59 years old",768,404,465,492,521,605,498,568,658,707,783,811,812,858,837,824,827,794,794,780,772,761,747,727
"60-69 years old",1045,1030,1019,1199,1191,1187,1182,1208,1029,1251,1089,738,818,651,511,775,645,705,734,758,622,660,651,689
"70-79 years old",1613,1431,1
@FrieseWoudloper
FrieseWoudloper / groninger_wijken.geojson
Last active November 22, 2015 14:02
Intermediate D3 for Data Visualization - Project Module 3
Sorry, something went wrong. Reload?
Sorry, we cannot display this file.
Sorry, this file is invalid so it cannot be displayed.
@FrieseWoudloper
FrieseWoudloper / groninger_wijken.geojson
Last active November 22, 2015 15:06
Intermediate D3 for Data Visualization - Project Module 4
Sorry, something went wrong. Reload?
Sorry, we cannot display this file.
Sorry, this file is invalid so it cannot be displayed.
@FrieseWoudloper
FrieseWoudloper / Geschiktheid panden provincie Groningen voor opwekken zonne-energie.RMD
Created February 7, 2016 08:59
R-script dat aan de hand van de gegevens uit het objectenportaal van de provincie Groningen, de BAG en de Zonneatlas bepaald welke panden van de provincie Groningen wel/niet geschikt zijn voor het opwekken van zonne-energie
---
title: "Welke provinciale panden zijn geschikt voor het opwekken van zonne-energie?"
author: "Willy Bakker"
date: "5 januari 2016"
output: html_document
---
## Vraagstelling en uitgangspunten
Een collega bij de Provincie Groningen vroeg zich af: Welke panden van de provincie Groningen zijn geschikt voor het opwekken van zonne-energie? Een interessante vraag! Bovendien een uitgelezen kans om me verder te verdiepen in geografische analyses met R. In de kerstvakantie ben ik er mee aan de slag gegaan. Dit document bevat de code, documentatie en resultaten van mijn analyse.