R:contour3d将网格添加到3D显示

我正在使用brainR at在示例中的大脑图像上尝试contour3D，但我想在contour3D中添加一个网格

以下是一个可复制的示例：

require(brainR)
# Template from MNI152 from McGill
template <- readNIfTI(system.file("MNI152_T1_2mm_brain.nii.gz",
        package="brainR"), reorient=FALSE)
contour3d(template, level = 4500, alpha = 0.1, draw = TRUE)

require（brainR）
#来自McGill的MNI152的模板
template我不确定您想要什么，但是如果您想要在显示屏周围有一个完整的框，框中的刻度线和网格线，下面的代码应该可以做到这一点。我还更改为
alpha=1
，因为否则我
发现网格线令人困惑

require(brainR)
# Template from MNI152 from McGill
template <- readNIfTI(system.file("MNI152_T1_2mm_brain.nii.gz",
                                  package="brainR"), reorient=FALSE)
contour3d(template, level = 4500, alpha = 1, draw = TRUE)
decorate3d()
grid3d(c("x-", "x+", "y-", "y+", "z-", "z+"))

以下是使用上述代码得到的结果：


对于
三面显示器。在这个方向上它看起来是相同的，但在旋转显示器时会有所不同

require(brainR)
# Template from MNI152 from McGill
template <- readNIfTI(system.file("MNI152_T1_2mm_brain.nii.gz",
                                  package="brainR"), reorient=FALSE)
contour3d(template, level = 4500, alpha = 1, draw = TRUE)
box3d()
grid3d(c("x-", "x+", "y-", "y+", "z-", "z+"))
bbox3d(col="cyan", alpha = c(0.5, 0), shininess = 100,
       draw_front = TRUE, front = "culled")