Início / coding / Perguntas / 79222655
Accepted
Breeze
Asked: 2024-11-25 18:32:23 +0800 CST

ggplot2 adiciona um segundo título de imagem no lado direito

  • 772

Ao reproduzir uma imagem usando ggplot2, havia um requisito interessante. Adicione um segundo título à figura, defina o local para a direita (seria legal fazer alterações na cor e em outros recursos). Parece algo assim: insira a descrição da imagem aqui

Usando a annotatefunção, essa abordagem não é muito conveniente devido às limitações de panel.

Após a busca, o seguinte fornece uma maneira de fazer isso: Adicionar anotação ggplot fora do painel? Ou dois títulos? Gostaria de saber se agora há uma maneira mais simples e direta de fazer isso.

library(tidyverse)

ggplot(mtcars, aes(wt, mpg)) + 
  geom_point()+
  ggtitle('left')+
  annotate("text", label="right", 
           x=Inf, y=Inf, vjust=1, hjust=1)

insira a descrição da imagem aqui

2 respostas

  1. Best Answer

    Uma das adições recentes ao ggplot desde a v3.5.1 é a capacidade de especificar coordenadas x e y de anotações de texto em coordenadas npc (ou seja, relativas ao painel, onde o canto inferior esquerdo está em x = 0, y = 0, e o canto superior direito está em x = 1, y = 1). A maneira de fazer isso é envolver as coordenadas x e y desejadas em I().

    Isso facilita a colocação de texto em uma posição fixa fora do painel de plotagem, desde que desativemos o recorte:

    ggplot(mtcars, aes(wt, mpg)) + 
  geom_point() +
  coord_cartesian(clip = "off") +
  ggtitle('left') +
  annotate("text", label = "right", x = I(1), y = I(1), hjust = 1,
           vjust = -1, size = 8) +
  theme_gray(20)

    insira a descrição da imagem aqui

    • 4

  2. Não conheço nenhuma opção mais fácil para adicionar um "segundo" título. Mas além da opção de manipular o gtable(que eu acho que é a abordagem mais limpa), você pode considerar usar annotation_customwhich no entanto requer considerar adequadamente as especificações do título. Note que para simplificar eu configurei vjust=0para alinhar verticalmente ambos os títulos (Usando o padrão vjust=1eu não consegui descobrir como fazer isso.):

    library(tidyverse)

ggplot(mtcars, aes(wt, mpg)) +
  geom_point() +
  labs(title = "left") +
  annotation_custom(
    grid::textGrob(
      label = "right",
      x = unit(1, "npc"),
      y = unit(1, "npc") +
        # Account for default theme_grey bottom margin of the title
        unit(5.5, "pt"),
      vjust = 0, hjust = 1,
      gp = grid::gpar(
        col = "red",
        # Default theme_grey Title font size = rel(1.2)
        fontsize = 11 * 1.2
      )
    )
  ) +
  coord_cartesian(clip = "off") +
  theme(plot.title = element_text(vjust = 0))

    • 1

relate perguntas