Блог

У меня есть график NMDS, на который наложены оценки PCA. У меня есть 45 векторов PCA, каждый из которых является видом животного.

Проблема в том, что метки моих стрелок (названия животных) перекрывают друг друга. Мне было интересно, есть ли способ сделать график интерактивным, чтобы можно было навести курсор на один из векторов PCA (красная стрелка), чтобы отобразить название животного?

Вот код, который я использовал для создания графика:

Показать сайты в решении NMDS

 new.solved.NMDS<-metaMDS(new.solved, distance = "jaccard", k = 4, trymax = 2000, autotransform=FALSE)

plot.new.solved<-data.frame(new.solved.NMDS$points)

par(mar=c(3,3,2,5) ,mgp=c(1.8,0.75,0))
  

Сайты:

 plot(plot.new.solved$MDS1, plot.new.solved$MDS2, pch=16, cex=1, col="black",xlab="NMDS1", ylab="NMDS2", cex.lab=1, cex.axis=1, main="", bty="L", mai=c(0,0,2,10),xlim=c(-1.5,1.3),ylim=c(-0.9,1)) 
  

Векторы PCA (а не NMDS), наложенные на NMDS, Вычисляют векторы видов

 fit <- envfit(new.solved.NMDS, new.solved, choices=c(1,2,3)) 
  

добавляет векторы видов на график NMDS

 fit.plot=plot(fit,cex=1.3,col="red",xlim=c(-1.5,1.3),ylim=c(-1.2,1.2), xlab="NMDS1",ylab="NMDS2")