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)

并用你的问题粘贴。

在没有确切数据的情况下，我会用一个简单的例子回复@baptiste，使用＆＃34;忠实的＆＃34; Old Faithful间歇泉喷发的数据文件：

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")

下面是第二个例子，使用＆＃34; min＆＃34;等参数。和＆＃34; max＆＃34;用于放置注释：

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

1 个答案: