Skip to content

Instantly share code, notes, and snippets.

Keybase proof

I hereby claim:

  • I am jasonshobe on github.
  • I am jasonshobe (https://keybase.io/jasonshobe) on keybase.
  • I have a public key ASAL-zteAVVRJIUe6QqkKIwOuc5dMdGim5IB4sXMTbcEFgo

To claim this, I am signing this object:

@jasonshobe
jasonshobe / meteor_map.R
Created November 14, 2018 22:48
Create a choropleth map of meteors per area by U.S state.
library(rgdal)
library(sp)
# Load the meteor data, and aggregate the count of meteors by state
meteors <- as.data.frame(table(read.csv("meteors.csv", header=TRUE)[, c("Place")]))
colnames(meteors) <- c("State", "Meteors")
meteors$State = with(meteors, gsub(", USA", "", State))
# U.S. State shape files from the U.S. Census Bureau
states <- readOGR("cb_2017_us_state_20m.shp")