在r中绘制直方图中的特定区域

时间:2016-02-08 20:27:24

标签: r histogram bin

我的数据如下:

  > data1415$Lön_utv
 [1]  2.500000  2.499134 11.979167  2.606635  2.299856  2.300086  2.399993  2.499763  2.499134  5.000000
[11]  2.499134  3.213068  3.497202  6.666667  3.467406  2.493373  3.976479  2.501996  2.499356  3.286318
[21]  2.503582  2.503582  2.499356  2.499356  2.499356  2.499356  2.459016  2.505516  2.499356  2.504103
[31]  2.503582  2.459016  2.503582  2.544523  5.660377  2.501949  2.503966  2.499332  2.358491  3.113852
[41]  2.499356  2.499332  2.499356  2.459016  2.499332  2.941176  2.499356  2.499356  2.499356  2.499356
[51]  3.400695  6.512312  2.504863  2.499356  2.499356  6.516168  2.503966  2.503582  3.400695  2.358491
[61]  3.899955  7.525569  2.503582  2.499236  2.283105  2.499332  2.941176  2.499356  2.503582  6.335204
[71]  5.216359  2.501495  5.936073  2.503966  2.358491  7.152135  6.072188  2.502615  6.063219 10.193115
[81]  2.504279  2.503582  2.501231  2.505728  2.500144  3.658113  2.502452  2.941176  5.000000  2.500818
[91]  2.499236  8.054799  2.500144  1.672703  2.941176  2.162162  6.072188  2.941176  3.251276  2.941176
[101]  2.501231  2.500818  7.397407  2.162162  4.860217  2.941176  2.162162  2.162162  2.162162  2.501361

如果我剪切数据,我会得到这个:

> c2 <- cut(data1415$Lön_utv, breaks = c(0:8, 20), include.lowest=TRUE)
> table(c2)
c2
[0,1]  (1,2]  (2,3]  (3,4]  (4,5]  (5,6]  (6,7]  (7,8] (8,20] 
 0      1     79     11      1      5      7      3      3 

我想要创建一个包含0-1,1-2,2-3等字符串的直方图。我的问题是我希望x轴不比8更大。这将排除8以上的所有值,所以我希望最右边的bin包含8以上的所有值。我曾尝试类似

hist(data1415$Lön_utv, breaks = c(0:8, 20), right=FALSE)

但是无法弄清楚如何使x轴不超过8,仍然可以得到一个“顶部”bin,其中包含上述所有值。

1 个答案:

答案 0 :(得分:1)

正如评论中所说,你需要一个使用垃圾箱的条形图。假设我们的数值变量在&#39;值&#39;中,我们可以计算二进制位:

dat$bin <- cut(dat$value, breaks=c(0:8,20))

然后使用ggplot,我们可以绘制计数:

ggplot(dat, aes(x=bin)) + geom_bar()

要获得百分比,我们可以让ggplot为我们计算。我们确实需要为其添加百分比。为了避免混淆,让轴从0到100%。

ggplot(dat, aes(x=bin)) + 
  geom_bar(aes(y=..count../sum(..count..))) + 
  scale_y_continuous(limits=c(0,1),labels=scales::percent)