1

我正在使用 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)

请帮忙

4

1 回答 1

1

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

dput(parte.mac)

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

在没有您的确切数据的情况下，我将使用老忠实间歇泉喷发的“忠实”数据文件用一个简单的示例回应 @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")

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

于 2015-08-21T00:52:26.973 回答