我的数据如下:
> 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,其中包含上述所有值。
答案 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)