Nothing
# Transform the data as the coordinate system does
cdata <- function(plot) {
pieces <- ggplot_build(plot)
lapply(pieces$data, function(d) {
plyr::ddply(d, "PANEL", function(panel_data) {
scales <- panel_scales(pieces$panel, panel_data$PANEL[1])
details <- plot$coordinates$train(scales)
plot$coordinates$transform(panel_data, details)
})
})
}
pranges <- function(plot) {
panels <- ggplot_build(plot)$panel
x_ranges <- lapply(panels$x_scales, function(scale) scale$get_limits())
y_ranges <- lapply(panels$y_scales, function(scale) scale$get_limits())
npscales <- plot$scales$non_position_scales()
npranges <- lapply(npscales$scales$scales, function(scale) scale$get_limits())
c(list(x = x_ranges, y = y_ranges), npranges)
}
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.