Привлекательный 3D участок в R

Question

Я пишу это предложение и потребуется 3D сюжет что-то вроде этого:

но предпочтительно более привлекательным. Мне нужен размер каждой точки, чтобы отразить обилие вида и контур объема, созданного путем соединения точек.

Образец данных:

input<-data.frame(
label=c("sp1","sp2","sp3","sp4"), 
trait_x=c(6,6,6,1), 
trait_y=c(7,7,7,1), 
trait_z=c(8,8,8,1), 
point_size=c(6,7,8,1) 
) 
input 
    label trait_x trait_y trait_z point_size 
1 sp1  6  7  8  6 
2 sp2  6  7  8  7 
3 sp3  6  7  8  8 
4 sp4  1  1  1  1 

Любое предложение о том, как сделать такой график более привлекательным (возможно, в том числе сетки я не хочу никаких цифр на осях однако?)

я играл вокруг с scatterplot3d, но не печатает все мои очки, и я лично считаю, что куб имеет странный взгляд на него ... как это не совсем точно ...

library(scatterplot3d) 
x<-input$trait_x 
y<-input$trait_y 
z<-input$trait_z 
scatterplot3d(x,y,z,xlim=c(0,10),ylim=c(0,10),zlim=c(0,10)) 

Answer 1

Это должно заставить вас начать использовать пакет rgl. Примечание. При повторном чтении я вижу, что я использую ваши xyz-системы немного иначе, чем вы, но концепция такая же.

input<-data.frame(# I adjusted the values for better appearance in demo 
label=c("sp1","sp2","sp3","sp4"), 
trait_x=c(6,7,11,1), 
trait_y=c(10,7,9,1), 
trait_z=c(4,7,6,1), 
point_size=c(6,7,8,1) 
) 
names(input) <- c("name", "x", "y", "z", "radius") 
input$radius <- input$radius*0.2 

require("rgl") 

spheres3d(input[,2:4], radius = input[,5], col = c("red", "green", "blue", "orange"), alpha = 0.5) 
axes3d(box = TRUE) 
title3d(xlab = "x_trait", ylab = "y_trait", zlab = "z_trait") 
text3d(input[1,2:4], texts = "species X") 
# next line is clunky but you can do it more elegantly 
segs <- rbind(input[1:2,2:4], input[2:3,2:4], input[3:4,2:4], input[c(4,1),2:4]) 
segments3d(segs) 

Теперь вы можете вращать диаграмму в интерактивном режиме, а затем использовать rgl.snapshot, чтобы получить твердую копию (с использованием сглаживать аргументов в spheres3d улучшит схему).