※ 引述《tai34 (tai)》之銘言：
: 程式諮詢(我想用R 做某件事情，但是我不知道要怎麼用R 寫出來)
: [軟體熟悉度]:
: 入門(寫過其他程式，只是對語法不熟悉)
: [問題敘述]:
: 各位先進好:
: 小弟我用pca分析我的資料，想用PC1,PC2,PC3畫3D散佈圖之後做進一步的分析。
: 假設資料如下:
: w PC1 PC2 PC3
: 1 2 3 7
: 2 5 4 8
: 3 6 9 10
: 指令如下:
: scatterplot3d(PC1,PC2,PC3, pch=16,
: type="h", bio=par("bio"), bg=par("bg"), main="3D Scatterplot")
: 3D散佈圖畫出來了，但是我想要把散佈立體圖上每一個點加上w做標記，
: 請問我的指令要補充甚麼?
: 謝謝
小弟在搜尋一下午找到答案，所以來自問自答一下。
library(scatterplot3d)
with(pca, {
s3d <- scatterplot3d(PCA1, PC2, PC3, # x y and z axis
color="blue", pch=19, # filled blue circles
type="h", # vertical lines to the x-yplane
main="3-D Scatterplot Example 3",
s3d.coords <- s3d$xyz.convert(PC1, PC2, PC3)
# convert 3D coords to 2D projection
text(s3d.coords$x, s3d.coords$y, # x and y coordinates
labels=row.names(pca), # text to plot
cex=.5, pos=4) # shrink text 50% and place to right of points)
})
順便提供網址，如果有人需要可以參考一下。
http://ppt.cc/FoK~