R中的可打印包如何从不包含面信息的顶点信息中创建实体3D网格

时间:2019-01-01 15:35:46

标签: r 3d plotly r-plotly

我有3D顶点坐标(vb.xlsx)和可用于人脸的人脸信息(it.xlsx)here。通过提供顶点和面信息,我设法用rgl软件包绘制了3D表面网格(请参见here)。令我惊讶的是,使用R中的plotly包,仅通过提供不需要面部信息的顶点数据,我就能获得人脸的立体3D表面网格。下面是我的R代码,用于生成曲面网格:

library(plotly)
library(xlsx)

vb <- read.xlsx("E:\\Research\\GM\\3D started\\Spatially dense\\Point cloud to mesh\\vb.xlsx", sheetIndex = 1, header = F)

Sys.setenv("plotly_username"="<MY USER NAME>")
Sys.setenv("plotly_api_key"="<MY KEY>")

face <- plot_ly(
    x = vb[,1], y = vb[,2], z = vb[,3], # Note only vertex provided
    type = "mesh3d"
)

face

所得的表面网格如下: enter image description here

我的问题是,如何在没有面部信息的情况下以图方式生成3D曲面网格?任何人都可以向我展示魔术代码,以便我可以用一些自行编写的代码在外面秘密地做同样的事情?

谢谢。

0 个答案:

没有答案