Plot in R: Gap beginning and end of the x-axis - how to remove?

Question

That is my code

plot_model(mylogit, type = "pred", terms = c("ScoreEnvAtt [all]", "Guilt")) + 
  scale_colour_discrete(guide = guide_legend(title = "Guilt"), labels = c("Low", "Medium", "High")) + 
  scale_fill_discrete(guide = guide_legend(title = "Guilt"), labels = c("Low", "Medium", "High"))  +
  labs( title = "",
        x = "Environmental Attitudes",
        y = "Probability of choosing the green investment") + theme_gray(base_size = 14)  + 
  theme(text=element_text(family="Times New Roman", size=12))

How can I remove the two gaps such that the x axis starts at 3 and ends at 7?

Also highly appreciated if some pro here sees something that visually annoys in the plot and tells me how to make it better - I am using it for my thesis. — Mariella, Jun 26 '20 at 11:49
https://stackoverflow.com/questions/13701347/force-the-origin-to-start-at-0 — Adam Quek, Jun 26 '20 at 11:51
Does this answer your question? [Force the origin to start at 0](https://stackoverflow.com/questions/13701347/force-the-origin-to-start-at-0) — UseR10085, Jun 26 '20 at 11:54
@AdamQuek Ah yes that is the solution the others proposed below, thanks!! — Mariella, Jun 26 '20 at 12:13

score 2 · Answer 1 · answered Jun 26 '20 at 11:59

sjPlot uses ggplot2 so you can find the options to modifying your plot by looking for ggplot2. In this case, what you need is expand=c(0,0) inside scale_x_continuous, for example:

library(sjPlot)
fit = lm(mpg ~ hp,data=mtcars)
plot_model(fit,typpe="pred") + scale_x_continuous(expand=c(0,0))

score 1 · Answer 2 · answered Jun 26 '20 at 11:54

Maybe change your scale with the following addition to your ggplot:

 plot_model(mylogit, type = "pred", terms = c("ScoreEnvAtt [all]", "Guilt")) + 
 scale_colour_discrete(guide = guide_legend(title = "Guilt"), labels = c("Low", "Medium", "High")) + 
 scale_fill_discrete(guide = guide_legend(title = "Guilt"), labels = c("Low", "Medium", "High"))  +
 labs( title = "",
    x = "Environmental Attitudes",
    y = "Probability of choosing the green investment") + theme_gray(base_size = 14) + 
  theme(text=element_text(family="Times New Roman", size=12)) + 
  scale_x_continuous(limits = c(3, 7), expand = c(0, 0))

Plot in R: Gap beginning and end of the x-axis - how to remove?

2 Answers2