Как добавить к легенде вертикальную аблайн или написать что-нибудь на ней линейным графиком в R?

Question

Я добавил вертикальную линию в некоторой точке на оси x (как показано на линейном графике на рис. Ниже), используя функцию abline () в R , и я хотите либо поставить легенду, либо добавить текст поверх него (вертикально на аблайне).

Итак, возможно ли это сделать? Если да, то как я могу это сделать?

График Sample Line

Answer 1

Используйте text с указанными аргументами. В качестве альтернативы используйте функцию legend, как показано.

abline - это классическая c графика, поэтому предполагается, что вы хотите использовать эту систему построения графиков, но если вы хотите, чтобы ggplot2 см. Добавьте горизонтальную линию к построить график и легенду в ggplot2 и внести очевидные изменения, чтобы изменить горизонтальную линию на вертикальную.

x <- y <- 1:10; v <- 5  # input
plot(x, y)
abline(v = v, col = "red")
text("Vertical Line", x = v, y = max(y), srt = -90, pos = 4) # near top
text("Vertical Line", x = v, y = min(y), srt = 90, adj = c(0, -0.5)) # near bottom
legend("topleft", legend = "Vertical Line", pch = "|", col = "red")

Скриншот