Попытка создать единую графику с 4 строками, представляющими 4 кадра данных в файле

Question

Мой файл выглядит примерно так. Мой файл выглядит примерно так:

Student,      HW Average,    Weekly Quiz Average,    Grade (Midterm)
1,            94,          82,               87
2,            78,          75,               79
3,            83,          72,               79
4,            97,          94,               96
5,            98,          93,               96
6,            97,          88,               93
7,            93,          88,               91
8,            77,          58,               72
9,            85,          71,               78
10,           96,          79,               90
To 66

Код, который я пытался использовать, был следующим.

library(readr)
Students <- read_csv("Julies_Data.csv", quote = ",")

library(ggplot2)

df <- data.frame(Students=r(2...66))
new.df <- NULL
for (i in seq(2, ncol(df), 2)) {
  new.df <- rbind(new.df,
      data.frame(no=i/2,
        "HW Average"         = df[, i],
        "Weekly Quiz Average"= df[, i+1],
        "Grade Midterm"      = df[, i+2]))
}

qplot("HW Average", "Weekly Quiz Average", "Grade Midterm",
  group=no, data=new.df, col=factor(no), geom="line")