set.seed(2)
u <- rnorm(n=100,mean=-2,sd=1)
v <- rnorm(n=100,mean=2,sd=2)

COL <- c(rgb(255,0,255,55,max=255),
         rgb(99,99,99,99,max=255))

hist(u)

hist(v)

set.seed(2)
u <- rnorm(n=100,mean=-2,sd=1)
v <- rnorm(n=100,mean=2,sd=2)

COL <- c(rgb(255,0,255,55,max=255),
         rgb(99,99,99,99,max=255))

hist(u, breaks = 2)

hist(v, breaks = 2)