Установить ограничения в гистограмме для оси X, включая 0 значений - PullRequest
Новая
       41

Установить ограничения в гистограмме для оси X, включая 0 значений

0 голосов
/ 25 апреля 2018

Это мои подмножества данных, из которых я строю гистограмму с выделенными значениями 0 и рисую нормальное распределение: 

values <- c(25.222222, 6.000000, 2.057143, 0.000000, 2.142857, 0.000000, 73.666667, 4.081081, 43.133333, 18.937500, 60.822222, 23.379310, 54.954412, 8.492308, 67.646250, 15.885000, 38.585859, 46.810606, 31.565152, 39.813889, 40.620000, 25.958000, 54.821429, 9.000000, 33.040476, 50.329670, 43.525641, 33.508696, 34.265385, 57.003544, 36.690434, 48.074074, 70.372222, 77.602564, 29.997436, 71.739683, 11.320000, 2.938776, 10.101562, 35.037956)

df <- data.frame(variable = "TH_part", value=values)

ggplot(df, aes(value)) + 
    geom_histogram(aes(fill = value==0), colour = "black", binwidth = 10, position="stack") + 
    scale_x_continuous(breaks = seq(0, 140, by = 20)) + 
    theme_bw() + 
    stat_function(fun=function(value, mean, sd) 10*nrow(df)*dnorm(value, mean, sd), 
                  args=fitdistr(df$value, "normal")$estimate)

normal xaxis

Однако я хотел бы расширитьxaxis до 140, чтобы иметь тот же масштаб, что и в другой гистограмме с большим количеством данных.К сожалению, мой код сбрасывает значения 0: 

ggplot(df, aes(value)) + 
    geom_histogram(aes(fill = value==0), colour = "black", binwidth = 10, position="stack") + 
    scale_x_continuous(breaks = seq(0, 140, by = 20), limits = c(0,140)) + 
    theme_bw() + 
    stat_function(fun=function(value, mean, sd) 10*nrow(df)*dnorm(value, mean, sd), 
                  args=fitdistr(df$value, "normal")$estimate)

drops 0 values

Я не понимаю, потому что 0 все еще находится в диапазоне моих пределов.Есть ли другое утверждение для управления xaxis?

...