When reading this question, I started to think whether it would be possible to convert colors to imitate an average greyscale printer (assuming that your screen is calibrated)?
The desaturate()
function in the `colorspace package can also be used to convert colors to their gray levels only. This collapses chroma (colorfulness) in the HCL (or polar CIELUV) representation of the colors.
plot(1:4, type = "p",
col = colorspace::desaturate(c(Rl, Rd, Cl, Cd)),
pch = 19, cex = 8, xlim = c(0,5), ylim = c(0,5))