Маркировка линейных функций в R с помощью ggplot2

Question

У меня есть следующий код:

v1 <- function(x){x/0.5-0.5}
v2 <- function(x){x/0.3-0.5}

library("ggplot2")


p <- ggplot(data.frame(x=c(0,1)), aes(x=x)) 

p +
  stat_function(fun=v1, geom="line") + 
  stat_function(fun=v2, geom="line") + 
  xlab("θ") + ylab("v(θ)") +
  theme_classic()

Когда я выполняю свой код, я хочу, чтобы сгенерированные функции были помечены как v1 и v2 соответственно. Как мне достичь желаемого результата?

Answer 1

Как насчет этого?

p +
  stat_function(fun=v1, geom="line") + 
  stat_function(fun=v2, geom="line") + 
  xlab("θ") + ylab("v(θ)") +
  theme_classic()+
  annotate("text",x=0.5,y=v1(0.5)-0.2,label="v1")+
  annotate("text",x=0.5,y=v2(0.5)+0.2,label="v2")