R - for循环错误 - 下标越界

Question

您可以帮助以下代码吗？我不断收到错误消息“splitdata [[i]]：下标超出界限错误”。但splitdata是一个包含54个元素的列表。 任何建议表示赞赏。

for (i in (1:54)){
  if(rank == "best"){
    column1[i]<-splitdata[[c(i,1)]]
  }else if(rank == "worst"){
    column1[i]<-splitdata[[c(i,length(splitdata[[i]]))]]
  }else if(rank > length(splitdata[[i]])){
    column1[i]<-"NA"
  }else{
    column1[i]<-splitdata[[c(i,rank)]]}}