使用するパッケージ（パッケージのインストール）
library(rgl)
データセット lm02 をdatに格納します（ファイルの読み込み）
データの確認
head(dat)
必要な列のみを抽出して列名をローマ字に変更
#データの取り出し
dat1 <- dat[, c("BMI","PT時間","FIM差")]
#列名の変更
colnames(dat1) <- c("BMI", "TIME", "FIM")
#先頭のみ表示
head(dat1)
3Dグラフを作成してドラッグで操作可能になります
rgl::plot3d(dat1, type = "h")
ダメ出し 間違い、分かりにくい部分などのご意見をお待ちします