Data labels for points using plot() about ggeffects

[strengejacke]

removing (parts of) the legend in ggplot2 is a pain... Any hints how to remove the legend for single-color plot with text labels are welcome.

library(ggeffects)
lm_fit <- lm(mpg ~ cyl * wt, data = mtcars)
lm_fit_predict <- ggpredict(lm_fit, terms = c("cyl", "wt"))
plot(lm_fit_predict, add.data = TRUE, label.data = TRUE)
#> Data points may overlap. Use the `jitter` argument to add some amount of
#>   random variation to the location of data points and avoid overplotting.
#> Warning: ggrepel: 6 unlabeled data points (too many overlaps). Consider
#> increasing max.overlaps

plot(lm_fit_predict, add.data = TRUE, label.data = FALSE)
#> Data points may overlap. Use the `jitter` argument to add some amount of
#>   random variation to the location of data points and avoid overplotting.

lm_fit <- lm(mpg ~ cyl + wt, data = mtcars)
lm_fit_predict <- ggpredict(lm_fit, terms = "cyl")
plot(lm_fit_predict, add.data = TRUE, label.data = TRUE)
#> Data points may overlap. Use the `jitter` argument to add some amount of
#>   random variation to the location of data points and avoid overplotting.
#> Warning: ggrepel: 6 unlabeled data points (too many overlaps). Consider
#> increasing max.overlaps

plot(lm_fit_predict, add.data = TRUE, label.data = FALSE)
#> Data points may overlap. Use the `jitter` argument to add some amount of
#>   random variation to the location of data points and avoid overplotting.

^{Created on 2023-07-16 with reprex v2.0.2}

[Deleetdk]

Generally, avoid setting aes(color = x) if you don't have any groups to color. I usually do this by using an if clause, with two variants of geom_point() and geom_smooth(). But you can also suppress the legend manually if you like. E.g. theme(legend.position="none") removes all legends.