R 以高分辨率保存 pca 3d 图

如何解决R 以高分辨率保存 pca 3d 图

我正在使用 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),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")

感谢您的建议。