我们使用prcomp（）完成了PCA的结果。 之后，我们用

ggbiplot(PCA_Hochfl,labels.size = 2,varname.size = 3.5,cex=c(5,1)) + geom_point() +
         geom_text(aes(label=ifelse(mw_H$Group.1 == "H14",as.character(mw_H$Group.1),''),hjust=1.05,vjust=-0.2)) + 
         geom_text(aes(label=ifelse(mw_H$Group.1 != "H14",hjust=-0.15,vjust=-0.2)) 

我们得到以下结果：

如您所见，在左侧：来自2个箭头的标签相互重叠。 如何向下移动一个标签，同时向上移动另一个标签。

我们非常感谢您的帮助。 预先非常感谢大家。 最好， 海伦娜