getColor <- function(quakes) { sapply(quakes$mag, function(mag) { if(mag <= 4) { "green" } else if(mag <= 5) { "orange" } else { "red" } }) }
Add the following code to your website.
REMOVE THIS Copy to clipboard
For more information on customizing the embed code, read Embedding Snippets.