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")

这很好用。但是，我想要＆＃34; 1＆＃34;和＆＃34; 2＆＃34;出现在要下标的轴标签中（即作为索引）。我环顾四周，找到了＆＃34; plotmath＆＃34;。然而，这似乎不适用于pesp()，文档说：＆＃34;表达式也可用于标题，字幕和x轴和y轴标签（但不适用于persp图上的轴标签）。＆＃34;

我也在这里搜索过，但是找不到任何对我有用的东西。

任何帮助将不胜感激！

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()