Início / coding / Perguntas / 79572713
Accepted
Brian Smith
Asked: 2025-04-14 16:42:57 +0800 CST

Colocando o texto apropriadamente no ggplot

  • 772

Isto é baseado na minha postagem anterior em Adicionando formas perto do texto no ggplot

Com base na resposta aceita de @Tim G

library(ggplot2)
library(ggalt)
library(ggpp)
library(grid)

df <- data.frame(trt=LETTERS[1:5], l=c(20, 40, 10, 30, 50), r=c(70, 50, 30, 60, 80))

ggplot(df, aes(y = trt, x = l, xend = r)) +
  geom_dumbbell(size = 3, color = "#e3e2e1",
                colour_x = "#5b8124", colour_xend = "#bad744") +
  geom_text_npc(aes(npcx = 'center', npcy = 'bottom'), label = expression('No. of'~italic('AA')~'isolates with corresponding types'), parse = TRUE) +
  
  annotation_custom(
    grob = rectGrob(
      x = unit(0.5, "npc"), y = unit(0.04, "npc"),
      width = unit(0.4, "npc"), height = unit(0.011, "npc"),
      gp = gpar(fill = "gray60", col = NA)
    )
  )

Gostaria de saber se é possível empurrar a expressão gerada por geom_text_npc()(junto com o sublinhado criado) mais abaixo, um pouco acima da borda inferior do gráfico, porém sem modificar o y-axis. Tentei passar nudge_y = -1, geom_text_npc()mas não funcionou.

Obrigado pelo seu tempo e atenção.

2 respostas

  1. Em vez de usar um geom_text_npce um, annotation_customsugiro adicionar o texto e o segmento usando um annotation_custom. Além disso, sugiro definir a altura em unidades absolutas, por exemplo, eu uso "pt", que permite definir o preenchimento também em unidades absolutas e não requer ajustes nas npcunidades:

    library(ggplot2)
library(ggalt)
library(grid)

df <- data.frame(trt = LETTERS[1:5], l = c(20, 40, 10, 30, 50), r = c(70, 50, 30, 60, 80))

ggplot(df, aes(y = trt, x = l, xend = r)) +
  geom_dumbbell(
    size = 3, color = "#e3e2e1",
    colour_x = "#5b8124", colour_xend = "#bad744"
  ) +
  annotation_custom(
    grob = gTree(
      children = gList(
        textGrob(
          label = expression("No. of" ~ italic("AA") ~ "isolates with corresponding types"),
          x = unit(0.5, "npc"), 
          # Set the amount of padding to your liking
          # I use 10 i.e. 5pt to account for the height of the rect + 5pt padding
          # ... + 1pt padding at the bottom of the text
          y = unit(0, "npc") + unit(11, "pt"), # 
          vjust = 0
        ),
        rectGrob(
          x = unit(0.5, "npc"), 
          # Set the amount of padding to your liking
          # I use 10 i.e. 5pt to account for the height of the rect + 5pt padding
          y = unit(0, "npc") + unit(10, "pt"),
          width = unit(0.4, "npc"), height = unit(5, "pt"),
          gp = gpar(fill = "gray60", col = NA),
          vjust = 1
        )
      )
    )
  )
#> Warning: Using the `size` aesthetic with geom_segment was deprecated in ggplot2 3.4.0.
#> ℹ Please use the `linewidth` aesthetic instead.
#> This warning is displayed once every 8 hours.
#> Call `lifecycle::last_lifecycle_warnings()` to see where this warning was
#> generated.

    • 3
  2. Best Answer

    Você pode fornecer npcyum número exato em seu geom_text_npc(aes(npcx = 'center', npcy = 0.02)e annotation_customajustá y = unit(0.04, "npc")-lo y = unit(0.01, "npc").

    Conforme apontado corretamente por @ Edward , se você não quiser o aviso, passe um argumento de dados contendo geom_text_npc()apenas 1 linha (já que você tem apenas um rótulo), o que é basicamente uma anotação, já que o rótulo de texto não está conectado aos seus dados do dumbell.

    fora

    library(ggplot2)
library(ggalt)
library(ggpp)
library(grid)

df <- data.frame(trt=LETTERS[1:5], l=c(20, 40, 10, 30, 50), r=c(70, 50, 30, 60, 80))

ggplot(df, aes(y = trt, x = l, xend = r)) +
  geom_dumbbell(size = 3, color = "#e3e2e1",
                colour_x = "#5b8124", colour_xend = "#bad744") +
  geom_text_npc(data=data.frame(), # pass empty data here
     aes(npcx = 'center', 
         npcy = 0.02), # adjust y-pos of text here
         label = expression('No. of'~italic('AA')~'isolates with corresponding types'
     ), parse = TRUE) +
  
  annotation_custom(
    grob = rectGrob(
      x = unit(0.5, "npc"), y = unit(0.01, "npc"), # adjust y-pos of the grey bar
      width = unit(0.4, "npc"), height = unit(0.011, "npc"),
      gp = gpar(fill = "gray60", col = NA)
    )
  )

    Editar Embora isso funcione, a resposta de Stefan fornece uma abordagem mais limpa e fácil de ajustar, e eu a recomendaria.

    • 0

relate perguntas