##
points <- 10^4
x <- rnorm(points/2)
x <- c(x,x+2.5)
x <- sign(x)*abs(x)^1.3
y <- x + rnorm(points,sd=0.8)
z <- y*2
mat <- matrix(c(x,y,z), ncol=3)
colnames(mat) <- c("A", "B1", "B2")
plotRatioScatter(mat, c(TRUE, FALSE, FALSE), c(FALSE, TRUE, TRUE), density=TRUE)
Run the code above in your browser using DataLab