Remove interaction legend

[jacob-long]

Remove interaction legend

[joe-atkinson]

Hi Daisy,

I was hoping to do the same. One workaround that I adapted from a similar issue on StackOverlow is to create a custom theme, then apply it to the plot object. An example I have just used successfully:

library(interactions)
library(lme4)
library(ggplot2)

theme_classic2 <- function(base_size = 12, base_family = ""){
  theme_bw(base_size = base_size, base_family = base_family) %+replace%
    theme(
      legend.position = "none",
      panel.border     = element_blank(),
      axis.line        = element_line(colour = "black"),
      panel.grid.major=element_line(colour="grey", size=0.5, 3),
      panel.grid.major.x = element_blank(),
      panel.grid.major.y = element_blank(),
      panel.grid.minor = element_blank(),
      panel.grid.minor.x = element_blank(),
      panel.grid.minor.y = element_blank(),
      strip.background = element_blank(),
      legend.key       = element_blank()
    )
}

ft<-lmer(mpg ~ cyl*hp + (1|gear), data = mtcars)
plot<-interact_plot(ft, pred = cyl, modx = hp, interval = TRUE, plot.points = T, colors = "Set1",
                    point.size = 0.3, point.alpha = 0.1,)

plot+theme_classic2()

[jacob-long]

In fact, all you need to do is:

library(ggplot2)
interact_plot(model, predictor, moderator) +
	theme(legend.position = "none")

This is using the theme options available in ggplot2's theme() function.

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