小编Ayb*_*iev的帖子

我有一个带有连续数字变量的数据框,年龄以月为单位(age_mnths).我想创建一个新的离散变量,基于年龄间隔的年龄类别.

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

我已经创建了ifelse基于程序(下面),但我相信有可能有更优雅的解决方案.

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功能,但我无法处理它,以便我进行离散化/分类.

我想创建图形,就像上一个主题的链接一样,但是收到错误:

在grid.Call(L_textBounds,as.graphicsAnnot(x $ label),x $ x,x $ y,:在Windows字体数据库中找不到字体系列

虽然安装fonts()了"Humor Sans"和"xksd"节目.我使用的是Windows 7 64bit,R 2.15.2 RStudio 0.96.331.

任何建议如何解决？