首頁猿問將連續(xù)數(shù)值轉(zhuǎn)換為由間隔定義的離散類別

將連續(xù)數(shù)值轉(zhuǎn)換為由間隔定義的離散類別

R語言

墨色風(fēng)雨 2019-06-19 14:43:02

將連續(xù)數(shù)值轉(zhuǎn)換為由間隔定義的離散類別我有一個(gè)具有連續(xù)數(shù)值變量的數(shù)據(jù)框架，即以月份為單位的年齡(Age_Mnths)。我想做一個(gè)新的離散變量，基于年齡間隔的年齡類別。# Some example datarota2 <- data.frame(age_mnth = 1:170)我創(chuàng)造了ifelse基于過程(以下)，但我相信有一個(gè)更優(yōu)雅的解決方案的可能性。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")))))我知道有cut函數(shù)，但我無法處理它，因?yàn)槲业哪康氖菍?duì)其進(jìn)行離散/分類。

查看完整描述

2 回答

夢里花落0921

TA貢獻(xiàn)1772條經(jīng)驗(yàn) 獲得超6個(gè)贊

如果有什么原因你不想用cut那我就不明白為什么。cut會(huì)對(duì)你想做的事情很好

# Some example datarota2 <- data.frame(age_mnth = 1:170)# Your way of doing things to compare againstrota2$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 cutrota2$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)

反對(duì) 回復(fù) 2019-06-19

蠱毒傳說

TA貢獻(xiàn)1895條經(jīng)驗(yàn) 獲得超3個(gè)贊

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

反對(duì) 回復(fù) 2019-06-19