R changer le format de l'échelle sur l'axe des y

J'ai une parcelle qui a $-les montants et les dates sur l'axe des x et l'axe respectivement. Actuellement, les montants vont de $0 à 15 millions de dollars. Quelque chose comme ceci:

x <- rnorm(20)^2 * 1000000
plot(x)

R fait des trucs comme '1.0e+07' au lieu de '10,000,000' et également oriente le texte verticalement plutôt qu'horizontalement.

Mes questions sont:

1) comment puis-je obtenir le texte d'échelle pour être orientée horizontalement?

2) comment puis-je obtenir R pour utiliser 10MM au lieu de '10,000,000' ou '1.0e+07'?

source d'informationauteur screechOwl | 2012-01-18

plot r

25

1) Voir la scipen option dans ?options qui est une sanction à l'encontre de l'utilisation de la notation scientifique. Pour un meilleur contrôle, vous avez besoin de tracer l'axe à la main avec des étiquettes que vous voulez.

2) Voir las dans ?par les contrôles à l'orientation grossièrement des étiquettes de l'axe.

Pour 1):
```
x <- rnorm(20)^2 * 10000000
layout(matrix(1:2, ncol = 2))
plot(x)
getOption("scipen")
opt <- options("scipen" = 20)
getOption("scipen")
plot(x)
options(opt)
layout(1)
```
qui donne

De tracer votre propre axe essayer
```
plot(x / 10000000, axes = FALSE)
axis(1)
pts <- pretty(x / 10000000)
axis(2, at = pts, labels = paste(pts, "MM", sep = ""))
box()
```
Qui donne

Où nous utilisons pretty() pour sélectionner assez d'emplacements pour les tiques comme R, puis ajouter un axe. Notez comment nous supprimer de l'axe de dessin dans les plot() appel, puis ajouter les axes et l'intrigue cadre des appels à axis() et box().

Pour 2) combinaison avec: 1) le
```
opt <- options("scipen" = 20)
op <- par(mar = c(5,7,4,2) + 0.1) ## extra margin to accommodate tick labs
x <- rnorm(20)^2 * 10000000
plot(x, las = 1, ylab = "")       ## no y-axis label 
title(ylab = "label", line = 5.5) ## need to plot the axis label
par(op)
options(opt)
```
Qui donne

Remarquez comment nous utilisons las dans le plot() appel, et nous avons besoin de créer un peu de marge supplémentaire d'espace pour accueillir les étiquettes de graduation. Nous avons aussi besoin de tracer l'étiquette à la main sinon R va le coller dans parmi les étiquettes de graduation.

Pour l'personnalisé des étiquettes de l'axe, ajouter le las = 1 à la axis() appel:
```
op <- par(mar = c(5,5,4,2) + 0.1)
plot(x / 10000000, axes = FALSE, ylab = "")
axis(1)
pts <- pretty(x / 10000000)
axis(2, at = pts, labels = paste(pts, "MM", sep = ""), las = 1)
title(ylab = "my label", line = 4)
box()
par(op)
```
Qui produit
11

Utilisation axis avec des étiquettes personnalisées. Tout d'abord, diviser vos données par 1 million de dollars. Et puis créer une série avec le MM notation à l'aide de collage()
```
y <-rnorm(20)^2 * 1000000 /1000000
x <-11:30

plot(x,y, yaxt="n")
my.axis <-paste(axTicks(2),"MM",sep="")
axis(2,at=axTicks(2), labels=my.axis)
```
Le texte est maintenant à l'horizontale. Mais si vous rencontrez un problème d'utilisation, las=1 pour forcer les étiquettes à l'horizontale.
```
axis(2,at=axTicks(2), labels=my.axis, las=1)
```

Vous devez vous connecter pour publier un commentaire.