첨자 및 R 플롯 슈퍼 스크립트 R 플롯 기능에 다음 식을 작성하는 방법을

Question

:

$$ 가속 (MS^{- 2}) $$

내가 expression()를 사용하려고했지만 그것은 텍스트와 방정식을 함께 작동하지 않습니다.

일반적으로는 R 서핑 3D 플롯에서 작동하지 않습니다 [업데이트]. 다음은 그 예이다 :

pm <- par("mflow") 
pmar <- par("mar") 
par(mar=c(2,2,2,2)) 
par(mflow=c(1,1)) 
velocity <- seq(0,35,length.out=50) 
acceleration <- seq(-2,3,length.out=50) 
M <- mesh(velocity,acceleration) 
alpha <- M$x 
beta <- M$y 
x<- 1* alpha 
y <- 1*beta 
z <- (1300*alpha*beta+0.5*1.20*1.97*0.33*alpha*alpha*alpha + 
    1300*9.8*0.018*alpha)/(1000*.9*.97) 

surf3D(x,y,z,colkey=FALSE,colvar=z,drap=TRUE, shade = 0.0, 
    lighting = TRUE,bty="b2",theta=40, sub="subtitle", 
    xlab = expression(Velocity~(ms^{-1})), 
    ylab = expression(Acceleration~(ms^{-2})), 
    zlab = expression(Energy consumption~(mAhs^{-1})), 
    xlim = c(0, 35), ylim=c(-2, 3), ticktype="detailed", 
    facets=FALSE,phi=10,cex.lab=1.5,font.lab=2,lwd=1.5) 

Answer 1

이 같은 expression(Acceleration~(ms^{-2}))을 시도해보십시오

plot(1:10, 1:10, xlab = expression(Acceleration~(ms^{-2})))