有以下成绩，显示所有及格人员名字，以及超过平均值的名字
张三 87
李四 68
王丹 91
张飞 50
王慧 72

name<-c("张三","李四","罗飞","王慧","张丹")
score<-c(87,68,91,50,72)
report<-data.frame(name,score)
report
report[score>60,]
report[score>mean(score),]
 name score
1 张三    87
2 李四    68
3 罗飞    91
4 王慧    50
5 张丹    72
> report[score>60,]
  name score
1 张三    87
2 李四    68
3 罗飞    91
5 张丹    72
> report[score>mean(score),]
  name score
1 张三    87
3 罗飞    91```