如何在每个方面添加注释

Question

我想给每个方面一个 alpha 代码，从 A 到 H，因为有八个方面，并在每个方面的左上角绘制每个代码：

ggthemr('dust', layout = 'scientific',
        spacing = 1, type = 'inner', line_weight = 0.6,
        )

ptitles <- c('A' = "Total mass (g)", 'B' = "Root mass (g)", 'C' = "Stem mass (g)",
    'D' = "Leaf mass (g)", 'E' = "Number of nodes",
    'F' = "Number of leaves", 'G' = "Total stem length (cm)", 'H' = "RDI")

ggplot(gtr, aes(sediment, value)) +
    geom_boxplot(aes(fill = nitrogen)) +
    geom_text(aes(label = trait, group = trait)) +
    facet_wrap(~trait, scales = "free_y", ncol = 2,
        labeller = as_labeller(ptitles),
        strip.position = "left"
        ) +

theme(legend.position = "bottom",
    legend.title = element_text(size = 12),
    legend.key.size = unit(2, "lines"),
    legend.text = element_text(size = 12),
    strip.text.x = element_text(size = 12, margin = margin(0, 0, 0, 10)),
    strip.text.y = element_text(size = 14),
    strip.placement = "outside",
    axis.title.y = element_text(size = 14),
    axis.title.x = element_text(size = 14),
    axis.text.x = element_text(size = 14),
    panel.spacing.x = unit(0.5, "lines"),
    panel.spacing.y = unit(0.3, "lines"),
    aspect.ratio = 2 / 3
    ) +

xlab("Effects of sediment type and nitrogen deposition") +
ylab(NULL)

我尝试使用 geom_text()：

geom_text(aes(label = trait, group = trait))

（这里变量trait存储从 A 到 H 的因子以区分每个方面）但它并没有像我预期的那样工作：

有没有简单的方法可以解决这样的事情？

更新：

根据baptiste的回答，我将上面的 geom_text() 代码更改为以下代码：

    geom_text(aes(x = -Inf, y = Inf, label = trait, group = trait),
        size = 5,
        hjust = -0.5,
        vjust = 1.4,
        inherit.aes = FALSE)

inherit.aes = FALSE 这里好像什么都不做，这个参数是怎么工作的？。

现在我的情节看起来不错：

Answer 1

library(ggplot2)

d <- data.frame(x=rep(1:3, 4), f=rep(letters[1:4], each=3))

labels <- data.frame(f=letters[1:4], label=LETTERS[1:4])
ggplot(d, aes(x,x)) +
  facet_wrap(~f) +
  geom_point() +
  geom_label(data = labels, aes(label=label), 
            x = Inf, y = -Inf, hjust=1, vjust=0,
            inherit.aes = FALSE)