Nothing
gf_point(shape2 ~ shape1, data = Results, alpha = 0.4) %>%
gf_abline(intercept = 0, slope = 5/2)
gf_dhistogram( ~ (shape2 / shape1), data = Results, bins = 30) %>%
gf_vline(xintercept = 2.5)
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.