powered by
add.alpha(color, alpha = .5)
# setup data x <- seq(0, 50, 1) supply <- x * -2 + 100 demand <- x * 2 # POINT SIZE AND TRANSPARENCY plot(supply, demand, pch = 19, cex = 3, col = add.alpha ("red", 0.5))
Run the code above in your browser using DataLab