# 安装包
install.packages("ggplot2")
install.packages("dplyr")

# 加载包
library(ggplot2)
library(dplyr)

# 加载数据
data <- read.csv("students.csv")

# 查看数据结构
head(data)

  姓名 年龄 性别 成绩
1  张三  18  男 85
2  李四  17  女 92
3  王五  19  男 78
4 赵六  18  男 88
5  田七  16  女 95
6  刘八  20  男 72

# 创建图层
plot <- ggplot(data, aes(x = 姓名, y = 成绩)) +
  geom_bar(stat = "identity")

# 显示图层
plot

# 创建图层1
layer1 <- geom_bar(stat = "identity", fill = "blue")

# 创建图层2
layer2 <- geom_line(size = 2, color = "red")

# 创建图层3
layer3 <- geom_point(size = 3, color = "green")

# 改变图层顺序
plot <- plot +
  layer2 +
  layer1 +
  layer3

# 显示图层
plot

# 创建图层1
layer1 <- layer(geom = "bar", stat = "identity", fill = "blue")

# 创建图层2
layer2 <- layer(geom = "line", size = 2, color = "red")

# 创建图层3
layer3 <- layer(geom = "point", size = 3, color = "green")

# 改变图层顺序
plot <- plot +
  layer(above = 2, layer1) +
  layer(above = 1, layer2) +
  layer(layer3)

# 显示图层
plot

# 设置图层顺序
plot <- plot +
  scale_fill_manual(values = c("blue", "green", "red"))

# 显示图层
plot