r - 给定颜色的透明等效项

Question

我已经遇到过几次这样的情况，所以这里是:我正在制作一些曲线图，其中包含给定调整参数的参数估计值的曲线。

通常，我还会为每个估计值提供 SD，因此我可以在每个估计值周围显示误差线。

但是，我不喜欢误差线，并且更喜欢它的一些平滑版本。这本身没有问题(即我知道如何做到这一点)。然而，我的绘图包含几条类似的曲线，每条曲线都有自己的颜色。因此，我想将“平滑误差区域”添加到每条曲线中，其颜色与曲线本身的颜色相匹配。当然，我希望做得有点透明，这样我仍然可以通过“错误区域”看到其他曲线。

所以，我的问题是:给定一个颜色(由数字、名称或 RGB 值指定——注意前两个会带来额外的问题，但这种情况经常发生，因为基本绘图函数需要这些作为有效的颜色值)，我怎样才能找到具有相同 rgb 但不同(给定)alpha 级别(透明度)的匹配颜色。我想要一个像这样的函数:

makeTransparent<-function(someColor, alpha=100)
{
  newColor<-someColor + alpha #I wish
  return(newColor)
}

这应该适用于以下情况:

makeTransparent(2)
makeTransparent("red")
makeTransparent(rgb(0,0,1))

编辑 当我错过一些明显的东西时，我讨厌它，但 @themel 给我指出了它(再次感谢)。这是一个完整的解决方案(注意:矢量化工作，因此您可以传递多种颜色；但目前仅支持一种 alpha):

#note: always pass alpha on the 0-255 scale
makeTransparent<-function(someColor, alpha=100)
{
  newColor<-col2rgb(someColor)
  apply(newColor, 2, function(curcoldata){rgb(red=curcoldata[1], green=curcoldata[2],
    blue=curcoldata[3],alpha=alpha, maxColorValue=255)})
}

Answer 1

R 的基本安装附带的 grDevices 包中有一个函数 adjustcolor，在您的情况下，其工作原理如下:

    adjustcolor( "red", alpha.f = 0.2)