openintro (version 1.1)

fadeColor: Fade colors

Description

Fade colors so they are transparent.

Usage

fadeColor(col, fade = "FF")

Arguments

col

An integer, color name, or RGB hexadecimal.

fade

The amount to fade col. This value should be a character in hexadecimal from '00' to 'FF'. The smaller the value, the greater the fading.

References

http://research.stowers-institute.org/efg/R/Color/Chart/

See Also

dotPlot

Examples

data(marioKart)
par(mfrow=1:2)

#===> color numbers <===#
dotPlot(marioKart$totalPr[marioKart$cond == 'new'], ylim=c(0,3), xlim=c(25, 80), pch=20, col=2, cex=2, main='using regular colors')
dotPlot(marioKart$totalPr[marioKart$cond == 'used'], at=2, add=TRUE, col=4, pch=20, cex=2)
dotPlot(marioKart$totalPr[marioKart$cond == 'new'], ylim=c(0,3), xlim=c(25, 80), col=fadeColor(2, '22'), pch=20, cex=2, main='fading the colors first')
dotPlot(marioKart$totalPr[marioKart$cond == 'used'], at=2, add=TRUE, col=fadeColor(4, '22'), pch=20, cex=2)

#===> color names <===#
dotPlot(marioKart$totalPr[marioKart$cond == 'new'], ylim=c(0,3), xlim=c(25, 80), pch=20, col='red', cex=2, main='using regular colors')
dotPlot(marioKart$totalPr[marioKart$cond == 'used'], at=2, add=TRUE, col='blue', pch=20, cex=2)
dotPlot(marioKart$totalPr[marioKart$cond == 'new'], ylim=c(0,3), xlim=c(25, 80), col=fadeColor('red', '22'), pch=20, cex=2, main='fading the colors first')
dotPlot(marioKart$totalPr[marioKart$cond == 'used'], at=2, add=TRUE, col=fadeColor('blue', '22'), pch=20, cex=2)

#===> hexadecimal <===#
dotPlot(marioKart$totalPr[marioKart$cond == 'new'], ylim=c(0,3), xlim=c(25, 80), pch=20, col='#FF0000', cex=2, main='using regular colors')
dotPlot(marioKart$totalPr[marioKart$cond == 'used'], at=2, add=TRUE, col='#0000FF', pch=20, cex=2)
dotPlot(marioKart$totalPr[marioKart$cond == 'new'], ylim=c(0,3), xlim=c(25, 80), col=fadeColor('#FF0000', '22'), pch=20, cex=2, main='fading the colors first')
dotPlot(marioKart$totalPr[marioKart$cond == 'used'], at=2, add=TRUE, col=fadeColor('#0000FF', '22'), pch=20, cex=2)

#===> alternative: rgb function <===#
dotPlot(marioKart$totalPr[marioKart$cond == 'new'], ylim=c(0,3), xlim=c(25, 80), pch=20, col=rgb(1,0,0), cex=2, main='using regular colors')
dotPlot(marioKart$totalPr[marioKart$cond == 'used'], at=2, add=TRUE, col=rgb(0,0,1), pch=20, cex=2)
dotPlot(marioKart$totalPr[marioKart$cond == 'new'], ylim=c(0,3), xlim=c(25, 80), col=rgb(1,0,0,1/8), pch=20, cex=2, main='fading the colors first')
dotPlot(marioKart$totalPr[marioKart$cond == 'used'], at=2, add=TRUE, col=rgb(0,0,1,1/8), pch=20, cex=2)