Skip to content

Instantly share code, notes, and snippets.

@hrbrmstr

hrbrmstr/ufos.r

Last active December 4, 2016 02:53
Show Gist options
  • Save hrbrmstr/6e9cbfdffcce7b3b0e5d5fcf373660f5 to your computer and use it in GitHub Desktop.
Save hrbrmstr/6e9cbfdffcce7b3b0e5d5fcf373660f5 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
ufos.r
library(tidyverse)
ufos <- read_csv("~/Data/scrubbed.csv")
filter(ufos, country=="us" & (!(state %in% c("ak", "hi", "pr")))) %>%
ggplot(aes(longitude, latitude)) +
geom_jitter(alpha=1/20, size=0.15, color="#ffeda0") +
coord_map("albers", lat0=30, lat1=40) +
ggthemes::theme_map() +
theme(panel.background=element_rect(fill="#2b2b2b"))
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment