给定csv文件用r语言以组距为10进行分组生成频数分布表

假设我们的csv文件名为data.csv，其中包含一列名为score的数据，以下是代码：

# 读取csv文件
data <- read.csv("data.csv")

# 计算组数和组距
max_score <- max(data$score) # 最大值
min_score <- min(data$score) # 最小值
range_score <- max_score - min_score # 极差
class_width <- 10 # 组距
n_class <- ceiling(range_score / class_width) # 组数

# 生成频数分布表
freq_table <- data.frame(
  class = rep(NA, n_class), # 组别
  freq = rep(0, n_class), # 频数
  stringsAsFactors = FALSE
)

# 填充频数
for(i in 1:n_class) {
  # 计算组别
  lower_bound <- min_score + (i - 1) * class_width
  upper_bound <- lower_bound + class_width - 1
  freq_table$class[i] <- paste0("[", lower_bound, ", ", upper_bound, "]")
  
  # 计算频数
  freq_table$freq[i] <- sum(data$score >= lower_bound & data$score <= upper_bound)
}

# 打印频数分布表
print(freq_table)

这段代码会计算出数据的最大值、最小值和极差，然后根据给定的组距计算出组数。接着生成一个空的频数分布表，然后通过循环计算每个组别的频数。最后打印出频数分布表。