R Программирование - функция заказа не работает правильно со столбцом on, содержащим одно- и двузначные числовые переменные

Question

Итак, я пытаюсь использовать функцию заказа, чтобы дать мне фрейм данных, отсортированный по желаемой переменной результата в наилучшей функции.Как порядок, так и лучшие функции работают нормально, если в столбце результатов только двузначные числа.

Столбец должен быть упорядочен от 8,1 до 15,8, однако в итоге результат будет от 10,0 до 15,8и от 8,1 до 10,0

best <- function(state, outcome){
  setwd('C:/users/nikumar/datasciencecoursera')
  ocm <- read.csv('outcome-of-care-measures.csv', colClasses = 'character', na.strings = "Not Available", stringsAsFactors = FALSE)
  index <- numeric()
  if ((state %in% ocm$State) == FALSE) {
    stop("invalid state")
  }
  if (outcome == 'heart attack') {
    index <- 11
  }
  else if (outcome == 'heart failure' ) {
    index <- 17
  }
  else if (outcome == 'pneumonia') {
    index <- 23
  }
  else{
    stop("invalid outcome")
  }
  ocm1 <- ocm[ocm$State == state,]
  ocm1 <- ocm1[,c(2,7,index)]
  ocm1 <- ocm1[order(ocm1[3],ocm1[1], decreasing = FALSE),]
  ocm1 <- na.omit(ocm1)
  View(ocm1)

  ocm1[1,1]

}