Question

我在使用数据框中存在的RGB颜色时遇到问题。

color.table
    V1  V2  V3    
    1   Red 255,0,0
    2   Orange Red  255,69,0
    3   LimeGreen   50,205,50
    4   Green   0,128,0
    5   DarkGreen   0,100,0
    6   GreenYellow 194,225,5
    7   Yellow  255,255,0
    8   Aquamarine  102,205,170
    9   PaleTurquoise   138,145,208
    10  IndianRed   205,92,92
    11  DarkSalmon  233,150,122
    12  DarkKhaki   189,183,107
    13  Silver  128,128,128
    14  Gainsboro   192,192,192
    15  White   255,255,255

似乎我不能使用此数据帧中存在的RGB。

barplot(seq(1:15) , col=color.table$V3 )
Error in rect(y1, x1, y2, x2, ...) : 
  invalid color specification "255,0,0"

即使我尝试以十六进制值转换RGB，也有一些奇怪的东西。

rgb(color.table$V3[1], 50, m=255)
Error in rgb(color.table$V3[1], 50, m = 255) : 
  argument "blue" is missing, with no default

这在何处起作用：

> rgb(255,0,0, 50, m=255)
[1] "#FF000032"

这里有一些可疑的东西，但我不能把手指放在上面。任何建议都非常感谢。

Answer 1

您需要使用rgb函数从V3变量中提取颜色：

cols <- sapply(strsplit(as.character(color.table$V3), ","), function(x) {
  rgb(x[1], x[2], x[3], m=255)
})
cols
#  [1] "#FF0000" "#FF4500" "#32CD32" "#008000" "#006400" "#C2E105" "#FFFF00" "#66CDAA" "#8A91D0"
# [10] "#CD5C5C" "#E9967A" "#BDB76B" "#808080" "#C0C0C0" "#FFFFFF"

现在您可以将这些颜色添加为数据框中的新列，通过col参数将它们传递给绘图函数等。

R图：使用数据帧中的RGB值

1 个答案: