Trazo lo siguiente:
library(ggplot2)
carrots <- data.frame(length = rnorm(500000, 10000, 10000))
cukes <- data.frame(length = rnorm(50000, 10000, 20000))
carrots$veg <- 'carrot'
cukes$veg <- 'cuke'
vegLengths <- rbind(carrots, cukes)
ggplot(vegLengths, aes(length, fill = veg)) +
geom_density(alpha = 0.2)
Ahora digamos que solo quiero trazar la región entre x=-5000a 5000, en lugar del rango completo.
¿Cómo puedo hacer eso?

library(scales); ... + scale_x_continuous(limits = c(-5000, 5000), oob=squish)(el valor predeterminado esoob=censor); ver?squish,?censor: groups.google.com/forum/#!topic/ggplot2/AsJ6xpmR9tU