使用するパッケージ(パッケージのインストール)
library(rgl)
データセット lm02 をdatに格納します(ファイルの読み込み)
dat <- read.csv("lm02.csv", header=T, fileEncoding = "UTF-8")
データの確認
head(dat)
![](https://y2pt.com/wp-content/uploads/2023/06/image-113.png)
年齢、BMI、FIM差のデータをdat2に取り出します
dat1 <- dat[, c("年齢", "BMI", "FIM差")]
plot3dが日本語表示に対応していないため、列名を英数字に変更します
colnames(dat1) <- c("Age", "BMI", "FIMd")
head(dat1)
![](https://y2pt.com/wp-content/uploads/2023/06/image-114.png)
パッケージ rgl の plot3d 関数で3Dのグラフを作成して、ドラッグでグラフが操作できます
rgl::plot3d(dat1, type = "h")
コメント欄 『間違い』や『分かりにくい部分』などのご意見もお寄せください