knitr::opts_chunk$set( collapse = TRUE, comment = "#>" )
library(xgxr) x <- y <- NULL df <- data.frame(x = c(0, stats::rlnorm(1000, 0, 1)), y = c(0, stats::rlnorm(1000, 0, 3))) xgx_plot(data = df, ggplot2::aes(x = x, y = y)) + ggplot2::geom_point() + xgx_scale_x_log10() + xgx_scale_y_log10()
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.