nymph = nymphaea
group.names(nymph)
colrs = c("dodgerblue", "black", "red", "green3", "orange", "darkblue",
"gold2", "darkgreen", "darkred", "grey", "darkgrey", "magenta",
"darkorchid", "purple", "brown", "coral3", "turquoise", "deeppink",
"lawngreen", "deepskyblue", "tomato")
nmds(nymph, labs = FALSE, include_ellipse = FALSE, colours = colrs,
legend_pos = "right", pt_size = 2)
Run the code above in your browser using DataLab