r语言如何写以下的代码：现有一excel文件（作业5第7题附件.xlsx），是某班的高数成绩数据，请作期末成绩饼图：将成绩按照小于60分，大于等于60分小于70分，大于等于70分小于80分，大于等于80分小于90分，大于等于90分划分成5个等级 （1）做饼图，并添加百分比作为主标题 （2）做出扇形图（3）做3D饼图

以下是 R 语言代码实现：

# 导入数据
data <- read.csv("作业5第7题附件.csv", header = TRUE, sep = ",")
score <- data$score

# 将成绩划分为5个等级
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 = "期末成绩饼图")

# 绘制扇形图
library(plotrix)
fan.plot(score_count, labels = score_percent, main = "期末成绩扇形图")

# 绘制3D饼图
library(plot3D)
pie3D(score_count, labels = score_percent, main = "期末成绩3D饼图")

在这个例子中，我们首先导入了数据，然后使用`cut()`函数将成绩划分为5个等级。接着，使用`table()`函数统计每个等级的人数，并使用`round()`函数计算每个等级的百分比。最后，我们使用`pie()`、`fan.plot()`和`pie3D()`函数分别绘制了饼图、扇形图和3D饼图。其中，`labels`参数用于设置每个部分的标签，`main`参数用于设置主标题。