Skip to content

Instantly share code, notes, and snippets.

@kkprakasa

kkprakasa/dataset-kab.r

Last active November 4, 2019 04:54
Show Gist options
  • Save kkprakasa/7feccb543e1ff838e1c057d036451903 to your computer and use it in GitHub Desktop.
Save kkprakasa/7feccb543e1ff838e1c057d036451903 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
dataset-kab.r
require(foreign)
require(dplyr)
require(reshape2)
require(stringi)
provinsi<-read.csv('https://raw.githubusercontent.com/pr4ka5a/Wilayah-Administratif-Indonesia/master/csv/provinces.csv', header=FALSE, stringsAsFactors=FALSE)
kabupaten<-read.csv('https://raw.githubusercontent.com/pr4ka5a/Wilayah-Administratif-Indonesia/master/csv/regencies.csv',header=FALSE, stringsAsFactors=FALSE)
names(provinsi) <- paste(c('R101','provinsi'))
provinsi$provinsi <- stri_trans_totitle(provinsi$provinsi)
names(kabupaten) <- paste(c('R102','R101','kabupaten'))
kabupaten$kabupaten <- stri_trans_totitle(kabupaten$kabupaten)
kabupaten[c(87,80,153,391,394),]$kabupaten <- paste(c('Kota Dumai', 'Kota Siak', 'Kota Batam', 'Kabupaten ToliToli', 'Kabupaten Tojo UnaUna' ))
kabupaten <- merge(provinsi, kabupaten, by='R101', all=TRUE)
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment