Nothing
summ <- summary_plot_dat()
dat <- cbind(summ, selected = rep(FALSE, nrow(summary_plot_dat())))
dat[as.numeric(summary_point[["selected"]]), "selected"] <- TRUE
p <- ggplot(dat, aes(x = experiment, y = lambda, shape = selected)) +
geom_point(size = 4, alpha = 0.6, pch = 2, colour = "blue") + cool_theme +
geom_boxplot(outlier.colour = NA, fill = adjustcolor("lightgrey", alpha.f = 0.25), shape = 15) +
ggtitle("Experiment boxplot") +
scale_x_discrete("Experiment name") +
scale_y_continuous(expression(lambda)) +
scale_shape_manual(guide = FALSE, values = c(15, 18))
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.