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