r - 3d 三元散点图

Question

我希望能够创建一个由四个变量组成的图。第四个变量只是 1.0 减去前三个。

library(DirichletReg)

#remove(list=ls())

set.seed(1)
A<-runif(100,0,0.25)
B<-runif(100,0,0.25)
C<-runif(100,0,0.25)
D<-(1.0-(A+B+C))
POINT<-c(rep(1,20),rep(2,20),rep(3,20),rep(4,20),rep(5,20))
df<-data.frame(cbind(A,B,C,D,POINT))

我可以生成一些包含三个变量的高质量图，但是会进行一些调整以确保子组合总和为 1.0。这并不理想并且会扭曲数据。另外我想自定义每个轴的颜色。

AL<-DR_data(df[, c("A","B","C")])
plot(AL, 
    dim.labels = c("Compound A","Compound B","Compound C"),
    pch = df$POINT,
    col = df$POINT)

但是通过简单地提供完整列表，我可以生成一个交互式绘图，但它缺少所需的元素：

1) 符号的颜色和形状都相同
2) 没有轴网格（但这些在 3d 图中可能会令人困惑？）
3) 没有轴标签

AL<-DR_data(df[, c("A","B","C","D")])
plot(AL, 
     dim.labels = c("Compound A","Compound B","Compound C","Compound D"),
     pch = df$POINT,
     col = df$POINT)

有谁知道产生更类似于 2d（使用 3 个变量）图的 3d（使用 4 个变量）的替代函数？谢谢。

编辑：我真的没有资格采用一个包。)o：有谁知道替代软件包/软件可以实现接近我的愿望？CoDaPack 软件很接近，但不是很可配置。http://ima.udg.edu/codapack/