## 用R语言计算班级各门课程的加权平均分 ##

好久没有写博客了，曾经还说坚持写博客，后来因为各种事就忘了，暑假也没坚持写，由于加了大数据班，加上参加了一个活动，以后必须就一周写一篇，而且内容应该也是与大数据内容相关。
今天正好有同学叫我帮他统计班上的成绩，并计算加权平均分。这个班有一百多个学生共15门课，这些信息存放在一个excel文件。虽然知道Excel中可以输入公式可以计算，但由于不怎么熟悉且好像比较麻烦，就想着帮他在R中实现。
步骤如下

1. 数据导入Rstudio
   
   通过知道此数据表为.xlsx格式，而Rstudio导入的数据一般是.txt和.csv比较多，对于xlsx格式我们要引用xlsx包。

    #数据导入
grade <- read.xlsx("大二学年排名.xlsx",sheetIndex = 1,header = T,encoding = "UTF-8")

因为含有中文所以改编码格式为UTF-8。
2. 编写公式代码

point <- c(2,3,1,5,4,4,4,3,1,3,6,2,3,5,4)
avg <- function(a){result <- c()for(i in 1:98){sum1 <- 0sum <- 0for(j in 3:17){if(!is.na(a[i,j])){sum <- sum + as.numeric(a[i,j])*point[j-2]sum1 <- sum1 + point[j-2]}}pavg <- sum/sum1result <- c(result,pavg)}return(result)
}

加权平均分的计算公式为每一项的科目分数乘学分值之和除学分值之和，如有空值剔除科目分数和学分值，由于我这里知道学生数和学科数所以循环直接写数值，如果数量很大不易计算可以用length（）函数来计算。

1. 结果处理
   
   将数据导入grade数据框
   grade <- data.frame(grade,avg(grade))
   然后导出文件就可以了

write.xlsx2(grade,"a.xlsx")

记住这里文件名要改成英文，不然编码会出错。