将不同的最高分数转换为100的百分比

Question

我有三个不同的数据集，其中包括3名学生和3个科目，每个科目都有不同的最高分（125,150,200）。当所有三个最大分数不同时，如何计算标准（非部分）的每个主题的平均百分比（满分100）。在这一点上无法比较。

Class2:
section1.csv

      english        maths        science
name  score(125)   score(125)  score(125)
 sam    114          112           111
 erm    89           91            97
 asd    101         107           118


section2.csv

      english        maths        science
name  score(150)   score(150)  score(150)
 wer    141          127           143
 rahul  134           119            145
 rohit  149          135            139



section3.csv

        english        maths        science
name    score(200)   score(200)  score(200)
 vinod    178          186           176
 manoj    189          191           185
 deepak   191          178           187

P.s：输出中的预期列：

class1 englishavg mathsavg scienceavg（这些值是所有三个部分的平均百分比的总和）

这是代码片段。我试过了。

files <- list.files(pattern = ".csv") ## creates a vector with all file names in your folder

list_files  <- lapply(files,read.csv,header=F,stringsAsFactors=F)

list_files  <- lapply(list_files, function(x) x)

engav  <- sapply(list_files,function(x) mean(as.numeric(x[,2]),na.rm=T)/2)
mathav   <- sapply(list_files,function(x) mean(as.numeric(x[,3]),na.rm=T)/2)
scienceav   <- sapply(list_files,function(x) mean(as.numeric(x[,4]),na.rm=T)/2)


result  <- cbind(files,engav,mathav,scienceav)

期待提供帮助。