library(ggplot2)
library(dplyr)
# Course grade vs. each exam
ggplot(exam_grades, aes(x = exam1, y = course_grade)) +
geom_point()
ggplot(exam_grades, aes(x = exam2, y = course_grade)) +
geom_point()
ggplot(exam_grades, aes(x = exam2, y = course_grade)) +
geom_point()
# Semester averages
exam_grades %>%
group_by(semester) %>%
summarise(across(exam1:course_grade, mean, na.rm = TRUE))
Run the code above in your browser using DataLab