creates 3D shapes from 3-dimensional data that can be saved as triangular meshes
data2platonic(
datamatrix,
shape = Rvcg::vcgSphere(),
col = "red",
scale = FALSE,
scalefactor = 1
)
returns all shapes merged into a single mesh
k x 3 data matrix
a 3D shape
color value
logical: whether to scale the data to unit sd.
scale the resulting shapes.
mymesh <- data2platonic(iris[iris$Species=="setosa",1:3],scalefactor=0.1)
mymesh <- mergeMeshes(mymesh,data2platonic(iris[iris$Species=="versicolor",1:3],
shape=Rvcg::vcgIcosahedron(),scalefactor=0.1,col="green"))
mymesh <- mergeMeshes(mymesh,data2platonic(iris[iris$Species=="virginica",1:3],
shape=Rvcg::vcgTetrahedron(),scalefactor=0.1,col="blue"))
if (FALSE) {
rgl::shade3d(mymesh)
## save to disk
Rvcg::vcgPlyWrite(mymesh,filename="3D_Data.ply")
}
Run the code above in your browser using DataLab