统计不同课程性质的的课程数量

tapply(wwt$课程名称, wwt$课程性质,NROW)

统计不同学分不同绩点的课课程数量

with(wwt,table(wwt$学分,wwt$绩点))

统计不同学分不同绩点的课程的平均分

with(wwt,aggregate(wwt$成绩,by=list(学分=wwt$学分,绩点=wwt$绩点),FUN=mean))

以上是本人做的，希望提供其他思路。