3D троичный участок рассеяния - PullRequest
1 голос
/ 23 июня 2019

Я хотел бы иметь возможность создать график из четырех переменных, которые являются композициями. Четвертая переменная просто 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) нет осевых сеток (но они могут сбивать с толку на трехмерном графике?)
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)

Кто-нибудь знает об альтернативной функции, которая производит 3d (с использованием 4 переменных), который больше похож на график 2d (с использованием 3 переменных)? Спасибо.

РЕДАКТИРОВАТЬ: Я не совсем подходит для принятия пакета. ) o: Кто-нибудь знает альтернативный пакет / программное обеспечение для достижения чего-то близкого к моему желанию? Программное обеспечение CoDaPack близко, но не очень настраиваемо. http://ima.udg.edu/codapack/

3D Ternary plot produced by CoDA

...