R wissenschaftliche Notation in Plots

Question

Ich habe eine einfache Handlung:

#!/usr/bin/Rscript                      

png('plot.png') 

y <- c(102, 258, 2314)                   
x <- c(482563, 922167, 4462665) 

plot(x,y) 
dev.off() 

R verwendet 500, 1000, 1500, usw. für die Y-Achse. Gibt es eine Möglichkeit, wissenschaftliche Notation für die y Achse zu verwenden und * 10^3 auf die Spitze der Achse wie die Abbildung unten setzen?

Answer 1

Dies ist eine Art von Hacky Art und Weise, aber es gibt nichts falsch mit ihm.

plot(x,y/1e3, ylab="y /10^3") 

Answer 2

Wie Sie die Etiketten erhalten auf Ihre Achse auf dem verwendeten Zeichensystems abhängt (Basis, ggplot2 oder Gitter) Sie Funktionen aus scales Paket verwenden können Ihre Achsnummern zu formatieren:

library(scales) 
x <- 10^(1:10) 
scientific_format(1)(x) 
[1] "1e+01" "1e+02" "1e+03" "1e+04" "1e+05" "1e+06" "1e+07" "1e+08" "1e+09" "1e+10" 

Hier ist ein Beispiel ggplot2 mit:

library(ggplot2) 
dat <- data.frame(x = c(102, 258, 2314),                  
        y = c(482563, 922167, 4462665)) 

qplot(data=dat,x=x,y=y) + 
    scale_y_continuous(label=scientific_format(digits=1))+ 
    theme(axis.text.y =element_text(size=50)) 

EDIT Die OP hat einen besonderen Bedarf. Hier einige Ideen, die ich hier verwendet, um dies zu erreichen:

1. Sie Ihre Plotkennungen axis Funktion anpassen können.
2. Verwenden mtext, um Text in der äußeren Plotregion zu setzen
3. Verwenden Ausdruck aus den plotmath Funktionen ...

y <- c(102, 258, 2314)                   
x <- c(482563, 922167, 4462665) 
plot(x,y,ylab='',yaxt='n') 
mtext(expression(10^3),adj=0,padj=-1,outer=FALSE) 
axis(side=2,at=y,labels=round(y/1000,2)) 

Answer 3

Eine ähnliche Technik profitieren eaxis zu verwenden ist (extended/Engineering-Achse) aus dem sfsmisc Paket.

Es funktioniert wie folgt:

library(sfsmisc) 

x <- c(482563, 922167, 4462665) 
y <- c(102, 258, 2314) 

plot(x, y, xaxt="n", yaxt="n") 

eaxis(1) # x-axis 
eaxis(2) # y-axis