应用stat_density时coord_trans（x =＆＃34; log10＆＃34;）与scale_x_log10结合使用的行为

Question

stat_density帮助页面提供了以下示例：

(m <- ggplot(movies, aes(x=votes)) + geom_density(trim = TRUE))
m + scale_x_log10()
m + scale_x_log10() + coord_trans(x="log10")

为什么最后一行的结果与第二行不同？由于scale_x_log10在密度计算之前转换x变量，而也在log10比例上绘制，因此最后一次坐标转换似乎是多余的，但输出图形看起来并不相同。