[英]How can I add a subscript to my axis label when using persp3D function in R?
我試圖在plot3D
我的 z 軸標簽定義為 R 0 ,下面是我的代碼,我正在為我的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)
text3D()
允許表達式顯示數學注釋。 請記住將圖形參數中的xpd
設置為TRUE
,否則當超出“繪圖”區域時文本將被剪切。
persp3D(..., zlab = "", ...) # blank zlab
par(xpd = TRUE)
text3D(0, 1.4, 1, expression(R[0]), add = T)
聲明:本站的技術帖子網頁,遵循CC BY-SA 4.0協議,如果您需要轉載,請注明本站網址或者原文地址。任何問題請咨詢:yoyou2525@163.com.