students %>% full_join(grades, by = "student_id") %>%
filter(student_id == "40" | student_id == "61") %>%
select(!student_id, first_name, last_name, course_id, course_name, grade) %>% View()

students %>% full_join(grades, by = "student_id") %>%
    filter(student_id == "40" | student_id == "61") %>%
    unite(c(last_name, first_name), col="fullName", sep = " ") %>%
    select(fullName, course_name, grade)