如何使用plot3D中的persp3D()函数更改R轴比例的位置?
我正在使用函数如何使用plot3D中的persp3D()函数更改R轴比例的位置?,r,plot3d,R,Plot3d,我正在使用函数persp3D()绘制曲面图。但是,我希望y轴(k)刻度上的零开始与z轴(R0)相同。目前,y轴(k)和x轴(A)上的零点从同一点开始。我需要y轴和z轴上的零点从同一点开始,以获得更好的观察方向。我附上了两张图片,一张是我的结果,另一张是我想要的绘图示例。 下面是我的代码。 库(plot3D) lambda你不需要设置起始视角吗,比如theta=120?然后text3D(0,-2,1,表达式(R[0]),add=T)ahh非常感谢!你不需要设置起始视角吗,比如theta=120
persp3D()
绘制曲面图。但是,我希望y轴(k)刻度上的零开始与z轴(R0)相同。目前,y轴(k)和x轴(A)上的零点从同一点开始。我需要y轴和z轴上的零点从同一点开始,以获得更好的观察方向。我附上了两张图片,一张是我的结果,另一张是我想要的绘图示例。
下面是我的代码。
库(plot3D)
lambda你不需要设置起始视角吗,比如theta=120
?然后text3D(0,-2,1,表达式(R[0]),add=T)
ahh非常感谢!你不需要设置起始视角吗,比如theta=120
?然后text3D(0,-2,1,表达式(R[0]),add=T)
ahh非常感谢!
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)