major_survey <-
structure(list(gpa = c(4, 3.7999999999999998, 3.9300000000000002, 
3.3999999999999999, NA, 3.8999999999999999, NA, 3.6899999999999999, 
3.2000000000000002, 3.2000000000000002, 3.52, 3.6800000000000002, 
3.3999999999999999, 3.7000000000000002, NA, 3.75, 3.2999999999999998, 
3.4249999999999998, 3.7949999999999999, 3.5, 3.8300000000000001, 
3.2999999999999998, 3.75, 4.2999999999999998, 3.1499999999999999, 
3.7000000000000002, 3.7999999999999998, 3.6299999999999999, 3.8999999999999999, 
3.294, 3.7000000000000002, 3.3999999999999999, 4, 3.3999999999999999, 
3.7000000000000002, 3.7999999999999998, 3.3999999999999999, 3.3999999999999999, 
NA, 3.3999999999999999, 3, 3.6000000000000001, 3.5670000000000002, 
3.2999999999999998, 3.3999999999999999, 3.6000000000000001, 3.6699999999999999, 
3.8199999999999998, 2.8999999999999999, 3.8999999999999999, 3.3999999999999999, 
3.6000000000000001, 3.1000000000000001, 3.3999999999999999, 3.7999999999999998, 
3.7000000000000002, 3.7000000000000002, 3.7999999999999998, 3.8999999999999999, 
3.9199999999999999, 3.7999999999999998, 3.8679999999999999, 3.3500000000000001, 
3.8500000000000001, 3.5499999999999998, 3.7000000000000002, 3.6499999999999999, 
3.125, 4, 3.25, 3.8599999999999999, 3.5, 3.4500000000000002, 
3.6000000000000001, NA, 3.8660000000000001, 3.8199999999999998, 
3.2000000000000002, 3.5, 3.7999999999999998, 3.7999999999999998, 
3.7000000000000002, 3.75, 3.2999999999999998, 3.875, 3.7000000000000002, 
3.5, NA, 3.2000000000000002, 3.5659999999999998, 3.5, 4.2999999999999998, 
3.6000000000000001, 3.2000000000000002, NA, 3.8250000000000002, 
3.8500000000000001, 3.75, 4, 3.3999999999999999, 3.8999999999999999, 
3.8250000000000002, 3.7000000000000002, 3.7999999999999998, 2.9100000000000001, 
3.5590000000000002, 3.6899999999999999, 3.2999999999999998, 3.75, 
3.8999999999999999, 3.6499999999999999, 3.5, 3.6000000000000001, 
3.6749999999999998, 3.8999999999999999, 3.6000000000000001, 3.6749999999999998, 
3.7000000000000002, 3.6600000000000001, 3.7330000000000001, 3.7000000000000002, 
2.6000000000000001, 4, 3.2000000000000002, 3.1600000000000001, 
3.7000000000000002, 3.5, 3.6499999999999999, 3.8999999999999999, 
3.7850000000000001, 3.1000000000000001, 3.1499999999999999, 3.6099999999999999, 
3.2999999999999998, NA, 3.7000000000000002, 3.7000000000000002, 
3.75, NA, 3.3999999999999999, 3.6000000000000001, 3.5, 3.7999999999999998, 
3.7000000000000002, 3.9249999999999998, 3.8399999999999999, 3.8500000000000001, 
3.4100000000000001, 3.8250000000000002, 2.9500000000000002, 3.9249999999999998, 
3.2999999999999998, 3.2999999999999998, 3.6000000000000001, NA, 
4, NA, 3.2999999999999998, 3.8900000000000001, 3.2000000000000002, 
3.9700000000000002, 3.2999999999999998, 3.2999999999999998, 3.8599999999999999, 
3.7599999999999998, 3.7999999999999998, 3.5, NA, 3.6000000000000001, 
3.5499999999999998, 3.9700000000000002, 3.9249999999999998, 3.6800000000000002, 
3.25, 3.5600000000000001, 2.8500000000000001, 3.6000000000000001, 
3.4500000000000002, 3.5, 3.1499999999999999, 3.3500000000000001, 
3.5, 3.79, 3.0219999999999998, 3.46, 3.5499999999999998, 3.9700000000000002, 
3.9249999999999998, 3.2000000000000002, 3.3999999999999999, 3.8999999999999999, 
NA, 3.6000000000000001, 3.8300000000000001, 3.7999999999999998, 
4, 3.5, 3.2999999999999998, 4, 3.1000000000000001, 3.5, 3.6200000000000001, 
3.6000000000000001, 3.7999999999999998, 3.2000000000000002, 3.9249999999999998, 
3.8399999999999999, 3.1000000000000001, 4, 3.3300000000000001, 
3.3500000000000001, 3.9249999999999998, 3, 3.6000000000000001, 
3.7000000000000002, 3.8399999999999999, 3.7999999999999998, 3.1000000000000001
), major = structure(c(3L, 3L, 3L, 2L, 2L, 3L, 2L, 3L, 3L, 3L, 
3L, 3L, 3L, 1L, 3L, 2L, 1L, 3L, 3L, NA, 2L, 3L, 3L, 3L, 2L, 3L, 
2L, NA, 1L, 3L, 1L, 2L, 2L, 1L, 2L, 3L, 2L, 3L, 2L, 3L, 3L, 3L, 
3L, 2L, 3L, 1L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 2L, 1L, 3L, 1L, 
1L, 3L, 3L, 2L, 3L, 1L, NA, 3L, 2L, 1L, 2L, 1L, 1L, 3L, 3L, 2L, 
1L, 3L, 3L, 1L, 1L, 2L, 3L, 2L, 3L, 2L, 3L, 3L, 3L, 2L, 2L, 3L, 
3L, 2L, 2L, 3L, 2L, 3L, 3L, 2L, 3L, 3L, 3L, 1L, 3L, 3L, 3L, 2L, 
3L, 2L, 1L, 3L, 3L, 2L, 3L, 3L, 2L, 3L, 3L, 3L, 3L, 2L, 3L, 3L, 
1L, 1L, 3L, NA, 2L, 2L, 3L, 3L, 3L, 3L, 2L, 2L, 3L, 1L, 1L, 1L, 
3L, 2L, 1L, 3L, 2L, 3L, 3L, 2L, 1L, 1L, 2L, 2L, 2L, 2L, 1L, 2L, 
1L, 3L, 3L, 1L, 2L, 3L, 2L, 3L, 1L, 3L, 2L, 3L, 3L, 2L, 3L, 1L, 
2L, 3L, 2L, 3L, 3L, 3L, 3L, 2L, 3L, 2L, 3L, 3L, 1L, 3L, 3L, 3L, 
3L, 3L, 3L, 2L, 2L, 2L, 1L, 3L, 2L, 3L, 3L, 1L, 3L, 3L, 3L, 3L, 
2L, 3L, 3L, 3L, 3L, 1L, 2L, NA, 2L, 3L, 2L, 3L, 3L, 3L, 3L, 3L
), .Label = c("arts and humanities", "natural sciences", "social sciences"
), class = "factor")), row.names = c(NA, -218L), class = c("tbl_df", 
"tbl", "data.frame"))