如何自定义 3D 散点图

Question

比方说，我下面有3D scatter plot

library(mvtnorm)
library(threejs)
u <- seq(-5, 5, by = .1)
v <- seq(-5, 5, by = .1)
M <- expand.grid(u,v)

x <- M$Var1
y <- M$Var2
sigma <- matrix(c(1, .5, .5, 1), nrow = 2, byrow = TRUE)
z <- dmvnorm(x = M, sigma = sigma)

scatterplot3js(x, y, z, phi = 40, theta = 20,
          color=rainbow(length(z)),
          colkey = FALSE,
          cex = .3,
          main = "Bivariate Normal")

虽然这个情节没问题，但我想用一些自定义名称更改标签 x、y 和 z，例如 A 1、B 1、C 1。

另外，我没有将z 轴的刻度线显示为行，而是添加%，例如而不是只举报0.18，我想举报0.18%

有没有办法实现这些。

感谢您的指点。

Answer 1

axisLabels 和 z.ticklabs 这些参数是您要找的吗？见?scatterplot3js

scatterplot3js(x, y, z, phi = 40, theta = 20,
               color=rainbow(length(z)),
               colkey = FALSE,
               cex = .3,
               main = "Bivariate Normal",
               axisLabels=c("Axis label 1", "Axis label 2 [%]", "Axis label 3"),
               z.ticklabs = c("0.00%","0.04%", "0.07%", "0.11%", "0.15%", "0.18%"))