In [1]:

    

library("vegan")
library("ggvegan")
library("cowplot")
library("ggrepel")
data(varespec, varechem)
vare.cca <- cca(varespec, varechem)


    

    




Loading required package: permute
Loading required package: lattice
This is vegan 2.4-4
Loading required package: ggplot2

Attaching package: 'cowplot'

The following object is masked from 'package:ggplot2':

    ggsave

In [2]:

    

obj <- fortify(vare.cca)
want <- obj$Score %in% c("species", "sites")

autoplot(vare.cca) +  geom_text(data = obj[want, , drop = FALSE ],
                      aes(x = Dim1, y = Dim2, label = Label,
                          colour = Score))


    

In [3]:

    

autoplot(vare.cca) +  geom_text_repel(data = obj[want, , drop = FALSE ],
                      aes(x = Dim1, y = Dim2, label = Label,
                          colour = Score))