在 R 中创建具有与绘图相同的 RGB 颜色值的图例？答案

【问题标题】：Create legend in R with identical RGB color values as plot?在 R 中创建具有与绘图相同的 RGB 颜色值的图例？
【发布时间】：2011-10-30 21:48:52
【问题描述】：

我在 R 中创建了一个带有特定 RGB 颜色值的简单散点图，如下所示：

plot(shuffled, p_val, pch=19, col="black", xlim=c(0,100), ylim=c(0,1))
points(ri, p_val, pch=19, col=rgb(96,123,139, 50, maxColorValue=255), 
       xlim=c(0,100), ylim=c(0,1))
points(somo, p_val, pch=19, col=rgb(225,64,5, 50, maxColorValue=255), 
       xlim=c(0,100), ylim=c(0,1))

我想在上面的代码中使用相同的颜色值来生成一个图形图例。我使用的代码看起来像这样，但我似乎无法弄清楚如何匹配图形点的颜色。

legend("topright", c("Shuffled", "Riffled", "Somosome"), cex=1.0, bty="n", 
       c("black",col=rgb(96,123,139, 50, maxColorValue=255),col=rgb(225,64,5, 50, maxColorValue=255))

有人可以帮忙吗？我的传说有什么问题？谢谢！

【问题讨论】：

不是一个可重复的示例，因为我们没有您的 shuffled、ri、somo 和 p_val 数据项。通过提供我们可以直接剪切和粘贴的代码，让帮助者的生活更轻松。
你能具体说一下输出有什么问题吗？另外，我认为您的legend 调用有一些拼写错误：可能缺少)，您可能想要标记整个最后一个参数col = 。

标签： r legend

【解决方案1】：

这对我有用：

plot(1:3,
    col=c("black",rgb(96,123,139, 50, maxColorValue=255),
               rgb(225,64,5, 50,maxColorValue=255)),pch=19)

legend("topright", c("Shuffled", "Riffled", "Somosome"), cex=1.0, bty="n",
   col=c("black",rgb(96,123,139, 50, maxColorValue=255),
      rgb(225,64,5, 50, maxColorValue=255)),pch=19)

请注意，您需要指定一个 col= 向量，即标签的大小，并且您还必须在其中有一个 pch=。或者，您可以使用 fill=[vector of colours] 来绘制填充框。

【讨论】：

谢谢！我从最后省略了pch=19 参数，这就是我认为的问题所在。

【解决方案2】：

问题是您将 R 颜色关键字“黑色”与十六进制颜色键连接起来。这样的事情应该可以工作：

colvec <- rgb(rbind(t(col2rgb("black")), ## this is obviously just 0, 0, 0
                    c(96,123,139),
                    c(225,64,5)),
              alpha=50,max=255)

plot(shuffled, p_val, pch=19, col=colvec[1], xlim=c(0,100), ylim=c(0,1))
points(ri, p_val, pch=19, col=colvec[2], 
       xlim=c(0,100), ylim=c(0,1))
points(somo, p_val, pch=19, col=colvec[3], 
       xlim=c(0,100), ylim=c(0,1))
legend("topright", c("Shuffled", "Riffled", "Somosome"), cex=1.0, bty="n",
       col=colvec)

【讨论】：