使用自定义中断绘制直方图

Question

我有一个像：

这样的矢量

K <- rnorm(10000, mean=100)

我想创建一个K的直方图，其中包含自定义符号（和标签），例如<20, 20-50, 50-75, 75-99, =100, >400等。

有什么想法吗？

Answer 1

使用base绘图，您可能最好先cut使用向量，然后使用barplot或plot方法进行表格。

例如：

K <- rnorm(10000, mean=100, sd = 100)
K.cut <- cut(K, c(-Inf, 20, 50, 75, 100, 400, Inf))

plot(table(K.cut), xaxt='n', ylab='K')
axis(1, at=1:6, labels=c('< 20', '20-50', '50-75', '75-100', '100-400', '> 400'))
box(bty='L')

xax <- barplot(table(K.cut), xaxt='n')
axis(1, at=xax, labels=c('< 20', '20-50', '50-75', '75-100', '100-400', '> 400'))
box(bty='L')

请注意，默认情况下，cut包含每个bin中的上限（但不是下限），因此例如20-50 bin包含任何50，但20s将包含在下面邻近的垃圾箱。

Answer 2

试试ggplot版本：

library(ggplot)
ggplot()+ geom_histogram(aes(K))

许多选项可用于调整。