Change Legend Text

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

Start with the johnson_neyman() result and its object$plot output, then inspect how the geom_segment() layer defines the legend label. Confirm how a custom legend text can be applied to the shown plot and verify that the legend changes from "Range of observed data" without altering the plotted range.

Written by the indexing model from the issue text.