data-raw/.R
In cmarmstrong/wunderscraper: Scrape the 'Wunderground' API
zctaRel <- read.csv('data-raw/zcta_county_rel_10.txt', colClasses=c(ZCTA5='character', STATE='character', COUNTY='character', GEOID='character'))
zctaRel $STATEFP <- zctaRel $STATE
zctaRel $COUNTYFP <- zctaRel $COUNTY
STPOP <- aggregate(as.numeric(COPOP)~STATEFP, FUN=sum, data=zctaRel)
names(STPOP) <- c('STATEFP', 'STPOP')
zctaRel <- merge(zctaRel, STPOP, by='STATEFP')
zctaRel <- zctaRel[, c('ZCTA5', 'STATEFP', 'COUNTYFP', 'GEOID', 'STPOP', 'COPOP', 'ZPOP', 'POPPT')]
save(zctaRel, file='data/zctaRel.rda', compress='xz')
cmarmstrong/wunderscraper documentation built on July 17, 2019, 8:19 p.m.
R Package Documentation
Browse R Packages
We want your feedback!
Note that we can't provide technical support on individual packages. You should contact the package authors for that.
zctaRel <- read.csv('data-raw/zcta_county_rel_10.txt', colClasses=c(ZCTA5='character', STATE='character', COUNTY='character', GEOID='character'))
zctaRel $STATEFP <- zctaRel $STATE
zctaRel $COUNTYFP <- zctaRel $COUNTY
STPOP <- aggregate(as.numeric(COPOP)~STATEFP, FUN=sum, data=zctaRel)
names(STPOP) <- c('STATEFP', 'STPOP')
zctaRel <- merge(zctaRel, STPOP, by='STATEFP')
zctaRel <- zctaRel[, c('ZCTA5', 'STATEFP', 'COUNTYFP', 'GEOID', 'STPOP', 'COPOP', 'ZPOP', 'POPPT')]
save(zctaRel, file='data/zctaRel.rda', compress='xz')
R Package Documentation
Browse R Packages
We want your feedback!
Note that we can't provide technical support on individual packages. You should contact the package authors for that.
Embedding an R snippet on your website
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.