2017-05-08 6 views
1

Comment écrire l'expression suivante dans la fonction parcelle R:Subscript et un script super dans R complot

$$ accélération (ms^{- 2}) $$

J'ai essayé d'utiliser expression(), mais cela ne fonctionne pas pour le texte et les équations ensemble.

[Mise à jour]

Habituellement, il ne fonctionne pas dans R Surf tracé 3D. Voici un exemple:

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) 

Répondre

0

Essayez expression(Acceleration~(ms^{-2})) comme ceci:

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

Merci! Ça marche. –

+0

Savez-vous comment déplacer la position de xlab et ylab? Mes étiquettes sont tronquées par la bordure. –

+0

Ce type de chose a été traité plusieurs fois (par exemple, http://stackoverflow.com/questions/8100765/y-axis-label-falling-outside-graphics-window). Recherche Stackoverflow et si vous ne trouvez pas la solution exacte postez une question avec un exemple reproductible du problème. – Lyngbakr