Как изменить положение шкалы оси в R с помощью функции persp3D?

Question

Я строю график поверхности, используя функцию persp3D. Однако я хотел, чтобы ноль на моей шкале оси Y (k) начинался с того же нуля с моей осью Z (R0). В настоящее время ноль на моей оси Y (K) и оси X (A) начинается в одной точке. Мне нужен ноль на оси Y и оси Z, чтобы начать в одной точке, чтобы иметь лучшее направление обзора. Я приложил два изображения, одно - мой результат, а другое - пример того, что я хотел, чтобы сюжет был. Ниже также мой код.

library(plot3D)

lambda <- 1/12
sigma <- 0.4
gamma <- 0.4
beta <- 0.00006
c <-0.0034
m <- 0.056/12
mu <- 1

f <- function(x,y){(beta*(x*(m+lambda)/((m+c)*(m+lambda)+m*y))*sigma*gamma)/((m+sigma+c)*(m+mu+c))}
x <- seq(0,1000,10)
y <- seq(0,1,0.01)
z <- outer(x,y,f)

persp3D(x=x, y=y, z=z, 
        col.palette = heat.colors, 
        phi = 15, theta = 295, nticks=5,
        zlab="", ylab = "k", xlab="A", 
        xlim = c(0, 1000), 
        ylim = c(0, 1), 
        zlim = c(0, 3.5),
        box = TRUE, border = NA, shade = .4,ticktype="detailed",scale= TRUE, expand = 0.5)
par(xpd = TRUE)
text3D(0, 1.3, 1, expression(R[0]), add = T)