如何更正下面这段代码：> score <- data$期末 > score <- as.numeric(score) > score_level <- cut(score, breaks = c(0,60,70,80,90,100), labels = c("<60", "60-69", "70-79", "80-89", ">=90")) > score_count <- table(score_level) > score_percent <- round(score_count / sum(score_count) * 100, 2) > pie(score_count, labels = score_percent, main = "x班高数期末成绩饼图with percent") Error in seq.int(x[i], x[i + 1], length.out = n) : 'length.out'必需是正整数 > library(plotrix) > fan.plot(score_count, labels = score_percent, main = "x班高数期末成绩扇形图") Error in fan.plot(score_count, labels = score_percent, main = "x班高数期末成绩扇形图") : fan.plot: x values must be positive numbers.

下面是修正后的代码：

score <- data$期末 
score <- as.numeric(score) 
score_level <- cut(score, breaks = c(0,60,70,80,90,100), labels = c("<60", "60-69", "70-79", "80-89", ">=90"), include.lowest = TRUE)
score_count <- table(score_level) 
score_percent <- round(score_count / sum(score_count) * 100, 2) 
pie(score_count, labels = score_percent, main = "x班高数期末成绩饼图with percent") 

library(plotrix) 
fan.plot(as.numeric(score_count), labels = score_percent, main = "x班高数期末成绩扇形图")

主要修改如下：

1. 在 `cut()` 函数中添加了 `include.lowest = TRUE` 参数，以处理分数为 0 的情况；

2. 在 `fan.plot()` 函数中将 `score_count` 转换为数值型向量，以避免出现错误提示。