Стрелка аннотации в сюжете RDA - PullRequest
Новая
       55

Стрелка аннотации в сюжете RDA

0 голосов
/ 29 марта 2019

Я управляю RDA для эволюции реинтродуцированных растений в зависимости от внешних факторов, в которые они посажены, и когда появляются графики, они не отображают то, что красные стрелки показывают вот так:

like this

Как правильно отобразить каждую характеристику эволюции на своем месте? 

#rda of evolution in terms of extrinsic plantation factors
(evolplant.rda <- rda(evol ~ ., extrplant)) 
summary(evolplant.rda)

#scaling 1
dev.new(
  title = "RDA scaling 1 and 2 + lc",
  width = 6,
  height = 12,
  noRStudioGD = TRUE
)
plot(evolplant.rda,
     scaling = 1,
     display = c("sp", "lc", "cn"),
     main = "Triplot RDA Scaling 1 of Plant evolution in terms of plantation factors"
)
evolplant.sc1 <- 
  scores(evolplant.rda, 
         choices = 1:2, 
         scaling = 1, 
         display = "sp"
  )
arrows(0, 0, 
       evolplant.sc1[, 1] * 0.92,
       evolplant.sc1[, 2] * 0.92,
       length = 0, 
       lty = 1, 
       col = "red"
)
text(-0.75, 0.7, "a", cex = 1.5)

#Scaling 2
plot(evolplant.rda, 
     display = c("sp", "lc", "cn"), 
     main = "Triplot RDA Scaling 2 of Plant evolution in terms of plantation factors"
)
evolplant.sc2 <- 
  scores(evolplant.rda, 
         choices = 1:2, 
         display = "sp",
  )
arrows(0, 0, 
       evolplant.sc2[, 1] * 0.92, 
       evolplant.sc2[, 2] * 0.92,
       length = 0,
       lty = 1,
       col = "red"
)
text(-0.82, 0.55, "b", cex = 1.5)
...