Добавить легенду к ordirgl {vegan3d} - PullRequest
Новая
       27

Добавить легенду к ordirgl {vegan3d}

0 голосов
/ 09 апреля 2020

Я пытаюсь добавить легенду к графике c, созданной с использованием ordirgl() из пакета . Мне удалось это сделать, используя plot3d() и legend3d() в пакете . Я предпочитаю некоторые из функций, предлагаемых в , так как я работаю с ординациями и предпочел бы использовать их, если смогу создать легенду.

Использование пакета : 

data("dune.env")
data("dune")
sol <- metaMDS(dune, k = 3)

par3d(windowRect = c(100, 100, 612, 612))
with(sol, plot3d(points[,1], points[,2], points[,3], type = "s", col = rainbow(3)[as.numeric(dune.env$Use)]))
legend3d("topright", legend = unique(dune.env$Use), pch = 16, col = rainbow(3), inset = c(0.03))

Возможно ли добавить к нему легенду? 

ordirgl(sol, size = 4, col = rainbow(3)[as.numeric(dune.env$Use)])
orglspider(sol, dune.env$Use, col = rainbow(3), scaling = "sites")
orglellipse(sol, dune.env$Use, col = rainbow(3), kind = "se", conf = .95, scaling = "sites")

Спасибо за помощь !

...