Как получить правильные тиклабы на 3D-диаграмме рассеяния в R?

Пожалуйста, посмотрите этот пример. Посмотрите на ось y. Данные там имеют только два уровня: 1 и 2. Но на графике на этой оси нарисовано 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)

Результат