library(ggplot2)
df <- data.frame(
x = rep(1:10, 3),
y = c(1:10, (1:10) + 4, (1:10) + 8),
g = rep(c("a", "b", "c"), each = 10)
)
ggplot(df, aes(x, y, group = g, medium = g, colour = g)) +
geom_sketch_line(linewidth = 1, seed = 1L) +
scale_medium_discrete() +
theme_sketch()
Run the code above in your browser using DataLab