r code for gpa histgrams