persp（）軸標簽中的下標

Question

我正在嘗試使用R中的persp()函數來繪制兩個變量的函數。這是我到目前為止所擁有的：

C_unab <- function(u1, u2) {
  return(u1 * u2)
}

x <- seq(0, 1, by = 0.1)
y <- seq(0, 1, by = 0.1)

z_1 <- outer(x,y, C_unab)

persp(x, y, z_1, theta = -60, phi = 25 ,shade = 0.7,expand = 0.8 , ltheta = -60, ticktype =     "detailed",
      xlab = "u1", ylab = "u2", zlab = "Phi", col="lightblue")

這很好。 但是，我希望出現在軸標簽中的“ 1”和“ 2”帶有下標（即作為索引）。 我環顧四周，發現“積木”。 但是，這對於pesp()似乎pesp() ，並且文檔中說：“表達式還可以用於標題，字幕以及x軸和y軸標簽（ 但不能用於persp圖上的軸標簽 ）。”

我也在附近進行了搜索，但沒有找到適合我的內容。

任何幫助，將不勝感激！

Answer 1

您不能將表達式與persp一起使用，這是有據可查的限制。 通常的建議是切換到晶格：

library(lattice)
png(); print( wireframe(z_1~x+y  ,data=data.frame(x=x, y=rep(y, each=length(x)), z_1=z_1) ,  
                         xlab=expression(u[1]), ylab=expression(u[2]), zlab = "Z") ); dev.off()