R画直方图

来源：https://www.cnblogs.com/xudongliang/p/6913363.html

hist 用于绘制直方图，下面介绍每个参数的作用；

1）x: 用于绘制直方图的数据，该参数的值为一个向量

代码示例：

data <- c(rep(1, 10), rep(2, 5), rep(3, 6))

hist(data)

效果图如下：

从图中可以看出，横坐标为不同的区间，纵坐标为落入该区间内的频数；

2） break : 该参数的指定格式有很多种

第一种： 指定一个向量，给出不同的断点

代码示例：

data <- c(rep(1, 10), rep(2, 5), rep(3, 6))

hist(data, breaks = c(0.5, 1.5, 2.5, 3.5))

效果图如下：

第二种：指定分隔好的区间的个数，会根据区间个数自动去计算区间的大小

代码示例：

3）freq: 逻辑值，默认值为TRUE , y轴显示的是每个区间内的频数，FALSE, 代表显示的是频率（= 频数/ 总数）

代码示例：

par(mfrow = c(1, 2))

data <- c(rep(1, 10), rep(2, 5), rep(3, 6))

hist(data, breaks = c(0.5, 1.5, 2.5, 3.5), freq = T, main = "freq = T")

hist(data, breaks = c(0.5, 1.5, 2.5, 3.5), freq = F, main = "freq = F")

效果图如下：

4）probability : 逻辑值，和 freq 参数的作用正好相反，TRUE 代表频率， FALSE 代表频数

代码示例：

par(mfrow = c(1, 2))

data <- c(rep(1, 10), rep(2, 5), rep(3, 6))

hist(data, breaks = c(0.5, 1.5, 2.5, 3.5), probability = T, main = "probability = T")

hist(data, breaks = c(0.5, 1.5, 2.5, 3.5), probability = F, main = "probability = F")

效果图如下：

5） labels: 显示在每个柱子上方的标签，

代码示例：

hist(data, breaks = c(0.5, 1.5, 2.5, 3.5), labels = c("A", "B", "C"))

效果图如下：

6） axes : 逻辑值，是否显示轴线

代码示例：

par(mfrow = c(1, 2))

data <- c(rep(1, 10), rep(2, 5), rep(3, 6))

hist(data, breaks = c(0.5, 1.5, 2.5, 3.5), axes = T, main = "axes = T")

hist(data, breaks = c(0.5, 1.5, 2.5, 3.5), axes = F, main = "axes = F")

效果图如下：

7） col : 柱子的填充色

代码示例：

par(mfrow = c(1, 2))

data <- c(rep(1, 10), rep(2, 5), rep(3, 6))

hist(data, breaks = c(0.5, 1.5, 2.5, 3.5), col = "pink")

hist(data, breaks = c(0.5, 1.5, 2.5, 3.5), col = rainbow(3))

效果图如下：

8） border : 柱子的边框的颜色，默认为black, 当border = NA 时， 代表没有边框

代码示例：

hist(data, breaks = c(0.5, 1.5, 2.5, 3.5), col = rainbow(3), border = NA)

效果图如下：

9） densitty 和 angle , 用线条填充柱子

代码示例： density 控制填充的线条的密度

par(mfrow = c(1, 3))

data <- c(rep(1, 10), rep(2, 5), rep(3, 6))

hist(data, breaks = c(0.5, 1.5, 2.5, 3.5),  density = 1, main  = "density = 1")

hist(data, breaks = c(0.5, 1.5, 2.5, 3.5),  density = 2, main  = "density = 2")

hist(data, breaks = c(0.5, 1.5, 2.5, 3.5),  density = 3, main  = "density = 3")

效果图如下：

代码示例： angle 控制线条的角度，必须和density 参数配合使用，才能发挥作用

par(mfrow = c(1, 3))

data <- c(rep(1, 10), rep(2, 5), rep(3, 6))

hist(data, breaks = c(0.5, 1.5, 2.5, 3.5),  density = 2, angle = 45,  main  = "angle = 45")

hist(data, breaks = c(0.5, 1.5, 2.5, 3.5),  density = 2, angle = 90,  main  = "angle = 90")

hist(data, breaks = c(0.5, 1.5, 2.5, 3.5),  density = 2, angle = 180, main  = "angle = 180")

效果图如下：

最后介绍一下hist函数的返回值

data <- c(rep(1, 10), rep(2, 5), rep(3, 6))

a <- hist(data, breaks = c(0.5, 1.5, 2.5, 3.5))

a

$breaks

[1] 0.5 1.5 2.5 3.5

$counts

[1] 10  5  6

$density

[1] 0.4761905 0.2380952 0.2857143

$mids

[1] 1 2 3

$xname

[1] "data"

$equidist

[1] TRUE

attr(,"class")

[1] "histogram"

从代码中的结果可以看到，返回值是一个 histogram 类型的对象， 其中breaks 是分隔的区间，counts 是每个区间的频数，density是每个区间的频率，mids 是每个柱子的中心点；