How to change the x-axis scale in sjPlot package?

Question

I am working with the sjPlot package. I am plotting the predicted values of a linear model similar to the following example:

#R Version: 3.6.2
set.seed(1993)

x <- seq(1980, 2018, 2)
y <- runif(length(x), 1,100)

df <- data.frame(x,y)

library(ggplot2)
library(sjPlot)

Results <- lm(y ~ as.factor(x), data = df); summary(Results)

plot_model(Results, type = "pred", terms = c("x"))

I want to rescale the x-axis so that instead of it proceeding by every two years, i want it to proceed by every 4 years.

However, when I try to rescale the x axis using scale_x_continuous or scale_x_discrete it doesn't work, even though it is the correct code in ggplot2

#This works in ggplot:
ggplot(df, aes(x= x, y=y))+
  geom_point() +
  scale_x_continuous("Cycle", labels = seq(1980, 2018, 4), breaks = seq(1980, 2018, 4))

#But it doesn't work in sjPlot package -- as either scale_x_continuous
plot_model(Results, type = "pred", terms = c("x")) +
  scale_x_continuous("Cycle", labels = seq(1980, 2018, 4), breaks = seq(1980, 2018, 4))
  
#or  either scale_x_discrete
plot_model(Results, type = "pred", terms = c("x")) +
  scale_x_discrete("Cycle", labels = seq(1980, 2018, 4), breaks = seq(1980, 2018, 4)

How can I rescale the x-axis to proceed by 4, instead of 2?

Update

1. The only message that pops up after I run the plot code is as follows: Scale for 'x' is already present. Adding another scale for 'x', which will replace the existing scale.

2. Here is my output for plot_model code. It is the same whether I use scale_x_continuous or scale_x_discrete.

Answer 1

Just wanted to add to @chemdork123's answer that your code works fine for me as well.

#R Version: 3.6.2
set.seed(1993)

x <- seq(1980, 2018, 2)
y <- runif(length(x), 1,100)

df <- data.frame(x,y)

library(ggplot2)
library(sjPlot)

Results <- lm(y ~ as.factor(x), data = df); summary(Results)

plot_model(Results, type = "pred", terms = c("x"), show.data = TRUE) + 
  scale_x_continuous("Cycle", labels = seq(1980, 2018, 4), breaks = seq(1980, 2018, 4))
ggsave('sjplot_replicate.jpeg')

which gives me this plot:

So it seems like it's all good!