-3

I have an exercise that tells me to do if the lessons are more than 5.0. I must take the students who passed the lessons to do it as bar chart. enter image description here

this is the Data_passed image.I want to make students and the grade bar chart

I did that barplot(table(student$d_grade)) but it says me student didn't find.

dataframe :

Data_passed <- structure(list(student = c(21118, 21118, 21118, 21118, 21118, 21118), course = c("C2", "C5", "C3", "C1", "C4", "C7"), year = c(2013, 2013, 2013, 2013, 2013, 2013), exam = c("F1", "F1", "F2", "F1", "S1", "S1"), grade = c(7, 7.5, 7.5, 5.8, 8.2, 6.5), d_grade = c("Good", "Very Good", "Very Good", "Medium", "Very Good", "Good")), row.names = c(NA, -6L), class = c("tbl_df", "tbl", "data.frame"))
ThomasIsCoding
  • 80,151
  • 7
  • 17
  • 65
maikl
  • 31
  • 5

1 Answers1

0

Maybe you can try this

barplot(table(Data_passed[c("student", "d_grade")]))

enter image description here

data

Data_passed <- structure(list(student = c(21118, 21118, 21118, 21118, 21118, 21118), course = c("C2", "C5", "C3", "C1", "C4", "C7"), year = c(2013, 2013, 2013, 2013, 2013, 2013), exam = c("F1", "F1", "F2", "F1", "S1", "S1"), grade = c(7, 7.5, 7.5, 5.8, 8.2, 6.5), d_grade = c("Good", "Very Good", "Very Good", "Medium", "Very Good", "Good")), row.names = c(NA, -6L), class = c("tbl_df", "tbl", "data.frame"))

ThomasIsCoding
  • 80,151
  • 7
  • 17
  • 65