Change Legend Text

[linem7]

Hello Jacob, I have a question about changing the legend of geom_segment(). Specifically, I want to change the legend text from "Range of observed data" to something else. I used the code below, but it didn't work. Do you know other easy way to do so? I would really appreciate any ideas or suggestions you have. Thank you!

object <- johnson_neyman(model = fit, pred = Murder,
               modx = Illiteracy)
object$plot + geom_segment(aes(x = 0.5, xend = 2.8, y = 10, yend = 10,
linetype = "range of moderate variable"),
lineend = "square", size = 1.25)