R, поверните трехмерную гистограмму, но ось не вращается - PullRequest
0 голосов
/ 03 июня 2019

Для упрощения я использую следующий код. Это отлично работает.

library(plot3D)

hist3D(x = 1:5, y = 1:4, z = VADeaths,
    bty = "b2", phi = 20,  theta = -65,
    xlab = "", ylab = "", zlab = "deaths / 1000",
    col = "#56B4E9", border = "#01587A", 
    shade = 0.2,
    ticktype = "detailed", space = .3, d = 2,
    cex.axis = 1e-9
)

# Use text3D to label x axis
    text3D(x = 1:5, y = rep(0.5, 5), z = rep(3, 5),
    labels = rownames(VADeaths),
    add = TRUE, adj = -0.2)

# Use text3D to label y axis
text3D(x = rep(0, 3), y = rep(5, 3), z = 20*(1:3),
    labels  = 20*(1:3),
    add = TRUE, adj = -1.2)

# Use text3D to label z axis
text3D(x = rep(1, 4), y = 1:4, z = rep(0, 4),
    labels  = colnames(VADeaths),
    add = TRUE, adj = 1)

Если мы поворачиваем вывод, используя, например, theta = 100, текст на оси не следует этому повороту.

ось схватки

Как я могу разместить текст в правильном месте?

...