最近,我用 RDA 运行了一个 RDA,vegan
然后,我用ggvegan
(Amazing!)制作了 RDA 图。但是,我无法编辑箭头的文本。
我使用下面的代码生成附加图像:
library(devtools)
library(ggvegan)
cols <- c("Green", "Orange","Red","Blue")
Plot2 <- autoplot(resultado.rda_bio, arrows = TRUE,data = RDA ,colour = factor(Season), fill = factor(Season), label = TRUE, label.size = 3, shape = FALSE, loadings = TRUE, loadings.colour = 'blue', loadings.label = TRUE, loadings.label.size = 3, scale= 0) +geom_point(data = RDA,aes(RDA1,RDA2,colour = Season),size=2,alpha=0.5)+
ylim(-3,3.0)+ xlim(-2,2.0)+
geom_abline(intercept = 0,slope = 0,linetype="dashed", size=0.8)+ geom_vline(aes(xintercept=0), linetype="dashed", size=0.8) + labs(x = "Axis 1 (13.8%)", y="Axis 2 (2.9%)") + theme_bw(base_size = 20) +
theme(legend.justification = c(0,0), axis.text = element_text(family = "Arial", colour = "black", size = 20),
axis.title = element_text(family = "Arial", size = 25),
text = element_text(family = "Arial", size = 20))
Plot2 + scale_colour_manual(values = cols, limits = c("Autumn", "Spring", "Summer", "Winter"))