R语言报错求解，数据类型不知道为什么错了

代码：
setwd('D:\桌面')
score <- read.table("score.txt",header=T,sep='\t')
head(score)

countscore <- function(df){
final.score <- (sum(df)-max(df)-min(df))/4
}

finalscore <- apply(as.data.frame(score)[,-1],1,countscore)
finalscore<- rbind(as.character(as.data.frame(score)[,1]),finalscore ,order(finalscore))
names(finalscore) <- c("names","score","order")
t(finalscore)

运行结果及报错内容

finalscore <- apply(as.data.frame(score)[,-1],1,countscore)
Error in sum(df) : invalid 'type' (character) of argument

我想要达到的结果

题目：文档存放了某次选秀节目10位选手的姓名和6个评委的打分记录，根据比赛规则，对每位选手的最终成绩进行分析。计算方法为：去掉一个最高分，去掉一个最低分，然后剩下的求平均。请编写一个程序，将每位选手的最终成绩存放在final.score中，要求final.score的结果里面的第一列是选手的姓名，第二列是他的最终成绩，第三列是名次。