1.下面是5个不同专业的统计学考试的平均分数。 专业 经济 会计 营销 英语 语文 平均分数 90 58 61 70 80 (1）绘制条形图，分别使用rainbow 函数和 topo.colors 函数生成的颜色填充图中 的各条， 使用两种不同代码绘制.

要在R语言中创建条形图并使用`rainbow`和`topo.colors`函数为不同专业的平均分数着色，你可以按照以下步骤操作：

1. 首先，你需要安装并加载必要的绘图库，如`ggplot2`，因为默认的R图形设备并不直接支持`rainbow`和`topo.colors`。如果你还没有安装，可以运行：

   install.packages("ggplot2")
   library(ggplot2)

2. 然后，定义数据框，包含专业名称和对应的成绩：

   scores <- data.frame(
       Subject = c("经济", "会计", "营销", "英语", "语文"),
       Score = c(90, 58, 61, 70, 80)
   )

3. 使用`ggplot2`创建条形图，并分别用`rainbow`和`topo.colors`着色：
- 用`rainbow`：

     bar_plot_rainbow <- ggplot(scores, aes(x = Subject, y = Score)) +
         geom_bar(stat = "identity", fill = rainbow(length(unique(scores$Subject)))) +
         theme_minimal()
     bar_plot_rainbow

- 用`topo.colors`：

     bar_plot_topo <- ggplot(scores, aes(x = Subject, y = Score)) +
         geom_bar(stat = "identity", fill = topo.colors(length(unique(scores$Subject)))) +
         theme_minimal()
     bar_plot_topo

4. 这两个函数会自动根据专业数量分配颜色。展示完成后，你可以保存图片或者显示到屏幕上。