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

Question

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

感谢您的建议。