Início / coding / Perguntas / 79596212
Accepted
Edward
Asked: 2025-04-28 18:08:31 +0800 CST

Duas legendas, uma alinhada à esquerda e outra à direita, na mesma linha

  • 772

Usando ggplot2, gostaria de ter duas legendas na mesma linha, abaixo do título, mas uma alinhada à esquerda e outra alinhada à direita para um gráfico facetado como o abaixo.

insira a descrição da imagem aqui

Posso ter uma legenda alinhada à esquerda:

p <- ggplot(mtcars, aes(mpg, hp)) + 
  geom_point() +
  facet_grid(am~.) +
  theme(plot.title=element_text(hjust=0.5))

p + labs(title="Data: mtcars", subtitle="Subtitle (left-aligned)")

ou alinhado à direita,

p + labs(title="Data: mtcars", subtitle="Subtitle (right-aligned)") +
  theme(plot.subtitle=element_text(hjust=1))

Mas parece que não consigo ter os dois, a menos que eu os combine com um número arbitrariamente grande de espaços entre eles (que é como eu fiz o gráfico acima). Mas não gosto dessa solução. Existe outra maneira?

2 respostas

  1. Best Answer

    Hackeado e assustador, mas funciona. Você pode passar um vetor para subtitle=e definir o alinhamento de cada elemento passando um vetor para hjust=(o que, obviamente, não é oficialmente suportado):

    library(ggplot2)

p <- ggplot(mtcars, aes(mpg, hp)) +
  geom_point() +
  facet_grid(am ~ .) +
  theme(plot.title = element_text(hjust = 0.5))

p + labs(
  title = "Data: mtcars",
  subtitle = c("Subtitle (left-aligned)", "Subtitle (right-aligned)")
) +
  theme(plot.subtitle = element_text(hjust = c(0, 1)))
#> Warning: Vectorized input to `element_text()` is not officially supported.
#> ℹ Results may be unexpected or may change in future versions of ggplot2.

    • 5

  2. É meio complicado, mas você poderia fazer algo assim...

    p + labs(title="Data: mtcars", subtitle = "") +
  geom_text(x = I(0), y = I(2.1), label = "left subtitle", hjust = 0) +
  geom_text(x = I(1), y = I(2.1), label = "right subtitle", hjust = 1) +
  coord_cartesian(clip = 'off')

    ou (melhor, conforme o comentário de Stefan abaixo), use annotate...

    p + labs(title="Data: mtcars", subtitle = "") +
    annotate("text", x = I(0), y = I(2.1), 
             label = "left subtitle", hjust = 0) +  
    annotate("text", x = I(1), y = I(2.1), 
             label = "right subtitle", hjust = 1) +
    coord_cartesian(clip = 'off')

    O subtitleargumento em branco apenas cria um pouco de espaço. O final clip = "off"permite que você plote fora da área normal do gráfico. A I(0)notação permite usar coordenadas relativas, onde 0 é esquerda/inferior e 1 é direita/superior. Tive que usar y=I(2.1), pois você tem duas facetas no seu gráfico, assim y=I(1)como o topo da faceta inferior.

    insira a descrição da imagem aqui

    • 1

relate perguntas