plot3d - 如何更改框颜色和删除轴刻度答案

【问题标题】：plot3d - how to change box color and remove axis ticksplot3d - 如何更改框颜色和删除轴刻度
【发布时间】：2015-06-05 18:03:22
【问题描述】：

我正在尝试对默认的 plot3d 对象进行一些视觉修改。具体来说，我想将灯箱颜色作为背景（仅在框中，而不是整个调色板中）并删除轴刻度线（轴上的 x、y、z 值会分散注意力）。我花了无数个小时在谷歌上搜索要更改的选项，但我一生都无法弄清楚这一点。任何帮助将不胜感激。

我将代码缩减为以下内容，以便您重新生成它。

library(rgl)

xvar <- c(0.23158792, 0.09686823, -0.58937138, -1.04380419,0.52169760, 1.15218492, 1.36873947,
      -0.91592078, -0.66918513, -0.15279666)
yvar <- c(-1.06993703, 1.51913070 , 1.45069457, -0.78186861, -0.05373430, 0.45442899, 0.04408369,
      -0.31418560, -0.20741901, -1.04119340)
zvar <- c(0.39326652, 0.72391174, -0.07690784, 0.37914638, 0.43709349, -1.28395765, -1.31900029,
      0.52676516, 0.37331202, -0.15362952)
colgroup <- c(2,4,4,2,2,3,3,2,2,2)
brands <- c('a','b','c','d','e','f','g','h','i','j')

plot3d(xvar, yvar, zvar, bbox=TRUE,
   type="s", col=colgroup, 
   size=0.05, alpha=0.50, radius=0.2,
   xlab="Cost Leader", ylab="Performance Leader", zlab="Fashion Leader")
text3d(x = xvar, y = yvar, z = zvar
   text = brands, adj=c(2.5,2.5), cex=0.7)

问题：

如何在 3D-box 中添加浅色阴影使其不是白色
如何删除轴上的 x、y、z 刻度线及其值，以使绘图不那么分散注意力。

提前致谢！

问候，悉达多

【问题讨论】：

标签： r rgl

【解决方案1】：

您可以使用rgl.bbox 或bbox3d 函数手动添加边界框：

plot3d(xvar, yvar, zvar, type = 's', col = colgroup, size = 0.05, alpha = 0.50, 
       radius = 0.2, xlab = 'Cost Leader', ylab = 'Performance Leader', 
       zlab = 'Fashion Leader', axes = FALSE)
rgl.bbox(xlen = 0, ylen = 0, zlen = 0, color = c('grey100'))
text3d(x = xvar, y = yvar, z = zvar, text = brands, adj = c(2.5,2.5), cex = 0.7)

【讨论】：

谢谢，如何选择性地隐藏一个轴刻度？就像 z 轴一样？
@JosyulaKrishna 您应该能够使用 axes3d 函数和适当的 edge 参数来实现此目的。您可以在其帮助页面上查看详细信息。