使用 2 点时 geom_mark_ellipse 错误

如何解决使用 2 点时 geom_mark_ellipse 错误

geom_mark_ellipse 包中 ggforce 标记的椭圆在使用两点时无法正常工作。

下面我举个例子

数据：

          transecta        mds1         mds2              grupo
CLOA1         CLOA1  0.56852742  0.294150091       mmx clausura
CLOA2         CLOA2  0.88257101  0.151361099       mmx clausura
CLOA3         CLOA3  1.05422157  0.202652263  pastizal clausura
CLOA6         CLOA6  0.34475209 -0.168575457       mmx clausura
CLOA7         CLOA7 -0.73184407 -0.277142902        ba clausura
CLOA8         CLOA8 -0.03496517 -0.732031748        ba clausura
OAT1           OAT1 -0.51507135  0.424460141      mmx transecta
OAT2           OAT2 -0.15854319  0.266485510      mmx transecta
OAT3           OAT3 -0.86233409  0.022687344      mmx transecta
OATCOI1     OATCOI1 -0.86519268 -0.004470466       ba transecta
OATCOI3     OATCOI3 -0.86632557  0.230568674       ba transecta
OATCOIEC1 OATCOIEC1 -0.80751803  0.320056234       ba transecta
OATMMX3     OATMMX3 -0.42566740 -0.110641894      mmx transecta
OATMmxeC2 OATMmxeC2 -0.09455770  0.760007755      mmx transecta
OATP1         OATP1  0.36207279  0.424046062 pastizal transecta
OATP2         OATP2  0.56614390  0.470124863 pastizal transecta

代码：

library(ggplot2);library(ggforce)
gg1<-ggplot(data,aes(x=mds1,y=mds2)) + 
  # stat_contour(data=ordi.AC.na,aes(x=x,y=y,z=z),binwidth = 5,alpha=0.9) +
  # geom_raster(data=ordi.AC.na,fill = z,alpha=0.9)) +
  geom_point(aes(color=grupo)) + 
  geom_mark_ellipse(aes(color=grupo)) +
  geom_text_repel(aes(label=transecta,color=grupo)) +
  theme_bw() +
  theme(panel.grid.minor.y = element_blank(),panel.grid.minor.x = element_blank());gg1

结果：

GGPLOT RESULT