更改 ggplot2 中多面箱线图的图例，使其内部具有相似名称的组

Question

这个问题建立在的基础上，但在多面箱线图的背景下。

所以，我有以下代码：

set.seed(20210714)
dd <- data.frame(Method = rep(c("A", "B", "C"), each = 60), Pattern = rep(c("X", "Y", "Z"), times = 30), X1 = runif(180), Complexity = rep(c("High", "Low"), times = 90), nsim = rep(rep(1:10, times = 9), each = 2), n = 10)
dd1 <-  data.frame(Method = rep(c("A", "B", "C"), each = 60), Pattern = rep(c("X", "Y", "Z"), times = 30), X1 = runif(180), Complexity = rep(c("High", "Low"), times = 90), nsim = rep(rep(1:10, times = 9), each = 2), n = 5)
dd <- rbind(dd, dd1)


library(ggplot2)

# create dummy dataframe.
dummy.df <- dd
dummy.df[nrow(dd) + 1:2,"Pattern"] <- unique(dd$Pattern)[-3]
dummy.df[nrow(dd) + 1:2,"Method"] <- "ZZZ"
dummy.df[nrow(dd) + 1:2,"Complexity"] <- c("High","Low")

dummy.df$dummy <- interaction(dummy.df$Method,dummy.df$Pattern)             

ggplot(dummy.df, aes(x = dummy, y = X1, fill = Method)) +
      geom_boxplot(aes(fill = Method)) + 
  facet_grid(~Complexity) + 
    theme_light()  +
    theme(legend.position = 'bottom')  +
    guides(fill = guide_legend(nrow=1)) +
      geom_line(aes(x = dummy, 
                group=interaction(Pattern,nsim)), 
            size = 0.35, alpha = 0.35, colour = I("#525252"))  + 
    geom_point(aes(x = dummy, 
                group=interaction(Pattern,nsim)), 
               size = 0.35, alpha = 0.25, colour = I("#525252"))  +
   scale_x_discrete(labels = c("","X", "", "", "", "Y", "", "", "", "Z","","")) +
    xlab("Pattern") +
    scale_fill_brewer(breaks=c("A", "B", "C"), type="qual", palette="Paired")

dummy.df <- dd
dummy.df[nrow(dd) + 1:2,"Pattern"] <- unique(dd$Pattern)[-3]
dummy.df[nrow(dd) + 1:2,"Method"] <- "ZZZ"
dummy.df[nrow(dd) + 1:2,"Complexity"] <- c("High","Low")

dummy.df$dummy <- interaction(dummy.df$Method,dummy.df$Pattern)             
dummy.df$fill <- interaction(dummy.df$Method, dummy.df$n)
dummy.df$dummy <- interaction(dummy.df$fill, dummy.df$Pattern)
dummy.df$dummy <- factor(dummy.df$dummy, levels = levels(dummy.df$dummy)[-c(4, 12, 20, 24)])

dummy.df$dummy[361:362] <- "A.10.Z" ## dummy variables to get rid of NAs


theme_set(theme_bw(base_size = 14))

ggplot(dummy.df, aes(x = dummy, y = X1, fill = fill)) +
    geom_boxplot(aes(fill = fill),lwd=0.1,outlier.size = 0.01)  +
    facet_grid(~Complexity) +
    theme(legend.position = 'bottom')  +
    guides(fill = guide_legend(nrow=1)) +
    geom_line(aes(x = dummy, 
                  group=interaction(Pattern,nsim,n)), 
              size = 0.35, alpha = 0.35, colour = I("#525252"))  + 
    geom_point(aes(x = dummy, 
                   group=interaction(Pattern,nsim,n)), 
               size = 0.35, alpha = 0.25, colour = I("#525252"))  +
    scale_x_discrete(labels = c("X", "Y", "Z"), breaks = paste("A.10.", c("X", "Y", "Z"), sep = ""),drop=FALSE) +
    xlab("Pattern") +
    scale_fill_brewer(breaks= levels(dummy.df$fill)[-c(4,8)], type="qual", palette="Paired")

这会产生以下情节。

一切都很好，除了传说。我想要以下内容：深色位于左侧标题为“n = 5”的第一组中，三种深色为“A”，“B”，“C”，浅色为右侧，在右侧标题为“n=10”的第二组中，“A”、“B”、“C”代表三种光色。有点像上面的 link 。

我想不通的是如何两次调用箱线图来模拟那里的解决方案。

有办法吗？如果问题不清楚，请随时告诉我。

再次感谢您的帮助！

Answer 1

根据您之前的问题调整我的回答，可以这样实现：

library(ggplot2)

fill <- levels(dummy.df$fill)[-c(4,8)]
fill <- sort(fill)
labels <- gsub("\.\d+", "", fill)
labels <- setNames(labels, fill)
colors <- scales::brewer_pal(type="qual", palette="Paired")(6)
colors <- setNames(colors, fill)

library(ggnewscale)

ggplot(dummy.df, aes(x = dummy, y = X1, fill = fill)) +
  geom_boxplot(aes(fill = fill), lwd=0.1,outlier.size = 0.01)  +
  scale_fill_manual(name = "n = 5", breaks= fill[grepl("5$", fill)], labels = labels[grepl("5$", fill)], values = colors,
                    guide = guide_legend(title.position = "left", order = 1)) +
  new_scale_fill() +
  geom_boxplot(aes(fill = fill), lwd=0.1,outlier.size = 0.01)  +
  scale_fill_manual(name = "n = 10", breaks = fill[grepl("10$", fill)], labels = labels[grepl("10$", fill)], values = colors,
                    guide = guide_legend(title.position = "left", order = 2)) +
  facet_grid(~Complexity) +
  theme(legend.position = 'bottom')  +
  guides(fill = guide_legend(nrow=1)) +
  geom_line(aes(x = dummy, 
                group=interaction(Pattern,nsim,n)), 
            size = 0.35, alpha = 0.35, colour = I("#525252"))  + 
  geom_point(aes(x = dummy, 
                 group=interaction(Pattern,nsim,n)), 
             size = 0.35, alpha = 0.25, colour = I("#525252"))  +
  scale_x_discrete(labels = c("X", "Y", "Z"), breaks = paste("A.10.", c("X", "Y", "Z"), sep = ""),drop=FALSE) +
  xlab("Pattern")
#> Warning: Removed 2 rows containing non-finite values (new_stat_boxplot).

更改 ggplot2 中多面箱线图的图例，使其内部具有相似名称的组

changing legend of faceted boxplot in ggplot2 to have groups with similar names inside

r

ggplot2

grob

r-grid