powered by
fade(color, alpha = 0.5)
0.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 = fade("red", 0.5))
Run the code above in your browser using DataLab