scratch/scratchwork.R

In delabj/genArt:

library(tidyverse)
x <- rep(seq(1, 10, .01), each = 10)
y0 <- x
y1 <- sin(x)
y2 <- abs(y1)
y3 <- rep(1)+ sign(runif(length(x), -1, 1))* jitter(x) * 1/y0


df <- data.frame(
  x,
  y0,
  y1,
  y2,
  y3
)



df %>%
  ggplot()+
  geom_point(aes(y=x, y3), color = "red")