cut函數就是為此而設計的。 ages <- c(5,10,15,20,25,30,35,40,45,50,55,60)get_age_group <- function(age) { cut(age, c(0, 13, 20, 29, Inf), labels = c('Kid', 'Teenager', 'Young Adult', 'Older Than That'), right = FALSE)}get_age_group(ages) This gives: [1] Kid Kid Teenager Young Adult Young Adult Older Than That [7] Older Than That Older Than That Older Than That Older Than That Older Than That Older Than ThatLevels: Kid Teenager Young Adult Older Than That 注意,這將返回一個因子。如果你不想這樣,你可以添加as.character來轉換它。