Question

我有一个RGB颜色三角形，这要归功于Edward回答here并进行了微小的修改：

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相容。我可以在之前进行数据转换吗？

感谢您的帮助

Answer 1

我发现triangle.plot来自ade4的{{1}}已经过时了：

我的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

使用RGB颜色三角形和ggtern（）来发现颜色

1 个答案: