0, xlimits 0.5*binwidth
-0.5*binwidth
. width = binwidth
, . , > 0, (x+0.5)*binwidth
, .
( set.seed ):
set.seed(1)
x <- rnorm(25)
binwidth <- (range(x)[2]-range(x)[1])/10
p <- ggplot(data.frame(x=x), aes(x = x)) +
geom_histogram(aes(y = ..density..), binwidth = binwidth)
, :
x1 <- ggplot_build(p)$data
:
x1[[1]]$x
[1] -2.4764874 -2.0954894 -1.7144913 -1.3334932 -0.9524952 -0.5714971 -0.1904990 0.1904990 0.5714971
[10] 0.9524952 1.3334932 1.7144913 2.0954894
, , binwidth + 0.5 (NB, , , ):
binwidth*(floor((min(x)-binwidth/2)/binwidth)+0.5)
-2.476487
:
binwidth*(ceiling((max(x)+binwidth/2)/binwidth)+0.5)
2.095489