如何调整约束性PCoA图中物种文本的显示位置

当然可以通过修改代码调整文本位置，以下是几种实用方案：

• 指定文本方位（快速调整）
  原代码中的text()函数（对应vegan包的text.ord）支持pos参数，可给每个选定物种指定固定显示方位：1=下方，2=左方，3=上方，4=右方。针对你选的7个物种，传入长度匹配的向量即可：

  p = text(ord, display = "species", select = c(19, 50, 47, 13, 29, 12, 45), 
           cex=0.8, col = "lightblue4", pos = c(3, 4, 2, 1, 3, 4, 2)) # 按需调整每个数字对应的方位
  

• 调整文本与点的距离
  如果文本和物种点过于贴近，可添加offset参数增大间距（默认值为0.5，可根据需求修改）：

  p = text(ord, display = "species", select = c(19, 50, 47, 13, 29, 12, 45), 
           cex=0.8, col = "lightblue4", pos = c(3,4,2,1,3,4,2), offset = 0.7)
  

• 手动微调坐标（精准控制）
  若需要完全自定义位置，可先提取物种坐标，手动修改后再添加文本：

  # 提取选定物种的坐标
  spp_coords = scores(ord, display = "species")[c(19, 50, 47, 13, 29, 12, 45), ]
  # 根据你的图微调坐标（示例数值，需自行调整）
  spp_coords$x = spp_coords$x + c(0.1, -0.05, 0.08, -0.1, 0.05, -0.07, 0.09)
  spp_coords$y = spp_coords$y + c(0.05, 0.1, -0.06, 0.08, -0.05, 0.07, -0.09)
  # 添加调整后的文本
  text(spp_coords, labels = rownames(spp_coords), cex=0.8, col = "lightblue4")
  

内容的提问来源于stack exchange，提问作者Herbuiten