Skip to content

Instantly share code, notes, and snippets.

View kkprakasa's full-sized avatar
💭
I may be slow to respond.

Someone in your heart kkprakasa

💭
I may be slow to respond.
26 followers · 10 following
View GitHub Profile
@kkprakasa
kkprakasa / SDI
Last active November 4, 2019 04:56
#SDI
# SUSENAS 2017
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)
@kkprakasa
kkprakasa / dukcapil.py
Last active September 10, 2019 15:51
# dukcapil
import urllib2
from bs4 import BeautifulSoup
from time import sleep
import csv
import sys
import json
reload(sys)
sys.setdefaultencoding('utf8')
@kkprakasa
kkprakasa / jdihn
Created February 18, 2019 16:34
# -*- coding: utf-8 -*-
import urllib2
from bs4 import BeautifulSoup
from time import sleep
import re
from pymongo import MongoClient
# http://blog.pengyifan.com/how-to-fix-python-ssl-certificate_verify_failed/
import os, ssl
@kkprakasa
kkprakasa / Podes tarik data per blok
Created March 25, 2019 09:02
Script untuk menarik data per blok di PODES
head(read.dbf('podes2018_desa_part1_revisi.dbf')[,c(1:8,which(grepl("R404",colnames(read.dbf('podes2018_desa_part1_revisi.dbf')))))])
fungsi which akan mengembalikan nilai posisi kolom,
fungsi grepl akan mencari karakter yang terkandung pada variabel 1 ('R404') didalam list variabel 2 (colnames( ...))
jalankan tanpa *head*
@kkprakasa
kkprakasa / hnwi.r
Last active November 4, 2019 04:55
# HNWI
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'))
@kkprakasa
kkprakasa / mindshare.R
Last active November 4, 2019 04:55
# mindshare
# surabaya 3578
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)
@kkprakasa
kkprakasa / dataset-kab.r
Last active November 4, 2019 04:54
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'))
@kkprakasa
kkprakasa / kpu-hasil.py
Last active September 10, 2019 15:53
kumpulan scrapping db1 kpu
#kpu-hasil
import urllib2
from bs4 import BeautifulSoup
from time import sleep
import csv
import sys
import json
import ssl
reload(sys)
@kkprakasa
kkprakasa / SAC-Iloc.R
Last active November 4, 2019 04:54
# SAC
require(foreign)
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)
@kkprakasa
kkprakasa / dashb-nusa-scrap.py
Created September 10, 2019 15:54
import urllib2
from bs4 import BeautifulSoup
from time import sleep
import csv
import sys
import json
import ssl
import time
from pymongo import MongoClient