ggplot2直方圖在使用facet_grid時會改變圖表嗎？

Question

我試圖解決為什么在添加facet_wrap時使用qplot的直方圖發生變化的原因。 您可以在此處找到我用於此示例的數據

我的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) +

Answer 2

似乎是桑迪指示的ggplot facet_grid“忽略重復行”錯誤。 一個簡單的解決方法是添加這個do-nothing行，

data$index = seq.int(1,1000,1)

使每一行都獨一無二，你得到你想要的。