library(ggplot2)
library(distributional)
set.seed(1997)
point_data <- data.frame(xvar = c(dist_uniform(2,3),
dist_normal(3,2),
dist_exponential(3)),
yvar = c(dist_gamma(2,1),
dist_sample(x = list(rnorm(100, 5, 1))),
dist_exponential(1)))
ggplot(data = point_data) +
geom_point_sample(aes(x=xvar, y=yvar)) +
scale_x_continuous_distribution(name="Hello, I am a random variable", limits = c(-5, 10)) +
scale_y_continuous_distribution(name="I am also a random variable")
Run the code above in your browser using DataLab