Ответ 1
Как упоминалось в комментариях, 3D-графики обычно не являются хорошим выбором (когда доступны другие варианты), поскольку они имеют тенденцию давать искаженный/скрытый вид данных.
Тем не менее, вот как вы можете сделать ваши данные по желанию с помощью latticeExtra
:
d <- read.table(text=' x y z
t1 5 high
t1 2 low
t1 4 med
t2 8 high
t2 1 low
t2 3 med
t3 50 high
t3 12 med
t3 35 low', header=TRUE)
library(latticeExtra)
cloud(y~x+z, d, panel.3d.cloud=panel.3dbars, col.facet='grey',
xbase=0.4, ybase=0.4, scales=list(arrows=FALSE, col=1),
par.settings = list(axis.line = list(col = "transparent")))