У меня есть 10 графиков ggplot, которые были созданы с использованием циклов for. Я хотел бы аннотировать графики, но позиция Y меняется для каждого графика (позиция x остается неизменной).
Ось Y на графике 1 проходит от 2-8
Ось Y на графике 2 проходит от 800-1400 и c.
Мой код выглядит следующим образом:
Col_loop <- c("V", "Cr", "Co", "Ni", "Cu", "Zn", "Sr", "Cd", "Ba", "Pb")
for (i in col_loop){
print(i)
plot <- ggplot(dat, aes_string(x = "Time", y= i)) +
geom_point(size = 1)+
geom_line(size = 0.5)+
geom_text(x=5, y=8, label="year", color = "red")
print(plot)
}
Это работает для графика 1, но не отображается на графике 2, потому что ось y находится в другом масштабе. Как получить, чтобы аннотация (geom_text) постоянно находилась вверху графика независимо от оси Y?