scatter3D cex.clab和rgl

Question

我很努力如何增加顯示使用plot3D包中的scatter3D（）創建的繪圖的rgl設備中的顏色鍵標題的字體大小。我在下面列出了一些代碼，說明cex.clab選項影響圖形設備中的顏色鍵標題的字體大小，但不影響rgl設備。我會很感激任何關於如何增加rgl設備中的顏色鍵標題的字體大小的建議。
謝謝， 戴夫

library(plot3D); library(plot3Drgl) 
with(quakes, 
    scatter3D(x=long, y=lat, z=-depth, colvar=mag, pch=16, cex=1.5, 
    xlab="longitude", ylab="latitude", zlab="depth, km", 
    clab=c("Richter", "Magnitude"), main="Earthquakes off Fiji", 
    ticktype="detailed", theta=10, d=2, 
    colkey=list(length=0.5, width=0.5, cex.clab=1)) 
) 
plotrgl(lighting = TRUE, smooth = TRUE, cex=2) 

with(quakes, 
    scatter3D(x=long, y=lat, z=-depth, colvar=mag, pch=16, cex=1.5, 
    xlab="longitude", ylab="latitude", zlab="depth, km", 
    clab=c("Richter", "Magnitude"), main="Earthquakes off Fiji", 
    ticktype="detailed", theta=10, d=2, 
    colkey=list(length=0.5, width=0.5, cex.clab=2)) 
) 
plotrgl(lighting = TRUE, smooth = TRUE, cex=2) 

Answer 1

據我看到的，plotrgl()不能正確對待一些參數。我認爲最好是製作一張沒有標籤的圖形，並使用rgl函數（如title3d()和/或text3d()）添加它們。

這是我的例子;

library(plot3D); library(rgl); library(plot3Drgl) 

    ## example data (on my env, plotrgl(some_graph) crushes Rstudio, so I used volcano) 
volc <- reshape2::melt(volcano) 

with(volc, scatter3D(x = Var1, y = Var2, z = value, ticktype="detailed", pch=16, 
        xlab="longitude", ylab="latitude", zlab="depth, km", main="")) 
plotrgl(lighting = TRUE, smooth = TRUE, cex=2) 

    ## When graph is made, the left panel is focused 
title3d(main = "Earthquakes off Fiji", line=4, cex=2) 

    ## next3d() changes the focus into the right panel 
next3d(clear = F) 
title3d("Richter", cex = 2, line = 2) 
title3d("Magnitude", cex = 2, line = 0.8) 
    # text3d(0, 1, 1.2, "Richter", cex=2) # almost same 
    # text3d(0, 1, 1.1, "Magnitude", cex=2) 

next3d(clear = F) # if you want to refocus the left panel