rgl包 - 多维数据集中的多维数据集

Question

我正在尝试在立方体内创建一个矩形棱镜。我需要立方体的尺寸为1x1x1单位，原点为0,0,0。理想情况下，立方体内的矩形从原点开始，然后从矢量变量拉出以获得其XYZ尺寸。矩形棱镜只能具有从0到1的正值，这就是为什么我只想显示正值而不是在cube3d的所有维度中显示-1到1的默认值。原点。

有人能指出我如何使这项工作朝着正确的方向发展吗？

数据示例：

Augusta = c(0.4, 0.2, 0.8)

我目前拥有的代码（从stackoverflow中提取） -

c3d <- cube3d(color="red", alpha=0.5)  
c3d  
shade3d(c3d)  
axes3d()  
rgl.viewpoint(theta = 45, phi = 25, fov = 60, zoom = 1)  

我可以根据自己的需要调整此功能吗？如果是这样，该方法会是什么样子？如果这不是正确的功能，你会建议什么？

我发现了另一种可能的方法，但是需要不同的输入，因此不是首选的方法，here

Answer 1

我不确定我是否能理解您的问题，但也许scale3d()和translate3d()可以提供您想要的内容（请参阅：?scale3d）。

library(rgl)

c3d <- cube3d(color="red", alpha=0.5)  
c3d2 <- c3d %>% 
  translate3d(1, 1, 1) %>% 
  scale3d(0.5, 0.5, 0.5)

c3d3 <- cube3d(color = "blue") %>% 
  translate3d(1, 1, 1) %>% 
  scale3d(0.5, 0.5, 0.5) %>% 
  scale3d(0.4, 0.2, 0.8)

shade3d(c3d2)
shade3d(c3d3)
axes3d()
# title3d(xlab = "x", ylab = "y", zlab = "z")

Answer 2

  AnimatorSet decSet = new AnimatorSet();
            decSet.playTogether(
                    ObjectAnimator.ofArgb(mTextSlidetoCancel, "visibility", View.GONE, View.VISIBLE),
                    ObjectAnimator.ofArgb(mBtnMicActive, "visibility", View.GONE, View.VISIBLE),
                    ObjectAnimator.ofArgb(mChronometer, "visibility", View.GONE, View.VISIBLE));
           decSet.setDuration(125);


            AnimatorSet decSet2 = new AnimatorSet();
            decSet2.playTogether(
                    ObjectAnimator.ofArgb(mBtnAttach, "visibility", View.VISIBLE, View.GONE),
                    ObjectAnimator.ofArgb(mBtnEmoji, "visibility", View.VISIBLE, View.GONE),
                    ObjectAnimator.ofArgb(mEditTExt, "visibility", View.VISIBLE, View.GONE)
                    );
            decSet2.setDuration(125);

            AnimatorSet set = new AnimatorSet();
            set.playSequentially(decSet2,decSet);
            set.start();