Coloumns автоматически переименовывается и не отображает все нужные значения

Question

Sizebase <- ReturnsPrediction
Sizebase <- Sizebase[order(Sizebase$customerID),]

FavSizeDF <- data.frame(CustomerID = numeric(), FavoriteColor = character())

i <- 1
o <- length(Sizebase$orderItemID)
invector <- NULL

while (i < o+1) {
  rm(PrefVal)
  invector = NULL
  rm(PrefValue)

  Loophelp = Sizebase[i,9]
    while(Loophelp == Sizebase[i,9]){
      invector <- c(invector,Sizebase[i,5])
      i <- i + 1
    }
  PrefVal <- names(sort(table(as.vector(unlist(invector))),decreasing=TRUE)[1])
  PrefValue <- c(Loophelp,PrefVal)
  FavSizeDF <- rbind(FavSizeDF, unname(PrefValue))
}

Уважаемое сообщество,

Theres база данных с довольно большим количеством наблюдений.Этот фрагмент кода должен возвращать базу данных с предпочтительным размером каждого клиента.Однако результат показывает только первое правильное значение, а также для каждого клиента с тем же предпочтительным размером, что и у первого клиента.Все остальные значения являются значениями N / A.Кроме того, имена колонн меняются во время выполнения цикла на: - X. & "значение первого наблюдения"

Спасибо, Меркель