Hello,
Welcome to the community!!
This might be what you are looking for:
# This has a long memory
ts.sim <- arima.sim(list(order = c(1,1,0), ar = 0.7), n = 200)
plot(ts.sim)
plot(diff(ts.sim))
acf(ts.sim)
# This has shorter memory
ts.sim <- arima.sim(n = 200, list(ar = c(0.7)),sd = sqrt(1))
plot(ts.sim)
plot(diff(ts.sim))
acf(ts.sim)
pacf(ts.sim)
But you will have to play with it to get exactly what you want.