如何在 rgl 中绘制颜色条？

Question

我在rgl 中绘制了一个网格来可视化上面的数据。即，网格具有源自将颜色图应用于其数据的颜色（每个顶点处的一个标量值）。下面是一个包含一个面的网格的最小示例：

library(rgl);
library(squash);

# create a mesh
vertices <- c( 
    -1.0, -1.0, 0, 1.0,
    1.0, -1.0, 0, 1.0,
    1.0,  1.0, 0, 1.0,
    -1.0,  1.0, 0, 1.0
)
indices <- c( 1, 2, 3, 4 )

# add a data value for each vertex
morph_data = rnorm(length(indices), mean = 3, sd = 1)

# create colors from values by applying a colormap
col = squash::cmap(morph_data, map = squash::makecmap(morph_data, colFn = squash::jet));

# plot
open3d()  
shade3d( qmesh3d(vertices, indices), col=col )

如何在 rgl 中为该图添加颜色条？

this example picture from octave.sourceforge.io 的右侧显示了我对 colorbar 的确切含义的示例。

Answer 1

您可以使用bgplot3d() 在rgl 绘图的背景中绘制任何类型的二维绘图。周围有很多不同的颜色条实现；请参阅Colorbar from custom colorRampPalette 进行讨论。该线程中的最后一篇文章是在 2014 年，因此可能会有更新的解决方案。

例如，使用fields::image.plot 函数，您可以将其放在绘图之后：

bgplot3d(fields::image.plot(legend.only = TRUE, zlim = range(morph_data), col = col) )

这种方法的一个已记录的缺点是窗口不能很好地调整大小；您应该先设置窗口大小，然后添加颜色栏。如果您确实使用image.plot，您还需要处理您对col 的定义以显示超过4 种颜色。