Fatal编程技术网
  • r/
  • 在R中使用persp3D函数时，如何向轴标签添加下标？

在R中使用persp3D函数时，如何向轴标签添加下标？

r 3d

在R中使用persp3D函数时，如何向轴标签添加下标？,r,3d,axes,subscript,plot3d,R,3d,Axes,Subscript,Plot3d,我试图在plot3D中将我的z轴标签定义为R0，下面是我的代码，我使用表达式表示我的zlab，但我得到的结果如所附图像所示 library(plot3D) lambda <- 1/12 sigma <- 0.4 gamma <- 0.4 beta <- 0.00007 c <-0.0034 m <- (0.08/12) mu <- 1 f <- function(x,y){(beta*(x*(m+lambda)/((m+c)*(m+lambda)+

我试图在
plot3D
中将我的z轴标签定义为R0，下面是我的代码，我使用表达式表示我的
zlab
，但我得到的结果如所附图像所示

library(plot3D)
lambda <- 1/12
sigma <- 0.4
gamma <- 0.4
beta <- 0.00007
c <-0.0034
m <- (0.08/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 = 20, theta = 300, nticks=4,
    zlab=expression('R'[0]), 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)

库（plot3D）
lambda
text3D（）
允许表达式显示数学注释。请记住将图形参数中的
xpd
设置为
TRUE
，否则文本将在超出“绘图”区域时被剪裁


基于
plot3D
的
persp
的帮助页面在
xlab、ylab、zlab下有：这些必须是字符串；表达方式不被接受。问题是字体。谢谢你，先生。这正好解决了我的问题。谢谢：）

persp3D(..., zlab = "", ...) # blank zlab
par(xpd = TRUE)
text3D(0, 1.4, 1, expression(R[0]), add = T)