Impossibile impostare i limiti con coord_trans

Question

Ho alcuni dati che mostrano una relazione geometrica, ma hanno valori anomali. Per esempio:

x = seq(0.1, 1, 0.01) 
dat = data.frame(x=x, y=10^x) 
dat[50:60, 2] = 10 

qplot(x, y, data=dat, geom='line') 

vorrei tracciare questo utilizzando un registro di trasformare e, mentre lo zoom su una parte dei dati. So che posso fare la prima parte con coord_trans(y='log10') o la seconda parte con coord_cartesian(ylim=c(2,8)), ma non sono riuscito a combinarli. Inoltre, ho bisogno di mantenere questi punti, quindi semplicemente ritoccandoli con scale_y_continuous(limits=c(2,8)) non funzionerà per me.

C'è un modo per realizzare questo senza dover ricorrere al seguente attacco terribile? Forse un modo non documentato per passare i limiti a coord_trans?

pow10 <- function(x) as.character(10^x) 

qplot(x, log10(y), data=dat, geom='line') + 
    scale_y_continuous(breaks=log10(seq(2,8,2)), formatter='pow10') + 
    coord_cartesian(ylim=log10(c(2,8))) 

Answer 1

Questo può essere un po 'più semplice work-around:

library(ggplot2) 

x = seq(0.1, 1, 0.01) 
dat = data.frame(x=x, y=10^x) 
dat[50:60, 2] = 10 

plot_1 = ggplot(dat, aes(x=x, y=y)) + 
     geom_line() + 
     coord_cartesian(ylim=c(2, 8)) + 
     scale_y_log10(breaks=c(2, 4, 6, 8), labels=c("2", "4", "6", "8")) 

png("plot_1.png") 
print(plot_1) 
dev.off() 

Answer 2

Ho avuto lo stesso problema e ha lottato per risolverlo fino guardando più da vicino ?coord_trans (in v1.0.0 di ggplot2):

Uso

coord_trans (xtrans = "identità", ytrans = "identità", LIMx = NULL, calcareo = NULL)

modo da poter impostare le trasformazioni ei limiti allo stesso tempo, come questo:

ggplot(dat, aes(x=x, y=y)) + geom_line() + 
    coord_trans(ytrans="log10", limy=c(2,8))