R 中的 car::scatter3d - 更好地标记轴

Question

我正在使用 scatter3d，3 个轴只有两个端点值。如何在整个轴上获得标签，就像普通的plot()函数一样？

Answer 1

那好吧。我把它当作一个挑战。

显然您需要：

require(rgl)
require(car)
require(mgcv) # for the example

复制 car:::scatter3d.default 代码并将其粘贴回来，并将其分配给 scatter3d.default。

在 scatter3d.default 代码的早期添加这些行：

 showLabels3d <- car:::showLabels3d  
 nice <- car:::nice  
  # since you will be losing their connection to the unexposed fns in car

然后在第二个 if(axis.scales){ ...} 后面的代码块中，替换以下代码：

 if (axis.scales) {
   x.labels <-  seq(lab.min.x, lab.max.x, 
                       by=diff(range(lab.min.x, lab.max.x))/4)
   x.at <- seq(min.x, max.x, by=nice(diff(range(min.x, max.x))/4))
      rgl.texts(x.at, -0.05, 0, x.labels, col = axis.col[1])

   z.labels <-  seq(lab.min.z, lab.max.z, 
                       by=diff(range(lab.min.z, lab.max.z))/4)
   z.at <- seq(min.z, max.z, by=diff(range(min.z, max.z))/4)
      rgl.texts(0, -0.1, z.at, z.labels, col = axis.col[3])

   y.labels <-  seq(lab.min.y, lab.max.y, 
                       by=diff(range(lab.min.y, lab.max.y))/4)
   y.at <- seq(min.y, max.y, by=diff(range(min.y, max.y))/4)
      rgl.texts(-0.05, y.at, -0.05, y.labels, col = axis.col[2])
                }

（您可能需要替换 scatter3d.formula 的代码，以便不会在 car NAMESPACE 中查找例行分派的 scatter 方法。我只是简单地更换了scatter3d 在 car:::scatter3d.formula 中调用“scatter3d.default”，这样解释器会首先查看新定义的函数。）

编辑：比 mucking 更好的方法使用 scatter3d.formula 的方法是使用以下代码将 car 命名空间/环境分配给新函数：

environment(scatter3d.default) <- environment(car:::scatter3d.formula)

然后如果您这样做：

scatter3d(prestige ~ income + education, data=Duncan)

您会得到这个（使用屏幕截图程序拍摄）

Answer 2

在 scatter3d 的帮助下，有一个新选项可以添加内部轴标签：

轴.ticks

如果为 TRUE，则打印内部轴“tick”标签；默认值为 FALSE。 （此选项的代码由 David Winsemius 提供。）