3D図の作成
install.packages("scatterplot3d")
library("scatterplot3d")
trees <- data[,c("age_kc","age","pre_f1s")]
scatterplot3d(trees)
#3次元の動かない図が出力できる
install.packages("rgl")
library("rgl")
plot3d(trees$age_kc, trees$age, trees$pre_f1s)
#3次元で出力後、グリグリ動かせる
writeWebGL(width=50, height=50)
コメント
コメントを投稿