R将频率扩展到原始计数

# 创建一个示例成绩数据集
scores <- c(85, 92, 78, 92, 88, 78, 92, 85, 88, 78)

# 定义成绩等级
breaks <- c(0, 60, 70, 80, 90, 100)
labels <- c("F", "D", "C", "B", "A")

# 将成绩分组到等级
score_levels <- cut(scores, breaks, labels = labels)

# 计算每个等级的频数
frequency_table <- table(score_levels)

# 计算每个等级的频率
total_scores <- length(scores)
frequency <- frequency_table / total_scores

# 打印结果
print(frequency_table)
print(frequency)

# 假设scores向量中包含NA值
scores_with_na <- c(85, 92, NA, 78, 92, 88, 78, 92, 85, 88, 78)

# 移除NA值
scores_clean <- na.omit(scores_with_na)

# 然后继续使用上面的方法计算频率