使用 R 中的 geom_text 函数在 ggplot2 中放置标签

Question

我正在使用 ggPlot2 geom_text 在一个函数内设计一些图形。它是五个图形的序列，在每个图形中，我想将我的标签（我的文本）放在右上角的位置。问题是我会不断更改我的 N 和 Y 值（根据输入间隔）。 X 和 Y 坐标会发生变化，甚至会超出比例。那么如何固定标签位置，比如说在我的图表的右上角？

这是我的代码

parte.mac <- subset(dados, subset = (dados$Especie == 'C.macelaria' & dados$Temp >= minima & dados$Temp <= maxima))
  mac <- qplot(Temp, Tempo, data = parte.mac, color = Especie, main = 'C.macelaria', geom = c("point", "line"), add = T) +
    stat_smooth(method = 'lm', level = 0.99, alpha = 0.5, aes(group=1), color = 'blue') +
    geom_text(x = maxima, y = mean(range(dados$Tempo)), label = mac.sm, parse = TRUE)

求求你帮忙

Answer 1

回应@jazzuro 的评论，您能否通过运行向我们提供（您的）可重现数据（不要发送任何机密信息！）

dput(parte.mac)

并将其与您的问题一起粘贴。

在您没有确切数据的情况下，我将使用老忠实间歇泉喷发的 "faithful" 数据文件来回应@baptiste 的一个简单示例：

data(faithful)
head(faithful)
p <- qplot(x=eruptions, y=waiting, data=faithful)

下面是注释的一个示例：

p + annotate("text", x=3, y=40, label="Group 1") + annotate("text", x=4.5, y=60, label="Group 2")

下面是第二个示例，使用 "min" 和 "max" 等参数来放置注释：

p + annotate("text", x=min(faithful$eruptions), y=min(faithful$waiting), label="Group 1") + annotate("text", x=max(faithful$eruptions), y=max(faithful$waiting), label="Group 2")

如果这没有帮助，请记住输入您的数据并粘贴到您的问题中。

使用 R 中的 geom_text 函数在 ggplot2 中放置标签

Label placing in ggplot2 using geom_text function in R

label

r

ggplot2

geom-text