Início / coding / Perguntas / 78828097
Accepted
Bogaso
Asked: 2024-08-03 15:22:43 +0800 CST

Colocando rótulo no histograma no ggplot

  • 772

Eu tenho abaixo histogra refletindo sobre ggplot

library(ggplot2)
n = 1000
mean = 0
sd = 1
binwidth = 0.3 # passed to geom_histogram and stat_function
set.seed(1)
df <- data.frame(x = rnorm(n, mean, sd))

myplot = ggplot(df, aes(x = x, mean = mean, sd = sd, binwidth = binwidth, n = n)) +
    theme_bw() +
    geom_histogram(binwidth = binwidth, 
        colour = "white", fill = "cornflowerblue", size = 0.1)

Agora quero adicionar um rótulo personalizado na área superior central, mas deve haver alguma margem, digamos 10 pontos na parte superior do meu rótulo. Eu tentei abaixo

myplot+
geom_label(aes(x = mean((df$x)), y = 100), label = 'Plot with y', label.padding = unit(.7, 'lines'), fill = '#000000', color = '#ffffff', alpha = 0.2)

Existe alguma maneira de definir dinamicamente (com base apenas em dados, sem qualquer codificação) y = 100para manter o rótulo no topo com margem de 10 pontos?

1 respostas

  1. Best Answer

    Uma opção para colocar sua etiqueta no topo da área de plotagem e ter alguma margem seria usar annotation_customo que requer a adição de sua etiqueta por meio de um grob. Para este último eu uso gridtext::richtext_grob(pois gridnão fornece labelGrobe ggplot2não exporta):

    library(ggplot2)
library(gridtext)
library(grid)

myplot +
  annotation_custom(
    grob = gridtext::richtext_grob(
      text = "Plot with y",
      # Place at the top with margin of 5mm
      y = unit(1, "npc") - unit(5, "mm"),
      # Padding around label
      padding = unit(.7, "lines"),
      gp = grid::gpar(col = "#ffffff"),
      box_gp = grid::gpar(fill = "#000000", alpha = .6),
      vjust = 1
    ),
    xmin = mean(df$x),
    xmax = mean(df$x)
  )

    EDIT Se você não conseguir instalar nenhum pacote não padrão (por exemplo gridtext), uma opção seria usar o não exportado labelGrobde ggplot2using ::::

    myplot +
  annotation_custom(
    grob = ggplot2:::labelGrob(
      label = "Plot with y",
      # Place at the top with margin of 5mm
      y = unit(1, "npc") - unit(5, "mm"),
      # Padding around label
      padding = unit(rep(.7, 4), "lines"),
      text.gp = grid::gpar(col = "#ffffff"),
      rect.gp = grid::gpar(fill = "black", alpha = .6),
      just = "top"
    ),
    xmin = mean(df$x),
    xmax = mean(df$x)
  )

    • 1

relate perguntas