r - ggord NMDS 图的虚线和实线椭圆

Question

我正在使用下面的代码来询问有关使用分组更改椭圆线类型的问题。

# to install ggord
library(devtools)
install_github("fawda123/ggord")

library("ggord")
library("vegan")
library("data.table")

irises <- iris

irises <- as.data.table(irises)

irises[, Group := as.factor(c(rep("Dotted", 100), rep("Solid", 50)))]

ord <- metaMDS(irises[, 1:4])

ggord(ord, irises$Species, poly = FALSE, vectyp = irises$Group)

对于这个例子，我想用虚线椭圆表示 setosa 和 versicolor，用实心椭圆表示 virginica。这在虹膜的 "Group" 列中标识。有什么建议吗？

Answer 1

v1.1.3 包含一个 polylntyp 参数。

library(devtools)
install_github("fawda123/ggord")

library("ggord")
library("vegan")
library("data.table")
library("ggplot2"

irises <- iris

irises <- as.data.table(irises)

ord <- metaMDS(irises[, 1:4])

p <- ggord(ord, irises$Species, poly = FALSE, polylntyp = irises$Species)
p

# change defaults
p + scale_linetype_manual(values = c('solid', 'solid', 'dashed'))

r - ggord NMDS 图的虚线和实线椭圆

r - dotted and solid ellipses by group for ggord NMDS plot

r

ggplot2

mds