Ошибка при сборке графиков с помощью cowplot :: plot_grid - PullRequest
Новая
       18

Ошибка при сборке графиков с помощью cowplot :: plot_grid

0 голосов
/ 16 мая 2019

Я использую следующий код для составления точечной диаграммы анализа избыточности (RDA).График предназначен только для одного вида, и я провожу этот анализ для двух других видов (я не показываю код для двух других видов, поскольку он в основном одинаков).

rda.plot.sap <- ggplot(df1, aes(x=RDA1, y=RDA2)) + 
  geom_point(aes(shape = df1[,"Enclos"], color = df1[,"Type_enclos"]), size = 2) +
  geom_hline(yintercept=0) + 
  geom_vline(xintercept=0) + 
  coord_fixed() + 
  scale_shape_manual(values = c(1, 19)) + 
  scale_color_manual(values=c('#999999','#E69F00'))  

rda.plot.sap <- rda.plot.sap + 
  geom_segment(data=df2, 
               aes(x=0, xend=RDA1, y=0, yend=RDA2), 
               color="red", arrow=arrow(length=unit(0.01,"npc")), size = 0.8) +
  geom_text(data=df2, 
            aes(x=RDA1, y=RDA2, label=rownames(df2), 
                hjust=0.5*(1-sign(RDA1)) + hjust_sap_x,
                vjust=0.5*(1-sign(RDA2) + vjust_sap_x)), 
            color="red", size=5)

rda.plot.sap <- rda.plot.sap + 
  geom_segment(data=df3, 
               aes(x=0, xend=RDA1, y=0, yend=RDA2), 
               color="blue", arrow=arrow(length=unit(0.01,"npc")), size = 0.8)+ 
  geom_text(data=df3, 
            aes(x=RDA1, y=RDA2, label=rownames(df3), 
                hjust=0.5*(1-sign(RDA1)),
                vjust=0.5*(1-sign(RDA2))), 
            color="blue", size=5)

rda.plot.sap <- rda.plot.sap + 
  theme(panel.background = element_blank(), 
        axis.title = element_text(size = 20), 
        axis.line.x = element_line(color="black", size = 1),
        axis.line.y = element_line(color="black", size = 1),
        axis.text = element_text(size = 15), 
        legend.title = element_blank(), 
        legend.text = element_text(size = 15),
        legend.key=element_blank(),
        legend.position = c(0.15, 0.9)) + 
  xlim(c(-0.6, 0.4))  

rda.plot.sap <- rda.plot.sap + 
  xlab(paste("RDA1 (", var.rda1, " % - p = ", p.rda1, ")", sep = "")) + 
  ylab(paste("RDA2 (", var.rda2, " % - p = ", p.rda2, ")", sep = ""))

Код работает отлично, и я получаю три отдельных графика без каких-либо ошибок или предупреждений.Проблема в том, что когда я пытаюсь собрать эти три графика, используя функцию plot_grid пакета cowplot: 

final_plot <- plot_grid(rda.plot.sap, rda.plot.epi, rda.plot.het, 
                        nrow = 1, ncol = 3, labels = c("A", "B", "C"))

, я всегда получаю одну и ту же простую ошибку:

"Ошибка: Эстетика должна быть либо длины 1, либо такой же, как данные (27): форма, цвет ".

Даже незнакомый, после получения этой ошибки, если я хочу снова запустить код одногоиз отдельных участков (только для одного вида) я получаю ту же ошибку.

Это мой первый пост, поэтому я надеюсь, что описал проблему достаточно точно.Я не могу понять, что здесь происходит, поэтому заранее благодарен всем, кто может помочь.

...