r - 导出 R 对象以进行 3D 打印

Question

如果我在 R 中有一个数据集，那么导出它的好方法是什么，以便我可以将它提供给像 Shapeways 这样的服务进行 3D 打印？

我没有任何“真正的”CAD 软件，但我以前使用过 Google Sketchup。

在我的情况下，对象可以用两个曲面图来描述，如下所示:

x <- y <- seq(0,1,by=0.01)
persp(x, y, outer(x, y, function(x,y) (x+y)^2))
persp(x, y, outer(x, y, function(x,y) rep(0,length(x))), zlim=c(-1,1))

...我想作为一个要打印的对象一起出现。有任何想法吗？

Answer 1

Shapeways 说它可以从 MeshLab 获取输出:http://sourceforge.net/projects/meshlab/files/meshlab

MeshLab 是一个开源的免费啤酒项目，能够使用其 .asc 导入此文件。格式选项:

dat <- data.frame(x=x,   # will be recycled 101 times
                  y=rep(y, each=101),
                  z=as.vector(outer(x, y, function(x,y) (x+y)^2)))

write.table(dat, file="out.asc", row.names=FALSE, col.names=FALSE)

我可能应该进行一次搜救；

library(sos)
findFn("3d printing")

.... 确实提出了 r2stl唯一功能同名的包。它还发现了其他凸包函数，这些函数可能对其他想要从数据构建其他 3D 形状的人有用。