Следующийнесколько хороших советовЯ сейчас пишу свою вторую функцию R и использую аналогичную логику. Однако я пытаюсь автоматизировать немного больше и, возможно, становлюсь слишком умным для моего же блага.

Я хочу разбить клиентов на квинтили в зависимости от количества заказов. Вот мой код для этого:

# sample data
clientID <- round(runif(200,min=2000, max=3000),0)
orders <- round(runif(200,min=1, max=50),0)

df <- df <- data.frame(cbind(clientID,orders))

#function to break them into quintiles
ApplyQuintiles <- function(x) {
  cut(x, breaks=c(quantile(df$orders, probs = seq(0, 1, by = 0.20))), 
      labels=c("0-20","20-40","40-60","60-80","80-100"))
}

#Add the quintile to the dataframe
df$Quintile <- sapply(df$orders, ApplyQuintiles)

table(df$Quintile)

0-20   20-40   40-60    60-80   80-100 
40     39      44       38      36

Вы увидите здесь, что в моих выборочных данных я создал 200 наблюдений, но только 197 перечислены черезtable, 3 остановилисьNA

Теперь есть некоторые идентификаторы клиентов, которые имеют «NA». для квинтиля. Кажется, что если бы они были на самом низком разрыве, в данном случае 1, то они не были включены в функцию вырезания.

Есть ли способ сделатьcut включая все наблюдения?