我正在使用 pca3d 函数创建一个 3D 图。为了保存它,我使用了 snapshot3d 和 snapshotPCA3d,结果相当适中(大小 53 KB)。现在我想要更好的质量和更好的分辨率(> 1 MB),有没有更好的功能可用于此目的。
rgl.open() # Open a new RGL device
par3d(windowRect = c(100, 100, 1200, 1200))
rgl.bg(color = "grey87")
pca4<-NULL
pca4<-pca3$scores[1:nrow(data_client),]
pca3d(as.matrix(pca4),components = 1:3,group=data_client[1:nrow(data_client),]$cluster,show.ellipses=TRUE,show.axes=TRUE,show.axe.titles = TRUE,axes.color = "#404040",title="PCA",
show.shapes=TRUE,show.shadows = FALSE,show.plane=FALSE,fancy=FALSE,show.group.labels = FALSE,show.centroids = FALSE,
labels.col=data_client[1:nrow(data_client),]$RColor,ellipse.ci=0.95,col=data_client[1:nrow(data_client),]$RColor,radius=1.4,shape="sphere")
rgl.viewpoint( theta = -58, phi = 20, fov = 60, zoom = 0.55,
scale = par3d("scale"), interactive = TRUE,
type = c("userviewpoint", "modelviewpoint"))
#Saving plot
snapshotPCA3d(file="snapshotPCA3d.bmp")
感谢您的建议。