Skip to content

Instantly share code, notes, and snippets.

@walkerke

walkerke/tutorial_part3.R

Created April 6, 2016 17:43
Show Gist options
  • Save walkerke/af29d5203889282d7a73e02f699e8df0 to your computer and use it in GitHub Desktop.
Save walkerke/af29d5203889282d7a73e02f699e8df0 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
tutorial_part3.R
# Merge the TAD data to the parcels based on a common ID, and remove un-matched records
tad_merged <- geo_join(parcels, tad_sub, 'TAXPIN', 'GIS_Link', how = 'inner')
# Drop parcels with an area of 0, and calculate a "value/square foot" column
tad_merged <- tad_merged[tad_merged$CALCULATED != 0, ]
# Calculate value/square foot (converting acres to square feet)
tad_merged$valsqft <- round(tad_merged$Total_Value / (tad_merged$CALCULATED * 43560), 2)
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment