Início / coding / Perguntas / 78951114
Accepted
Phoebe
Asked: 2024-09-05 10:45:54 +0800 CST

Adicionar apenas um rótulo de figura para várias subfiguras

  • 772

Tenho uma figura que contém 4 subfiguras e quero adicionar apenas um rótulo de figura no canto superior esquerdo, digamos (A). Como posso adicionar essa linha no meu código abaixo?

data("iris")

iris1 <- iris2 <- iris3 <- iris

fig <- list()

fig[[1]] <- ggplot(data=iris,mapping=aes(x=Petal.Length,y=Petal.Width,color=Species))+
  geom_point()+
  geom_smooth(method="lm") +
  labs(title = paste0("the title is ", expression(m[0])))

fig[[2]] <- ggplot(data=iris1,mapping=aes(x=Petal.Length,y=Petal.Width,color=Species))+
  geom_point()+
  geom_smooth(method="lm") +
  labs(title = paste0("the title is ", expression(m[1])))

fig[[3]] <- ggplot(data=iris2,mapping=aes(x=Petal.Length,y=Petal.Width,color=Species))+
  geom_point()+
  geom_smooth(method="lm") +
  labs(title = paste0("the title is ", expression(m[2])))

fig[[4]] <- ggplot(data=iris3,mapping=aes(x=Petal.Length,y=Petal.Width,color=Species))+
  geom_point()+
  geom_smooth(method="lm") +
  labs(title = paste0("the title is ", expression(m[3])))

 fig_all <- ggpubr::ggarrange(plotlist = fig, ncol = 2, nrow = 2, common.legend = TRUE, legend = "top")

 fig_all

A figura gerada é a seguinte, mas não há rótulo de figura. Não quero ter rótulo para cada subfigura, mas apenas um rótulo para indicar para todos, no canto superior esquerdo.

insira a descrição da imagem aqui

2 respostas

  1. Em vez de ggpubr, tente o patchworkpacote

    Então, para seu código, em vez de fig[[x]], atribua cada figura a um objeto em si, por exemplo fig1, fig2, fig3, fig4

    e então coletá-los fig1 + fig2 + fig3 + fig4 + plot_layout(ncol = 2, nrow = 2, guides = "collect")

    Para obter os títulos gerais, você precisa adicionarplot_annotation()

    O código geral seria:

    data("iris")

iris1 <- iris2 <- iris3 <- iris

fig <- list()

fig1 <- ggplot(data=iris,mapping=aes(x=Petal.Length,y=Petal.Width,color=Species))+
    geom_point()+
    geom_smooth(method="lm") +
    labs(title = paste0("the title is ", expression(m[0])))

fig2 <- ggplot(data=iris1,mapping=aes(x=Petal.Length,y=Petal.Width,color=Species))+
    geom_point()+
    geom_smooth(method="lm") +
    labs(title = paste0("the title is ", expression(m[1])))

fig3 <- ggplot(data=iris2,mapping=aes(x=Petal.Length,y=Petal.Width,color=Species))+
    geom_point()+
    geom_smooth(method="lm") +
    labs(title = paste0("the title is ", expression(m[2])))

fig4 <- ggplot(data=iris3,mapping=aes(x=Petal.Length,y=Petal.Width,color=Species))+
    geom_point()+
    geom_smooth(method="lm") +
    labs(title = paste0("the title is ", expression(m[3])))
fig1 + fig2 + fig3 + fig4 + plot_layout(ncol = 2, nrow = 2, guides = "collect") + plot_annotation(
    title = 'Here is a title',
    subtitle = 'here is a subtitle',
    caption = 'here is a caption'
)

    insira a descrição da imagem aqui

    Aqui está o link para o pacote: https://patchwork.data-imaginist.com/

    • 2
  2. Best Answer

    Você pode usar ggpubr::annotate_figure

    library("ggplot2")
library("ggpubr")
data("iris")

fig <- list()

fig[[1]] <- ggplot(data=iris,mapping=aes(x=Petal.Length,y=Petal.Width,color=Species))+
  geom_point()+
  geom_smooth(method="lm")

fig[[2]] <- ggplot(data=iris,mapping=aes(x=Petal.Length,y=Petal.Width,color=Species))+
  geom_point()+
  geom_smooth(method="lm")

fig[[3]] <- ggplot(data=iris,mapping=aes(x=Petal.Length,y=Petal.Width,color=Species))+
  geom_point()+
  geom_smooth(method="lm")

fig[[4]] <- ggplot(data=iris,mapping=aes(x=Petal.Length,y=Petal.Width,color=Species))+
  geom_point()+
  geom_smooth(method="lm")

fig_all <- ggpubr::ggarrange(plotlist = fig, ncol = 2, nrow = 2, common.legend = TRUE, legend = "top")

ggpubr::annotate_figure(fig_all, 
                        fig.lab = 'Main Title',
                        fig.lab.pos = 'top.left',
                        fig.lab.size = 16, 
                        fig.lab.face = 'bold')
    • 1

relate perguntas