使用R中的plotly在3D图中绘制吊线。

Question

我正在尝试使用plotly在3D图上从点到xy轴绘制垂直线。 对于3D图形的可读性而言，这似乎很重要，否则3D图形的可读性会很好，但是经过大量搜索之后，我找不到在任何地方执行此操作的方法。

例如，当使用scatterplot3d（）时，可以像下面的示例一样简单地添加行type =“ h”来完成：

library(scatterplot3d)
with(mtcars, {
  scatterplot3d(disp, wt, mpg,           # x y and z axis
                color="blue", pch=19,    # filled blue circles
                type="h",                # lines to the horizontal plane
                main="3-D Scatterplot Example",
                xlab="Displacement (cu. in.)",
                ylab="Weight (lb/1000)",
                zlab="Miles/(US) Gallon")
})

但是，与scatterplot3d（）相比，plotly看起来好得多，并且用途更广。...有什么建议吗？ 谢谢！

Answer 1

万一有人有兴趣，我会在密谋社区论坛上从Carson Sievert得到答复。 在对函数group2NA（）进行编程（从https://github.com/ropensci/plotly/blob/master/R/group2NA.R复制并粘贴）之后，以下操作将完成此工作，尽管有些笨拙：

library(plotly)

mtcars$id <- seq_len(nrow(mtcars))
ms <- replicate(2, mtcars, simplify = F)
ms[[2]]$mpg <- 0
m <- group2NA(dplyr::bind_rows(ms), "id")

plot_ly(color = I("black"), showlegend = F) %>%
  add_markers(data = mtcars, x = ~disp, y = ~wt, z = ~mpg) %>%
  add_paths(data = m, x = ~disp, y = ~wt, z = ~mpg)