Ошибка ggarrange: эстетика должна быть длиной 1 или такой же, как данные

Question

Я пытаюсь использовать функцию ggarrange (пакет ggpubr), чтобы поместить несколько графиков в одну фигуру.Когда я использую это с графиками изобилия ранга, это работает как очарование.Однако, когда я использую ggarrange с моими ординационными графиками, я получаю ошибку:

Ошибка: эстетика должна быть либо длины 1, либо такой же, как> data (4): x, y, label

Мой код выглядит следующим образом:

ggarrange(Period.1, Period.2, Period.3, Period.4, 
      labels = c("A", "B", "C", "D"),
      ncol = 2, nrow = 2)

Где Period.1 / 2/3/4 - ggplots, подобные следующему:

Period.1<-ggplot(data = NMDS, aes(MDS1, MDS2)) + 
  geom_point(aes(shape = stand, color = stand)) +
  scale_color_manual(values=group.colors) +
  scale_shape_manual(values=group.shapes) +
   geom_path(data=stand_ell, aes(x=MDS1, 
     y=MDS2,colour=group), 
    size=1, linetype=2)+ 
  theme(panel.grid.major = element_blank(), 
     panel.grid.minor = element_blank(),
    panel.border = element_rect(colour = "black", fill=NA, 
     size=0.5),
    panel.background = element_blank(), axis.line = 
    element_line(colour = "black"))+
  geom_text_repel(data=STAND.mean,aes(x=MDS1,y=MDS2, label 
  = STAND.mean$group))

Я ожидалggarrange, чтобы дать мне что-то вроде следующего (с точки зрения договоренности):

Может кто-нибудь помочь мне понять, почему я получаю ошибку?Я надеюсь, что предоставил достаточно информации.Заранее спасибо