使用带有 ggtern() 的 RGB 颜色三角形来识别颜色答案

【问题标题】：Use RGB color triangle with ggtern() to spot a color使用带有 ggtern() 的 RGB 颜色三角形来识别颜色
【发布时间】：2023-11-22 22:08:02
【问题描述】：

感谢 Edward 回答 here 并稍作修改，我有一个 RGB 颜色三角形：

plot(NA,NA,xlim=c(0,1),ylim=c(0,1),asp=1,bty="n",axes=F,xlab="",ylab="")
segments(0,0,0.5,sqrt(3)/2)
segments(0.5,sqrt(3)/2,1,0)
segments(1,0,0,0)
# sm - how smooth the plot is. Higher values will plot very slowly
sm <- 500
for (y in 1:(sm*sqrt(3)/2)/sm){
  for (x in (y*sm/sqrt(3)):(sm-y*sm/sqrt(3))/sm){
## distance from base line:
d.red = y
## distance from line y = sqrt(3) * x:
d.green = abs(sqrt(3) * x - y) / sqrt(3 + 1)
## distance from line y = - sqrt(3) * x + sqrt(3):
d.blue = abs(- sqrt(3) * x - y + sqrt(3)) / sqrt(3 + 1)
points(x, y, col=rgb(d.red, d.green, d.blue), pch=19)
  }
}

我也有一个 RGB 代码颜色（例如 (232, 103, 101)），我会在这些坐标上的这个 RGB 颜色三角形上画一个大黑点。

这就是为什么我想使用ggtern()

# install.packages("ggtern")
library(ggtern)
df = data.frame(x=232, y=103, z=101)
breaks = seq(0,1,by=0.2)
#breaks = c(0,255)
ggtern(data = df, aes(x, y, z)) + 
geom_point(color = black) +  
# I use 255 as the triangle limit, because the RGB code is an [0, 255] interval.
limit_tern(breaks=breaks,labels=255*breaks) +
scale_color_gradient(rgb(d.red, d.green, d.blue))

所以，我的黑点不在好坐标上，我的 RGB 三角形颜色不在 ggtern 的背景上。我对 ggtern 还不太适应。我可以先做一个数据转换吗？

感谢您的帮助

【问题讨论】：

标签： r colors rgb ggtern

【解决方案1】：

我从ade4 包中找到了triangle.plot 的替代方法：

我的 RGB 数据位于这样的对象 (RGB0) 中：

head(RGB0)
      R  G  B
[1,] 87 92 69
[2,] 87 92 69
[3,] 88 93 70
[4,] 88 93 70
[5,] 89 94 71
[6,] 89 94 71
...

还有代码：

library(ade4)

data2= as.data.frame(RGB0) 
head(RGB0)  

data2$R <- RGB0[,1]/255     
data2$G <- RGB0[,2]/255
data2$B <- RGB0[,3]/255
head(data2)


triangle.plot <- triangle.plot(data2, clab = 0, cpoi = 2, addmean = F, show = FALSE, addaxes = F, scale = F)
points(triangle.plot, pch = 19, cex = 1, col = nacreHEX)

结果如下： triangle.plot result

【讨论】：