ggarrange-更改共享圖例的背景并洗掉圖之間的邊界

我希望背景全部為海軍藍色，情節周圍沒有白色邊框，圖例背景也為海軍藍色（沒有大白框）。我在這里看到了一些解決方案，但它們看起來不必要地復雜，并且需要大量重寫腳本甚至切換包。當然有更簡單的方法嗎？提前致謝。

示例腳本：

df <- data.frame(supp=rep(c("VC", "OJ"), each=3),
                  dose=rep(c("D0.5", "D1", "D2"),2),
                  len=c(6.8, 15, 33, 4.2, 10, 29.5))

cols <- c("VC" = "#0FC9F7", "OJ" = "#1010EB")


p1 <- ggplot(df, aes(x=dose, y=len, color=factor(supp)))  
  geom_line(aes(group = supp))  
  theme(
    plot.title = element_text(hjust = 0.5),
    panel.background = element_rect(fill = "#140F4B",
                                    colour = "#140F4B",
                                    size = 0.5, linetype = "solid"),
    panel.grid.major = element_blank(),
    panel.grid.minor = element_blank(),
    plot.background = element_rect(fill = "#140F4B"),
    text = element_text(colour = "white"),
    axis.line = element_line(colour = "white"),
    axis.text = element_text(colour = "white")
  )  
  scale_color_manual(values = cols,
                     name = "supp",
                     breaks=c("VC", "OJ"),
                     labels=c("VC", "OJ"))

p2 <- ggplot(df, aes(x=dose, y=len, color=factor(supp)))  
  geom_line(aes(group = supp))  
  theme(
    plot.title = element_text(hjust = 0.5),
    panel.background = element_rect(fill = "#140F4B",
                                    colour = "#140F4B",
                                    size = 0.5, linetype = "solid"),
    panel.grid.major = element_blank(),
    panel.grid.minor = element_blank(),
    plot.background = element_rect(fill = "#140F4B"),
    text = element_text(colour = "white"),
    axis.line = element_line(colour = "white"),
    axis.text = element_text(colour = "white")
  )  
  scale_color_manual(values = cols,
                     name = "supp",
                     breaks=c("VC", "OJ"),
                     labels=c("VC", "OJ"))

plots <- list(p1, p2)

combined_plots <- ggpubr::ggarrange(plotlist = plots,
                                    ncol = 2, nrow = 1, align = "hv", common.legend = TRUE, legend = "bottom")

#Annotate plot
combined_plots <- annotate_figure(
  combined_plots,
  top = text_grob(paste0("Example"), size = 18, color = "white")
)   bgcolor("#140F4B")  border("#140F4B")

uj5u.com熱心網友回復：

看起來問題在于legend.background您的缺失，theme這可能解釋了為什么您的圖例周圍有白色背景。我設法解決了這個問題patchwork！希望這會有所幫助。

library(ggplot2)
library(patchwork)

df <- data.frame(supp=rep(c("VC", "OJ"), each=3),
                  dose=rep(c("D0.5", "D1", "D2"),2),
                  len=c(6.8, 15, 33, 4.2, 10, 29.5))

cols <- c("VC" = "#0FC9F7", "OJ" = "#1010EB")


p1 <- ggplot(df, aes(x=dose, y=len, color=factor(supp)))  
  geom_line(aes(group = supp))  
  theme(
    plot.title = element_text(hjust = 0.5),
    panel.background = element_rect(fill = "#140F4B",
                                    colour = "#140F4B",
                                    size = 0.5, linetype = "solid"),
    panel.grid.major = element_blank(),
    panel.grid.minor = element_blank(),
    plot.background = element_rect(fill = "#140F4B"),
    text = element_text(colour = "white"),
    axis.line = element_line(colour = "white"),
    axis.text = element_text(colour = "white")
  )  
  scale_color_manual(values = cols,
                     name = "supp",
                     breaks=c("VC", "OJ"),
                     labels=c("VC", "OJ"))

p2 <- ggplot(df, aes(x=dose, y=len, color=factor(supp)))  
  geom_line(aes(group = supp))  
  theme(
    plot.title = element_text(hjust = 0.5),
    panel.background = element_rect(fill = "#140F4B",
                                    colour = "#140F4B",
                                    size = 0.5, linetype = "solid"),
    panel.grid.major = element_blank(),
    panel.grid.minor = element_blank(),
    plot.background = element_rect(fill = "#140F4B"),
    text = element_text(colour = "white"),
    axis.line = element_line(colour = "white"),
    axis.text = element_text(colour = "white")
  )  
  scale_color_manual(values = cols,
                     name = "supp",
                     breaks=c("VC", "OJ"),
                     labels=c("VC", "OJ"))



combined <- p1   p2   plot_annotation(title = "Title Here")  
  plot_layout(guides = "collect") & 
  theme(plot.title = element_text(colour  = "white", size = 18), legend.position = "bottom",
        legend.background = element_rect(fill = "#140F4B", colour = "#140F4B" ),
        legend.key = element_rect(fill = "#140F4B", colour = "#140F4B" ),
        plot.background = element_rect(fill = "#140F4B", colour = "#140F4B"))

 
 combined
 

標籤：r ggplot2

上一篇：如果同一列中的兩個值匹配，則從另一列的同一行回傳值

下一篇：按向量R的順序查找先前最大值的串列