r - 使用 facet_grid 时 ggplot2 直方图会更改绘图吗？

Question

我想弄清楚为什么当我添加 facet_wrap 时使用 qplot 的直方图会发生变化。您可以找到我用于此示例的数据 here

我的 facet_grid 中的因素来自使用 cut:

library(ggplot2)
data <- read.csv("data.csv")
data$cuts <- cut(data$y, c(0, 50, 100, 500, Inf))

所以现在我有这个:

> summary(data)
       y                 x                cuts    
 Min.   :  10.00   Min.   :0.000   (0,50]   :530  
 1st Qu.:  20.75   1st Qu.:1.000   (50,100] :179  
 Median :  46.00   Median :1.000   (100,500]:258  
 Mean   : 110.18   Mean   :0.834   (500,Inf]: 33  
 3rd Qu.: 121.00   3rd Qu.:1.000                  
 Max.   :1526.00   Max.   :1.000                  

如果我只查看 cuts=="(0,50]" 的部分，它看起来不错。:

qplot(x, data=subset(data, cuts=="(0,50]"))

但是当我添加一个面网格时，y 轴都是错误的:

qplot(x, data=data) + facet_grid(cuts~., scales="free_y")

请注意，顶面的 y 轴现在只有 40 左右，而不是超过 450。唯一看起来正确的面是 (500,Inf]。

编辑:我在 R 2.14.2 中使用 ggplot 0.9.0

Answer 1

ggplot 9.1 大约在一天前发布，并且在该软件包发布中已经解决了这一问题。所以我的答案是下载 ggplot2 0.9.1 错误修复版本。

您可能还想在 geom_histogram 中使用 right 参数，如:geom_histogram(binwidth = 0.2, right = TRUE) +