```r p3 <- ggplot(quakes, aes(x = long, y = lat)) + geom_point(aes(colour = depth, size = mag), alpha = 0.25) + coord_map() ggplotly(p3) ```