语音提示会自动重命名，并且不会显示所有所需的值

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))
}

亲爱的社区，

有一个包含大量观察数据的数据库。此代码段应返回一个数据库，其中包含每个客户的首选大小。但是，结果仅显示正确的第一个值，以及每个具有与第一个客户相同的首选大小的客户。所有其他值均为N / A值。 另外，在运行循环时，列的名称也会更改为：-X和“第一次观察的值”

感谢默克尔