codigo2 | graficos3d

#Librerías necesarias

install.packages("rgl")

install.packages("magick")

#Datos

biom<-read.table("http://ares.inf.um.es/00Rteam/datos/biom2003.dat")

#Codigo

library("rgl")
library("magick")

plot3d( biom$Pie, biom$Brazos, biom$Caderas, col = biom$Sexo, type = "s", radius = 1.0)

#Giro Automatico

play3d( spin3d( axis = c(0, 0, 1), rpm = 7), duration = 100 )

# O Generar Gif

movie3d( spin3d( axis = c(0, 0, 1), rpm = 7),
duration = 10, dir = getwd(),
type = "gif", clean = TRUE )

###################################################
install.packages("rgl")
install.packages("magick")
library("rgl")
library("magick")
biom<-read.table("http://ares.inf.um.es/00Rteam/datos/biom2003.dat")
plot3d( biom$Pie, biom$Brazos, biom$Caderas, col = biom$Sexo, type = "s", radius = 1.0)
play3d( spin3d( axis = c(0, 0, 1), rpm = 7), duration = 100 )
###################################################