在scatterplot3d中指定轴标签的方向

Question

我想知道是否可以在scatterplot3d指定轴标签的方向？ 我希望y轴标签（wt）平行于y轴，而不是现在平行于z轴：

library(scatterplot3d)
with(mtcars, {
   scatterplot3d(disp, wt, mpg, main="")
})

Answer 1

目前，它是硬编码的。 您可以创建一个新的scatterplot3d功能并更换mtext2与略加修改，将接受“拉斯维加斯”的说法，然后给调用该函数的“ylab”不同的值函数的定义（2）。

  ......
  mytext2 <- function(lab, side, line, at, las=0) mtext(lab, side = side, 
         line = line, at = at, col = col.lab, cex = cex.lab, 
         font = font.axis, las = las)   # shift hard coding to a default value
     lines(c(x.min, x.max), c(z.min, z.min), col = col.axis, 
         lty = lty.axis)
     mytext2(xlab, 1, line = 1.5, at = mean(x.range))
     lines(xx[1] + c(0, y.max * yx.f), c(z.min, y.max * yz.f + 
         z.min), col = col.axis, lty = lty.axis)
     mytext2(ylab, if (angle.1) 
         2
     else 4,  las=2, line = 0.5, at = z.min + y.max * yz.f)  # 2nd change
    .....

Answer 2

@JorisMeys的答案是一个关于更改标签位置的类似问题，该答案已被窃取并稍作调整。

with(mtcars, {
   scatterplot3d(disp, wt, mpg, main="", ylab="")
})

dims <- par("usr")

x <- dims[1]+ 0.97*diff(dims[1:2])
y <- dims[3]+ 0.4*diff(dims[3:4])

text(x, y, "wt", srt=0)

当然，您可以做更多的事情，特别是在边际上。 例如：

with(mtcars, {
   scatterplot3d(disp, wt, mpg, main="", ylab="",
   y.margin.add=0.5)
})
dims <- par("usr")

x <- dims[1]+ 0.97*diff(dims[1:2])
y <- dims[3]+ 0.4*diff(dims[3:4])

text(x, y, "wt")