Test <- function(col) {
plot(1:7,
col = COL[1:7], pch = 19, cex = 5,
xlim = c(0, 8),
ylim = c(0, 9)
)
BG(col)
points(2:8, col = COL[1:7], pch = 19, cex = 5)
text(2, 6, "Correct Color")
text(6, 2, "Affected Color")
}
# Works well since black color almost fully transparent
Test(COL[5, 9])
# Works less well since transparency isn't as significant
Test(COL[5, 6])
# Pretty ugly due to overlay
Test(COL[5, 3])
# Basically useless due to heavy color gradient
Test(COL[4, 2])
Run the code above in your browser using DataLab