code to make an image with nice texture in ggplot

texture.R

library(ggplot2)
library(reshape2)

n <- 7000
theMean <- 0
theSD <- 5
A <- rbinom(n,1,c(.5,.5)) + rnorm(n,theMean,theSD)
B <- rbinom(n,1,c(.5,.5)) + rnorm(n,theMean,theSD)
C <- rbinom(n,1,c(.5,.5)) + rnorm(n,theMean,theSD)
modelID <- 1:n
dataFrame <- melt(data.frame(A,B,C,modelID),id="modelID")

ggplot(data=dataFrame, aes(x=variable,y=value,group=modelID)) + geom_path(size=.5,alpha=.02) + theme_classic(20)