用 gglagplot 制作 facet

Question

我正在使用包 forecast() 并尝试使用 gglagplot 函数制作 facet。

#Code
library(forecast)
library(gridExtra)


# GGLAGPLOT 1
 gg1<-gglagplot(TEST_1,lags = 52)

# GGLAGPLOT 2       
 gg2<-gglagplot(TEST_2,lags = 52)

# GGLAGPLOT 3
 gg3<-gglagplot(TEST_3,lags = 52)

下图是三个 gglagplot 之一的示例。

我尝试使用下面的这个功能，但我的切面不好，看起来像下面的图片。

 # Trying facet
grid.arrange(gg1,gg2,gg3)

所以有人可以帮我制作像下面这样的面吗？

所以有人可以帮助我像下图那样做出更好的切面吗？

Answer 1

如果所有三个图都有相同的图例，您可以从图中删除图例并使用包 ggpubr:

单独保存

#Code
library(forecast)
library(gridExtra)
library(ggpubr)

# GGLAGPLOT 1
 gg1<-gglagplot(TEST_1,lags = 52) + theme(legend.position = "none")

# GGLAGPLOT 2       
 gg2<-gglagplot(TEST_2,lags = 52) + theme(legend.position = "none")

# GGLAGPLOT 3
 gg3<-gglagplot(TEST_3,lags = 52)

# SAVE LEGEND
gg3_legend = get_legend(gg3)


# Plot everything together
grid.arrange(gg1,gg2,gg3 + theme(legend.position = "none"), as_ggplot(gg3_legend), nrow = 1)

如果不单独保存图例，最后一张图会比前两张小。

用 gglagplot 制作 facet

Making facet with gglagplot

grid

r

forecast