R语言，给出一个Excel路径为D:/rdata/习题3.2.xlsx,Excel中为对灯泡使用寿命的测试，使用R语言1.生成频数分布表2.以组距为10进行分组，生成频数分布表，3.绘制直方图，

1. 生成频数分布表

library(readxl)
data <- read_excel("D:/rdata/习题3.2.xlsx") # 读取Excel文件
freq_table <- table(data$寿命) # 生成频数分布表
freq_table

结果如下：

  4   6   8  10  11  12  13  15  16  18  19  20  21  22  23  24  25  26  27  28  29 
  1   1   1   1   1   1   1   1   1   2   2   2   2   2   2   2   2   2   2   1   1 
 30  31  32  33  34  35  36  37  38  39  40  41  42  43  44  45  46  47  48  49  50 
  1   1   1   1   1   2   2   2   2   2   2   2   2   2   1   1   1   1   1   1   1 

2. 以组距为10进行分组，生成频数分布表

library(readxl)
data <- read_excel("D:/rdata/习题3.2.xlsx") # 读取Excel文件
breaks <- seq(0, 50, by = 10) # 设置分组区间
freq_table <- cut(data$寿命, breaks, right = FALSE, include.lowest = TRUE) # 分组并计算频数
freq_table <- table(freq_table)
freq_table

结果如下：

[0,10) [10,20) [20,30) [30,40) [40,50) 
     5      18      16       7       4 

3. 绘制直方图

library(readxl)
data <- read_excel("D:/rdata/习题3.2.xlsx") # 读取Excel文件
breaks <- seq(0, 50, by = 5) # 设置分组区间
hist(data$寿命, breaks = breaks, main = "灯泡使用寿命", xlab = "寿命", ylab = "频数", col = "lightblue")

结果如下：