在ggplot2中，如何使stat_function受scale_x_log10的约束？(In ggplot2, how do I make stat_function subject to scale_x_log10?)

 在ggplot2 ，如何使stat_function使用与geom层相同的x比例，例如scale_x_log10 ？ 
 
 为了说明问题，请考虑以下示例： 
 
x <- rexp(100)
base <- qplot(x, geom = "density")
base + stat_function(fun = dexp, colour = "red")
 
  
 
 到现在为止还挺好。 但现在，我添加了一个比例： 
 
base + stat_function(fun = dexp, colour = "red") + scale_x_log10()
 
  

In ggplot2, how do I make a stat_function use the same x scale as the geom layer, for instance scale_x_log10?
 
To illustrate the problem, consider this example:
 
x <- rexp(100)
base <- qplot(x, geom = "density")
base + stat_function(fun = dexp, colour = "red")
 
 
So far so good. But now, I add a scale:
 
base + stat_function(fun = dexp, colour = "red") + scale_x_log10()
 

原文：https://stackoverflow.com/questions/33297813