使用rgl对角移动平面

Question

我可以沿着三个轴中的任何一个在RGL场景中移动平面(例如，参见下面的示例)，但是如何在空间中对角线移动平面(如果平面不垂直于轴，则沿垂直于平面的对角线移动)？另外，遇到边界框会导致问题吗？我不知道是否可以使用vertexControl，但我也不知道如何使用ageControl。

library(rgl)
xyz <- matrix(rnorm(300), ncol = 3)
plotid <- plot3d(xyz)
planeid <- planes3d(0, 0, 1, 0, col = "blue")
r <- c(-3,3)
widge = rglwidget() %>%
playwidget(vertexControl(values = matrix(r, 2, 6),
    vertices = 1:6, attributes = "z", objid = planeid, param = r),
    start = r[1], stop = r[2], step = 0.1, precision = 2,
    components = c("Play", "Slider", "Label"))
htmltools::save_html(widge, "Rtemporary/Example1.html")

Answer 1

这并不容易。平面存储为4个三角形(因为平面在与边界框相交时可以显示为六边形)。您需要为每个所需的值计算对角线平面与边界框的交点，然后相应地更新三角形。

将这些计算下推到Javascript中会更有意义，因此只存储平面的原始参数(a，b，c，d)，然后可以直接操作它们。也许有一天rgl会这么做。

编辑补充:实际上，rgl已经在Javascript中进行了三角测量计算，但vertexControl不知道如何要求它更改平面参数。从0.98.12版本开始(目前只在R-forge上可用，很快在Github上的镜像中，将来在CRAN上)。

您可以使用适当的a,b,c,d参数指定平面以获得所需的角度，然后使用参数values = r, vertices = 1, attributes = "offset"调用vertexControl以更改该平面的d设置。您的示例将如下所示：

library(rgl)
xyz <- matrix(rnorm(300), ncol = 3)
plotid <- plot3d(xyz)
planeid <- planes3d(1, 1, 1, 0, col = "blue")
r <- c(-3,3)
rglwidget() %>%
    playwidget(vertexControl(values = r, 
                 vertices = 1, attributes = "offset", objid = planeid, param = r),
           start = r[1], stop = r[2], step = 0.1, precision = 2,
           components = c("Play", "Slider", "Label"))

(不需要save_html之类的东西。当您打印小部件时，这会自动发生。)