Report Card Names

reports <- structure(list(Teacher = structure(c(1L, 1L, 1L, 3L, 3L, 3L,
    2L, 2L, 2L), .Label = c("Black", "Blue", "Brown"), class = "factor"),
    Subject = structure(c(2L, 2L, 2L, 1L, 1L, 1L, 3L, 3L, 3L), .Label = c("English", "Math", "P.E."), class = "factor"),
    Student.Name = structure(c(3L, 1L, 2L, 3L, 1L, 2L, 3L, 1L, 2L), .Label = c("Elizabeth (Betty)", "Mary Grace (MG)", "Richard (Dick)"), class = "factor"),
    Comment = structure(c(3L, 2L, 1L, 9L, 5L, 7L, 8L, 4L, 6L), .Label = c("As her teacher, I think MG is my favorite.", "Betty procrastinates, but does good work.", "Dick is a terrible student-- why hasn't he been kicked out yet?", "Elizabeth (Betty) needs to work to communicate on the field.", "Elizabeth's work is interfering with her studies.", "Mary Grace (MG) needs to stop insulting the teacher", "Mary Grace should be a teacher someday.", "Richard (Dick) kicked more field goals than any other student.", "Richard is terrible at turning in homework"), class = "factor")),
    .Names = c("Teacher", "Subject", "Student.Name", "Comment"), class = "data.frame", row.names = c(NA, -9L))