require(ggplot2)
## Loading required package: ggplot2
require(ggmap)
## Loading required package: ggmap
## Google Maps API Terms of Service: http://developers.google.com/maps/terms.
## Please cite ggmap if you use it: see citation("ggmap") for details.
eq <- read.csv("all_month_9_16_2017.csv")
## subset to Washington, Oregon, California, Idaho, Utah
w.sub <- subset(eq, eq$longitude >= -127 & eq$longitude <= -110.
& eq$latitude >= 36.16994 & eq$latitude <= 48.75107)
w.gt2 <- subset(w.sub, w.sub$mag >=2)
qmplot( longitude, latitude, data=w.gt2,
color=mag, size=mag, darken = .1, maptype='terrain')
## Using zoom = 6...
## Source : http://tile.stamen.com/terrain/6/9/21.png
## Source : http://tile.stamen.com/terrain/6/10/21.png
## Source : http://tile.stamen.com/terrain/6/11/21.png
## Source : http://tile.stamen.com/terrain/6/12/21.png
## Source : http://tile.stamen.com/terrain/6/9/22.png
## Source : http://tile.stamen.com/terrain/6/10/22.png
## Source : http://tile.stamen.com/terrain/6/11/22.png
## Source : http://tile.stamen.com/terrain/6/12/22.png
## Source : http://tile.stamen.com/terrain/6/9/23.png
## Source : http://tile.stamen.com/terrain/6/10/23.png
## Source : http://tile.stamen.com/terrain/6/11/23.png
## Source : http://tile.stamen.com/terrain/6/12/23.png
## Source : http://tile.stamen.com/terrain/6/9/24.png
## Source : http://tile.stamen.com/terrain/6/10/24.png
## Source : http://tile.stamen.com/terrain/6/11/24.png
## Source : http://tile.stamen.com/terrain/6/12/24.png
## Source : http://tile.stamen.com/terrain/6/9/25.png
## Source : http://tile.stamen.com/terrain/6/10/25.png
## Source : http://tile.stamen.com/terrain/6/11/25.png
## Source : http://tile.stamen.com/terrain/6/12/25.png
