更改ggpubr::ggarrange中組合圖的背景顏色

我不知道為什么底角的背景是白色的，而其余的情節是灰色的。無論如何我可以將底角顏色更改為與情節其余部分相同的背景嗎？

我用于每個情節的代碼是：

HP_specifikationer_model1 <- ggplot(Svar_spec_data) geom_hline(yintercept=0)
geom_line(aes(y=HP1, x=kvartaler, color = "HP-BNP-KRE-REN"))  
geom_line(aes(y=HP2, x=kvartaler, color = "REN-KRE-HP-BNP"))  
geom_line(aes(y=HP3, x=kvartaler, color = "BNP-KRE-REN-HP"))  
geom_line(aes(y=HP4, x=kvartaler, color = "KRE-HP-REN-BNP"))  
geom_line(aes(y=HP5, x=kvartaler, color = "BNP-KRE-HP-REN"))  
geom_line(aes(y=HP6, x=kvartaler, color = "BNP-REN-HP-KRE"))  
geom_line(aes(y=HP7, x=kvartaler, color = "REN-HP-BNP-KRE"))  
scale_color_manual(name='Specifikation',
                 breaks=c('HP-BNP-KRE-REN', 'REN-KRE-HP-BNP', 'BNP-KRE-REN-HP',
                          'KRE-HP-REN-BNP', 'BNP-KRE-HP-REN', 'BNP-REN-HP-KRE',
                          'REN-HP-BNP-KRE'),
                 values=c('HP-BNP-KRE-REN'='red', 'REN-KRE-HP-BNP'='blue', 'BNP-KRE-REN-HP'='green',
                          'KRE-HP-REN-BNP'='cyan', 'BNP-KRE-HP-REN'='lightpink', 'BNP-REN-HP-KRE'='orange',
                          'REN-HP-BNP-KRE'='black')) 
labs(title = "Varrierende SVAR matricer ved st?d til Boligpriserne", x="Lag (M?neder)", y="Respons fra boligprisen", caption = "Egne beregninger", color= T) 
theme(legend.position="right")   theme(panel.grid.minor.x = element_blank())   th

代碼末尾的 th 使用以下代碼定義：

th <- theme(title = element_text(colour = "#404040"),
        plot.background=element_rect(fill="#f3f3f3"),  
        panel.background = element_rect(fill="#f3f3f3"), 
        legend.background = element_rect(fill="#f3f3f3"),
        plot.subtitle = element_text(color="#666666"),
        plot.caption = element_text(color="#616161", size=9),
        legend.key = element_rect(fill = "#f3f3f3", colour = "#f3f3f3"),
        plot.margin = unit(c(0.5, 0.7, 0.5, 0.7), "cm"), 
        panel.border = element_rect(color = "black",
                                fill = NA,
                                size = 0.15))

我使用的代碼是安排我的情節是：

ggarrange(BNP_specifikationer_model1,
RENTE_specifikationer_model1,
KREDIT_specifikationer_model1,
HP_specifikationer_model1,
ncol=2, nrow=2, common.legend = TRUE, legend="bottom")

uj5u.com熱心網友回復：

我認為在 ggpubr 中，您可以使用bgcolor

你也可以使用cowplot，比如在這個執行緒中

或拼湊，如下所示，其優點是您可以避免重復呼叫您的主題！

## Given that your data is not reproducible, here a made up example.

library(ggpubr)
#> Loading required package: ggplot2
# Create some plots - based on the example ?ggpubr::ggarrange
data("ToothGrowth")
df <- ToothGrowth
df$dose <- as.factor(df$dose)
bxp <- ggboxplot(df, x = "dose", y = "len",
                 color = "dose", palette = "jco")
dp <- ggdotplot(df, x = "dose", y = "len",
                color = "dose", palette = "jco")
dens <- ggdensity(df, x = "len", fill = "dose", palette = "jco")

# ::::::::::::::::::::::::::::::::::::::::::::::::::
ggarrange(bxp, dp, dens, ncol = 2, nrow = 2)   bgcolor("Grey")         
#> Bin width defaults to 1/30 of the range of the data. Pick better value with `binwidth`.

另一種選擇，使用 {patchwork}，改變一般主題& theme()

library(patchwork)
bxp   dp   dens   plot_layout(ncol = 2) &
  theme(plot.background = element_rect(fill = "Grey"))
#> Bin width defaults to 1/30 of the range of the data. Pick better value with `binwidth`.

^{由reprex 包于 2022-05-26 創建(v2.0.1)}

標籤：r ggplot2

上一篇：在R中，從資料框中，如何將資料分成組以在同一圖形上繪制多條曲線？

下一篇：根據R中多方面時間序列圖的條件自定義alpha值