Início / coding / Perguntas / 79574696
Accepted
Daniel Lobo
Asked: 2025-04-15 16:32:47 +0800 CST

Agrupando a legenda no ggplot em várias partes

  • 772

Quero agrupar a legenda em ggplotvárias partes. Vejamos o exemplo abaixo (retirado de https://stackoverflow.com/a/68608592/15910619 como resposta aceita de @stefan).

library(ggplot2)
library(ggnewscale)

diamonds$cut = factor(diamonds$cut, levels=c("Fair","Good", "Very Good",
                                             "Premium","Ideal"))

labels <- levels(diamonds$cut)
labels <- setNames(labels, labels)
labels["Fair"] <- "Very Good"
labels["Good"] <- "Premium"

colors <- hcl(seq(15, 325, length.out = 5), 100, 65)
colors <- setNames(colors, levels(diamonds$cut))

ggplot() + 
  geom_bar(data = diamonds, aes(color, fill = cut)) + 
  scale_fill_manual(aesthetics = "fill", values = colors, labels = labels[1:2],
                    breaks = names(colors)[1:2], name = "First Group:",
                    guide = guide_legend(title.position = "left", order = 1)) +
  new_scale_fill() +
  geom_bar(data = diamonds, aes(color, fill = cut)) + 
  scale_fill_manual(aesthetics = "fill", values = colors, labels = labels[3:5],
                    breaks = names(colors)[3:5], name = "Second Group:",
                    guide = guide_legend(title.position = "left", order = 0)) +
  theme(legend.position = "bottom", 
        legend.direction = "horizontal",
        legend.key = element_rect(fill = "white"))

No entanto, gostaria de alterar o estilo de posição de vários elementos da legenda, conforme demonstrado no instantâneo modificado abaixo

insira a descrição da imagem aqui

Existe alguma maneira de conseguir esse tipo de agrupamento na lenda ggplot?

Muito obrigado pelo seu tempo e atenção.

3 respostas

  1. Se você quiser uma linha para separar as duas legendas, você pode utilizar a element_part_rectfunção do pacote ggh4x .

    library(ggplot2)
library(ggnewscale)
library(ggh4x)

    ... +  
scale_fill_manual(aesthetics = "fill", values = colors, labels = labels[3:5],
                    breaks = names(colors)[3:5], name = "Second Group:",
                    guide = guide_legend(title.position = "top", order = 0)) +
  theme(legend.position = "inside",
        legend.position.inside = c(0.18,0.88), # May need adjusting
        legend.spacing.y = unit(5,'pt'),
        legend.box.background=element_rect(color='white'),
        legend.background=element_part_rect(color='black', side='b'),
        legend.direction = "horizontal")

    insira a descrição da imagem aqui

    • 3

  2. Resultados aproximados:

    library(ggplot2)
library(ggnewscale)

diamonds$cut = factor(diamonds$cut, levels=c("Fair","Good", "Very Good",
                                             "Premium","Ideal"))

labels <- levels(diamonds$cut)
labels <- setNames(labels, labels)
labels["Fair"] <- "Very Good"
labels["Good"] <- "Premium"

colors <- hcl(seq(15, 325, length.out = 5), 100, 65)
colors <- setNames(colors, levels(diamonds$cut))

ggplot() + 
  geom_bar(data = diamonds, aes(color, fill = cut)) + 
  scale_fill_manual(aesthetics = "fill", values = colors, labels = labels[1:2],
                    breaks = names(colors)[1:2], name = "First Group:",
                    guide = guide_legend(title.position = "top", order = 1)) +
  new_scale_fill() +
  geom_bar(data = diamonds, aes(color, fill = cut)) + 
  scale_fill_manual(aesthetics = "fill", values = colors, labels = labels[3:5],
                    breaks = names(colors)[3:5], name = "Second Group:",
                    guide = guide_legend(title.position = "top", order = 0)) +
  theme(legend.position = "inside",
        legend.position.inside = c(0.2,0.85),
        legend.spacing.y = unit(0,'pt'),
        legend.box.background  = element_rect(color = 'black', linewidth = 1),
        legend.direction = "horizontal",
        legend.key = element_rect(fill = "white"))

    insira a descrição da imagem aqui

    Edição 1:

      ... +
theme(legend.position = "inside",
        legend.position.inside = c(0.2,0.85),
        legend.spacing.y = unit(0,'pt'),
        legend.background= ggh4x::element_part_rect(color='black', side='t', linewidth  = 1),
        legend.box.background  = element_rect(color = 'black', fill = "white", linewidth = 1),
        legend.direction = "horizontal",
        legend.key = element_rect(fill = "white"))

    insira a descrição da imagem aqui

    • 2
  3. Best Answer

    Como você já sugeriu nos comentários, você pode alcançar o resultado desejado adicionando uma categoria falsa. No entanto, para obter a mesma largura para ambas as legendas, precisamos usar o mesmo rótulo para a categoria falsa e para a última categoria na segunda legenda do grupo, ou seja, "Ideal"para os dados de exemplo. Para evitar que o rótulo apareça na legenda, uso o ggtextpacote para tornar o rótulo transparente:

    Observação: a mesma abordagem deve, em princípio, funcionar para a abordagem de @Edward para obter uma linha de separação abrangendo a largura da caixa de legenda.

    library(ggplot2)
library(ggnewscale)
library(ggtext)

colors = c(colors, " " = "transparent")
labels = c(labels, " " = "<span style='color: transparent'>Ideal</span>")

ggplot() +
  geom_bar(data = diamonds, aes(color, fill = cut), show.legend = TRUE) +
  scale_fill_manual(
    aesthetics = "fill", 
    values = colors, 
    labels = labels[c(1:2, 6)],
    breaks = names(colors)[c(1:2, 6)], name = "First Group:",
    guide = guide_legend(title.position = "top", order = 1),
    limits = names(colors)[c(1:2, 6)]
  ) +
  new_scale_fill() +
  geom_bar(data = diamonds, aes(color, fill = cut)) +
  scale_fill_manual(
    aesthetics = "fill", values = colors, labels = labels[3:5],
    breaks = names(colors)[3:5], name = "Second Group:",
    guide = guide_legend(title.position = "top", order = 0)
  ) +
  theme(
    legend.position = "inside",
    legend.position.inside = c(.05, .95),
    legend.justification.inside = c(0, 1),
    legend.direction = "horizontal",
    legend.key = element_rect(fill = "white"),
    legend.background = element_rect(linewidth = .5, color = "black"),
    legend.box.background = element_rect(fill = "white", linewidth = NA),
    legend.spacing.y = unit(0, "pt"),
    legend.text = ggtext::element_markdown()
  )

    • 1

relate perguntas