更改“的值”;预算案;到R中的类别级别

更改“的值”;预算案;到R中的类别级别,r,R,我(现在)有一个问题,我找不到解决办法 背景:Termpaper,主题:使用Kaggle的数据集,从imdb中获取电影数据。相关预算分析->imdb评级和收入->imdb评级 我有可变预算(最小值=11.000,最大值为300.000.000),并希望将其分类为不同级别(低预算/使用此功能: codage <-function(name,ncateg){ bornes <-quantile(name, probs = seq(0,1,by=1/ncateg), na.rm =

我(现在)有一个问题,我找不到解决办法

背景:Termpaper,主题:使用Kaggle的数据集,从imdb中获取电影数据。相关预算分析->imdb评级和收入->imdb评级

我有可变预算(最小值=11.000,最大值为300.000.000),并希望将其分类为不同级别(低预算/使用此功能:

codage <-function(name,ncateg){
    bornes <-quantile(name, probs = seq(0,1,by=1/ncateg), na.rm =TRUE ,names     = TRUE)
    Amax <-aggregate(name,list(Nom=cut(name,bornes ,include.lowest=T,label=F)),max)
    Amin <-aggregate(name,list(Nom=cut(name,bornes ,include.lowest=T,label=F)),min)
    Afreq<-as.matrix(summary(as.factor(cut(na.omit(name),bornes,include.lowest=T,label=F))))
    limites <-as.data.frame(cbind(Amin[,1],Amin[,2],Amax[,2],Afreq))
    names(limites)<-c("Classe","Mini","Maxi","Effectif")

    manques <-length(name)-length(na.omit(name))


    varfac <-cut(name,bornes ,include.lowest=T,label=F)

    as.factor(varfac)
}

codage
cut()
    data_op %>% 
  mutate(level = car::recode(data_op$level, 
                             "1:2500000 = 'Low Budget'; 
                             2500001:30000000 = 'Medium Budget';
                             30000001:199999999 = 'High Budget';
                             200000000:300000000 = 'Most Expensive Film Budget'",
                             as.factor.result = TRUE)) -> data_op