names(cha_or)=chara[2:length(cha_or)]

for (i in 1:(length(cha_or)-1)) {

  final1_data$grade<-gsub(as.character(names(cha_or)),i,final1_data$grade)

}