Размещение метки в ggplot2 с использованием функции geom_text в R

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 на простом примере с использованием "верного" файла данных извержений гейзера Старого верного:

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

Если это не помогает, не забудьте вывести свои данные и вставить их в свой вопрос.