将连续数值转换为由间隔定义的离散类别

Question

我有一个具有连续数字变量的数据框，几个月（年龄_mnths）年龄。我想制作一个新的离散变量，并根据年龄间的间隔进行年龄类别。

# Some example data
rota2 <- data.frame(age_mnth = 1:170)

我已经创建了基于的基于过程（下图），但我相信有可能更优雅的解决方案。

rota2$age_gr<-ifelse(rota2$age_mnth < 6, rr2 <- "0-5 mnths",

   ifelse(rota2$age_mnth > 5 & rota2$age_mnth < 12, rr2 <- "6-11 mnths",

          ifelse(rota2$age_mnth > 11 & rota2$age_mnth < 24, rr2 <- "12-23 mnths",

                 ifelse(rota2$age_mnth > 23 & rota2$age_mnth < 60, rr2 <- "24-59 mnths",

                        ifelse(rota2$age_mnth > 59 & rota2$age_mnth < 167, rr2 <- "5-14 yrs",

                              rr2 <- "adult")))))

我知道有剪切< / code>函数，但我无法处理它以离散 /分类的目的。

Answer 1

如果有原因您不想使用剪切，那么我不明白为什么。 剪切将对您想做的事情正常工作

# Some example data
rota2 <- data.frame(age_mnth = 1:170)
# Your way of doing things to compare against
rota2$age_gr<-ifelse(rota2$age_mnth<6,rr2<-"0-5 mnths",
                     ifelse(rota2$age_mnth>5&rota2$age_mnth<12,rr2<-"6-11 mnths",
                            ifelse(rota2$age_mnth>11&rota2$age_mnth<24,rr2<-"12-23 mnths",
                                   ifelse(rota2$age_mnth>23&rota2$age_mnth<60,rr2<-"24-59 mnths",
                                          ifelse(rota2$age_mnth>59&rota2$age_mnth<167,rr2<-"5-14 yrs",
                                                 rr2<-"adult")))))

# Using cut
rota2$age_grcut <- cut(rota2$age_mnth, 
                       breaks = c(-Inf, 6, 12, 24, 60, 167, Inf), 
                       labels = c("0-5 mnths", "6-11 mnths", "12-23 mnths", "24-59 mnths", "5-14 yrs", "adult"), 
                       right = FALSE)

Answer 2

rota2$age_gr<-c( "0-5 mnths", "6-11 mnths", "12-23 mnths", "24-59 mnths", "5-14 yrs",
                 "adult")[
           findInterval(rota2$age_mnth , c(-Inf, 5.5, 11.5, 23.5, 59.5, 166.5, Inf) ) ]

Answer 3

问题

虽然我欣赏这可能是一个旧话题，但我将在这里留下5美分，以更简洁地解决了上述输入数据以进行存储的

rotaDF <- data.frame(age_mnth = 1:170)

：避免ifelse递归＆amp;重复，我创建了一个静态数据框，该静态数据帧逐组按边界：

rotaBounds <- data.frame(buckets = c("0-5 mnths", "6-11 mnths", "12-23 mnths", "24-59 mnths", "5-14 yrs", "Adult"),
                         lowerBound = c(0, 6, 12, 24, 60, 168),
                         upperBound = c(6, 12, 24, 60, 168, 168000000))

然后，我使用边界为：

rotaBounds$age_gr <- sapply(rotaDF$age_mnth, 
                            function(x) rotaBounds[x > rotaBounds$lowerBound & x <= rotaBounds$upperBound,'buckets'])