library(plotly) library(sf) nc <- sf::st_read(system.file("shape/nc.shp", package = "sf"), quiet = TRUE) p <- ggplot(nc) + geom_sf(aes(fill = AREA)) ggplotly(p) # If not supplied, coord_sf() will take the CRS from the first layer # and automatically transform all other layers to use that CRS. This # ensures that all data will correctly line up nc_3857 <- sf::st_transform(nc, "+init=epsg:3857") p2 <- ggplot() + geom_sf(data = nc) + geom_sf(data = nc_3857, colour = "red", fill = NA) ggplotly(p2) # Unfortunately if you plot other types of feature you'll need to use # show.legend to tell ggplot2 what type of legend to use nc_3857$mid <- sf::st_centroid(nc_3857$geometry) p3 <- ggplot(nc_3857) + geom_sf(colour = "white") + geom_sf(aes(geometry = mid, size = AREA), show.legend = "point") ggplotly(p3) # You can also use layers with x and y aesthetics: these are # assumed to already be in the common CRS. p4 <- ggplot(nc) + geom_sf() + annotate("point", x = -80, y = 35, colour = "red", size = 4) ggplotly(p4)
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.