如何在 R 的 3d 散点图中获得正确的 ticklabs?

How to get correct ticklabs in a 3d-scatterplot in R?

请看这个例子。查看 y 轴。那里的数据只有两个级别:12。但在图中,该轴上绘制了 6 个刻度线。我怎么能解决这个问题。 x轴也有同样的问题。

数据

   extra group ID
1    0.7     1  1
2   -1.6     1  2
3   -0.2     1  3
4   -1.2     1  4
5   -0.1     1  5
6    3.4     1  6
7    3.7     1  7
8    0.8     1  8
9    0.0     1  9
10   2.0     1 10
11   1.9     2  1
12   0.8     2  2
13   1.1     2  3
14   0.1     2  4
15  -0.1     2  5
16   4.4     2  6
17   5.5     2  7
18   1.6     2  8
19   4.6     2  9
20   3.4     2 10

剧本

require('mise')
require('scatterplot3d')
mise()  # clear the workspace

# example data
print(sleep)

# plot it
scatterplot3d(x=sleep$ID,
              x.ticklabs=levels(sleep$ID),
              y=sleep$group,
              y.ticklabs=levels(sleep$group),
              z=sleep$extra)

结果

这个怎么样:

scatterplot3d(x=sleep$ID, y=sleep$extra, z=sleep$group, lab.z = c(1, 2))