有以下成绩，显示所有及格人员名字，以及超过平均值的名字
张三 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```