Using CUT and Quartile to generate breaks in R function

by

Try the following:

set.seed(700)

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

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"), include.lowest=TRUE)
}
df$Quintile <- sapply(df$orders, ApplyQuintiles)
table(df$Quintile)

0-20  20-40  40-60  60-80 80-100 
  40     41     39     40     40

I included include.lowest=TRUE in your cut function, which seems to make it work. See ?cut for more details.

More Related Contents:

  1. Avoid Scientific notation in cut function in R
  2. R fulfill empty cells with previous values [closed]
  3. How do I use the aggregate function to mean|count|sum up multiple columns in R?
  4. Error: could not find function … in R
  5. Simultaneously merge multiple data.frames in a list
  6. Is R’s apply family more than syntactic sugar?
  7. Extract a dplyr tbl column as a vector
  8. Easy way to export multiple data.frame to multiple Excel worksheets
  9. Sum across multiple columns with dplyr
  10. Aggregate a data frame based on unordered pairs of columns
  11. Sample from vector of varying length (including 1)
  12. Histogram with Logarithmic Scale and custom breaks
  13. Convert named list to vector with values only
  14. Using R to list all files with a specified extension
  15. File path issues in R using Windows (“Hex digits in character string” error)
  16. How to create grouped barplot with R [duplicate]
  17. What is the right way to multiply data frame by vector?
  18. How do I use functions in one R package masked by another package? [duplicate]
  19. mutate function is not updating
  20. How to reorder a legend in ggplot2?
  21. How do I clear only a few specific objects from the workspace?
  22. Object not found error with ddply inside a function
  23. How can I take pairwise parallel maximum or minimum between two vectors?
  24. R Shiny set DataTable column width
  25. Concatenate rows of a data frame
  26. How to deal with “data of class uneval” error from ggplot2?
  27. R Reading in a zip data file without unzipping it
  28. Issue with ggplot2, geom_bar, and position=”dodge”: stacked has correct y values, dodged does not
  29. Use loop to generate section of text in rmarkdown
  30. Define dimensions of an empty dataframe

Leave a Comment