Задание имен новых вычисляемых переменных и присвоение значений с помощью функции - PullRequest
Новая
       13

Задание имен новых вычисляемых переменных и присвоение значений с помощью функции

0 голосов
/ 13 мая 2019

Я пишу функцию, которая использует ссылки из двух наборов данных (RawDataSplit и Hierarchy).Все эти наборы данных связаны.Мне нужно обобщить данные на основе функции, которая будет применяться ко всем выбранным столбцам.Я использую summarise_ для этого.

Я создал функцию, которая будет использоваться для суммирования столбцов per_qid, для расчета процента для каждого столбца.

Затем я создаю функцию с тремя аргументами: fav_fun(dataset,levelname,demo_var)

набор данных предназначен для данных, для которых нам нужны агрегации, в данном случае это RawDataSplit

levelname - это один из столбцов в RawDataSplit, по которому данные будут сгруппированы

demo_var будетбыть одной из переменных, выбранных из набора данных «Иерархия», это будет одна из демографических переменных, таких как Age.

Функция для агрегирования: 

per_qid<-function(x){
  counts<-sum(ifelse(x==4|x==5,1,0),na.rm=TRUE
  total<-sum(ifelse(x==1|x==2|x==3|x==4|x==5,1,0),na.rm=TRUE)
  #Masking and rounding
  x<- ifelse(total<masking_criteria,NA,roundUp(counts*100/total)) )
  x 
}

Функция для агрегирования файла RawDataSplit: 

fav_fun<-function(dataset,levelname,demo_var){  
  demo_var<- enquo(demo_var)
  levelname<-enquo(levelname)
  demographic<-Hierarchy[,demo_var]
  demo<-levels(demographic)
  summ_method<- paste('per_qid(',questions,')')
  summ_name<-paste0(questions,'_',demographic)
  fav <- dataset %>%
           group_by(!!levelname) %>%
           filter(status=="Complete") %>%
           filter(!!demo_var==demo[1]) %>% 
           summarise_(.dots = setNames,(summ_method,summ_name))
  fav
}

этот fav_fun генерирует ошибки различного типа иногда для summarise_, а иногда и для других переменных.Возможно, что-то не так с кавычками и квотированием переменных также.

Примерные данные для этих наборов данных: RawDataSplit: 

structure(list(QID_1 = c(4L, 3L, 5L, 2L, 5L, 5L), QID_2 = c(4L, 
3L, 5L, 2L, 5L, 5L), QID_3 = c(4L, 4L, 4L, 6L, 5L, 5L), mastercode_1 = c(NA, 
NA, NA, NA, NA, NA), mastercode_2 = structure(c(1L, 1L, 1L, 1L, 
1L, 1L), .Label = "BROLLAND", class = "factor")), row.names = c(NA, 
-6L), class = c("data.table", "data.frame"), .internal.selfref = <pointer: 0x00372498>)

Вопросы: 

c("QID_1", "QID_10", "QID_11")

Иерархия: (на данный момент я включил только один столбец, который является Age, мне нужно использовать его как demo_var в функции) 

structure(c(NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, 
NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, 4L, 4L, 
NA, 4L, NA, 3L, 3L, 2L, 4L, 3L, 3L, 3L, 4L, 5L, 4L, NA, NA, 3L, 
3L, 3L, 5L, 3L, 3L, 4L, NA, 4L, 4L, 3L, 3L, 4L, 3L, 4L, 3L, 4L, 
4L, NA, 4L, 3L, 4L, 3L, 4L, 4L, NA, 5L, 4L, 3L, 4L, 3L, 4L, 3L, 
NA, NA, 3L, NA, 3L, 4L, 3L, 3L, NA, 4L, 4L, 4L, 4L, 3L, 4L, 3L, 
2L, 2L, 3L, 4L, 4L, 2L, 2L, 4L, 2L, 2L, 4L, 2L, 2L, 4L, 3L, 2L, 
3L, 4L, 4L, 3L, 4L, NA, 2L, 2L, 3L, 3L, 1L, 2L, 2L, NA, 3L, NA, 
NA, NA, 4L, 4L, 3L, 4L, 3L, 3L, 4L, 2L, 5L, 4L, 2L, NA, 4L, 2L, 
4L, 2L, NA, 4L, NA, 4L, 3L, 4L, 4L, 4L, 3L, 4L, NA, 3L, 3L, 3L, 
3L, 5L, 3L, 3L, 2L, 4L, 4L, NA, 4L, NA, 3L, 3L, 4L, 5L, NA, 4L, 
NA, 2L, 4L, NA, NA, 2L, NA, 4L, NA, NA, 4L, 4L, 4L, NA, 4L, 4L, 
4L, 3L, 3L, 3L, 4L, 4L, 5L, 4L, 3L, 3L, 3L, 2L, 3L, 5L, 4L, 3L, 
3L, 4L, 3L, NA, 4L, 4L, 5L, 3L, NA, 4L, NA, 3L, 3L, 3L, 4L, NA, 
3L, 3L, NA, 4L, 3L, 4L, 3L, 3L, 4L, 4L, 3L, NA, 3L, 3L, 2L, 4L, 
NA, 3L, 5L, NA, NA, 2L, NA, 2L, 3L, 3L, NA, 4L, NA, 5L, 2L, 4L, 
4L, 5L, 3L, 4L, 4L, 2L, 2L, NA, 2L, 5L, 3L, 2L, 4L, 2L, 3L, NA, 
2L, 4L, 2L, NA, 3L, NA, 2L, 5L, 3L, NA, 4L, 2L, 3L, 2L, 2L, 2L, 
2L, NA, NA, NA, NA, NA, 4L, 5L, NA, 3L, 4L, 3L, 2L, 3L, 3L, 3L, 
3L, 3L, 4L, 3L, NA, 3L, 4L, NA, 3L, 3L, 4L, NA, NA, 4L, NA, 3L, 
NA, 4L, 3L, 3L, NA, NA, 3L, NA, NA, 2L, NA, 2L, 3L, 4L, 5L, 3L, 
4L, NA, NA, 2L, 4L, 2L, 2L, 2L, 4L, 2L, NA, NA, 4L, NA, NA, 4L, 
3L, 3L, 2L, 2L, NA, 2L, 4L, 4L, NA, 4L, NA, 3L, 3L, 1L, 4L, NA, 
NA, 3L, 2L, 2L, NA, 2L, 5L, 4L, 2L, NA, NA, 2L, 5L, NA, NA, 3L, 
3L, 1L, NA, 2L, 2L, 5L, NA, 4L, 3L, 4L, 2L, 2L, NA, 2L, NA, 4L, 
NA, 4L, 2L, 4L, NA, 2L, NA, 3L, 4L, 4L, 2L, NA, NA, NA, 2L, 3L, 
4L, 4L, 3L, 3L, 2L, 2L, 2L, 2L, 3L, 4L, 3L, 3L, 2L, 3L, 4L, NA, 
4L, 3L, 4L, 2L, 4L, 4L, 4L, 2L, NA, 3L, NA, 3L, NA, 3L, 4L, 4L, 
3L, 4L, 3L, 2L, 4L, 5L, 3L, 3L, NA, 3L, NA, NA, NA, NA, 2L, NA, 
NA, NA, NA, NA, NA, 3L, NA, 2L, NA, 4L, NA, 3L, NA, NA, 3L, NA, 
NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, 4L, NA, 
2L, NA, NA, NA, NA, 3L, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, 
NA, 3L, NA, NA, NA, NA, 2L, NA, 2L, 2L, NA, 3L, NA, NA, NA, NA, 
NA, NA, NA, 2L, NA, 2L, 3L, NA, 2L, NA, 2L, 3L, 3L, NA, 2L, 4L, 
3L, NA, NA, NA, NA, NA, NA, NA, 2L, NA, NA, NA, NA, NA, NA, NA, 
3L, NA, NA, NA, 4L, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, 
NA, NA, 2L, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, 
NA, NA, NA, NA, NA, NA, 4L, NA, NA, NA, NA, NA, NA, NA, NA, NA, 
NA, 2L, NA, NA, 2L, 4L, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, 
2L, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, 2L, NA, NA, NA, NA, 
NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, 3L, 
NA, 3L, 3L, 2L, 2L, NA, 3L, 1L, NA, NA, NA, 4L, 2L, NA, NA, NA, 
NA, NA, 5L, NA, NA, NA, NA, 2L, NA, NA, NA, NA, NA, NA, NA, NA, 
NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, 
NA, NA, 4L, NA, NA, NA, NA, NA, NA, NA, 5L, NA, NA, NA, NA, NA, 
NA, NA, NA, NA, 2L, NA, NA, NA, NA, 2L, NA, NA, NA, 2L, NA, NA, 
NA, NA, 3L, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, 2L, 4L, NA, 
NA, NA, NA, NA, 2L, 3L, 2L, 5L, NA, 2L, NA, 1L, 2L, NA, NA, 2L, 
4L, 4L, NA, 3L, 3L, NA, 3L, 3L, NA, NA, NA, 4L, 4L, NA, NA, NA, 
NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, 
3L, NA, NA, 2L, NA, NA, NA, NA, 3L, 3L, NA, NA, NA, NA, NA, 3L, 
NA, 3L, 2L, 2L, 2L, 3L, 4L, 2L, 3L, 4L, 2L, 2L, 3L, 3L, 2L, 2L, 
2L, 2L, 2L, 2L, 2L, 2L, 1L, 2L, 5L, 2L, 2L, 2L, 2L, 3L, 2L, 3L, 
2L, 3L, 4L, 4L, 3L, 4L, 3L, 4L, 4L, 3L, 2L, 2L, 2L, 4L, 4L, 2L, 
3L, 4L, 3L, 3L, 4L, 4L, 4L, 2L, 2L, 3L, 3L, 2L, 3L, 2L, 4L, 3L, 
2L, 3L, 3L, 4L, 4L, 2L, 2L, 3L, 3L, 2L, 2L, 2L, 2L, 2L, 4L, 3L, 
2L, 2L, 2L, 3L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 3L, 4L, 2L, 3L, 
3L, 3L, 3L, 2L, NA, 3L, NA, 4L, 4L, 5L, 5L, 4L, 4L, 4L, NA, 4L, 
5L, 4L, 4L, 3L, 3L, NA, NA, 3L, 4L, 3L, 5L, 2L, 3L, 2L, 3L, 3L, 
3L, 3L, 4L, NA, NA, 2L, 2L, NA, 2L, 3L, 3L, 2L, 4L, NA, 1L, NA, 
4L, NA, 2L, 2L, 3L, 2L, 4L, NA, 3L, 2L, 3L, 2L, 2L, NA, 2L, 2L, 
NA, 4L, 3L, 3L, NA, NA, 4L, 2L, 3L, 4L, 4L, 3L, 3L, NA, 3L, 2L, 
NA, 4L, NA, 3L, 4L, 3L, 4L, 3L, 2L, 3L, NA, 3L, NA, 3L, 4L, 3L, 
NA, 2L, NA, 3L, 2L, 3L, 3L, 2L, 1L, 2L, 2L, 3L, NA, 2L, 2L, 4L, 
2L, 3L, 3L, 3L, 2L, 3L, 3L, 2L, 4L, 2L, NA, 3L, 2L, 2L, 2L, NA, 
4L, 3L, 3L, 3L, 3L, 2L, 3L, 3L, 4L, 3L, 3L, 5L, 3L, 3L, NA, 2L, 
1L, 3L, NA, 2L, 2L, 3L, 2L, 3L, 3L, 4L, 4L, 3L, 3L, 2L, 1L, 2L, 
3L, 3L, 2L, 3L, 3L, 2L, 3L, 3L, 3L, NA, 2L, 3L, 2L, 2L, 3L, 2L, 
2L, 2L, 3L, 3L, 3L, 3L, 2L, 2L, 1L, 3L, 2L, 3L, 3L, 2L, 1L, 4L, 
2L, 2L, 3L, 3L, NA, 3L, 3L, 3L, 3L, 4L, 2L, NA, 2L, 3L, 3L, 2L, 
3L, 3L, 3L, 2L, 2L, 2L, 3L, 2L, 2L, 3L, 2L, NA, 1L, NA, 2L, 2L, 
2L, 2L, 2L, 2L, 3L, NA, 2L, NA, 2L, 1L, 2L, 2L, 3L, 2L, 2L, 4L, 
NA, 2L, 3L, 3L, 2L, NA, 2L, 2L, 1L, 2L, 2L, 4L, 3L, 2L, 3L, 3L, 
3L, NA, 2L, 4L, 2L, 2L, 3L, 3L, 2L, 2L, NA, 3L, 3L, 2L, NA, 3L, 
2L, 2L, 2L, 1L, 2L, 2L, 2L, 4L, 2L, 3L, NA, 2L, 2L, 2L, 2L, 2L, 
NA, 2L, 3L, 3L, 2L, NA, 3L, 1L, 3L, NA, 2L, 1L, 2L, NA, 2L, 2L, 
NA, NA, 2L, 2L, 1L, 3L, 2L, 4L, 2L, 4L, 2L, 3L, 1L, 3L, 3L, 2L, 
1L, 5L, 4L, 2L, 3L, 2L, 2L, 3L, 2L, 4L, 3L, 2L, 2L, 3L, 3L, 3L, 
2L, 2L, 3L, 3L, 2L, 2L, 2L, 2L, 3L, 3L, 3L, 3L, NA, 4L, 2L, 4L, 
3L, 2L, 1L, 2L, 2L, 1L, 1L, 1L, 2L, 1L, 1L, 3L, NA, 2L, 2L, NA, 
2L, 1L, 3L, 4L, 2L, 1L, 3L, 2L, 2L, 1L, 3L, 3L, NA, 2L, 3L, 1L, 
2L, 1L, 1L, 2L, 1L, NA, 2L, 1L, NA, 2L, NA, NA, 1L, 2L, 2L, 2L, 
1L, 2L, 2L, 1L, 2L, 2L, 3L, 2L, 1L, NA, 2L, 4L, 1L, 2L, 3L, 2L, 
3L, 1L, 1L, 2L, 1L, 3L, 2L, 2L, 3L, NA, 1L, 3L, NA, 2L, NA, 2L, 
NA, NA, NA, 3L, 1L, 1L, 1L, 1L, 1L, 4L, 2L, 1L, 2L, 2L, 3L, 2L, 
1L, 3L, 1L, 1L, 2L, 1L, 1L, 1L, 1L, 1L, 2L, 1L, NA, 1L, 1L, 2L, 
2L, 2L, 3L, 2L, 2L, NA, 2L, 3L, 3L, 2L, 1L, 1L, 2L, 2L, 1L, 2L, 
1L, 3L, 2L, 3L, 2L, 2L, 2L, 1L, 4L, 2L, 2L, 2L, 3L, 3L, 4L, 2L, 
1L, 3L, 3L, 2L, 3L, 2L, 4L, 2L, 2L, 2L, 5L, 3L, 2L, 1L, 4L, 4L, 
3L, 3L, 4L, 3L, 3L, 4L, 3L, 2L, 3L, 4L, 2L, 4L, 3L, 3L, NA, NA, 
NA, 3L, 3L, NA, 4L, 3L, 3L, 3L, 2L, 3L, 1L, 3L, 3L, 3L, 3L, 5L, 
3L, 3L, 3L, 4L, 3L, 3L, NA, 3L, 3L, 3L, 3L, 3L, 3L, 2L, 1L, 3L, 
NA, 1L, 3L, 3L, 4L, 3L, 3L, 2L, 3L, 4L, 1L, NA, 2L, 2L, 3L, 3L, 
2L, 4L, 2L, 1L, 2L, NA, 3L, 2L, 3L, 2L, 4L, NA, 4L, 3L, 3L, 3L, 
2L, 2L, 3L, 2L, 2L, 3L, 3L, 3L, 3L, NA, 4L, 4L, 4L, 5L, 4L, 4L, 
4L, 4L, 4L, 4L, 4L, 4L, 4L, 3L, 4L, 3L, 4L, 3L, 3L, 4L, 3L, 3L, 
4L, 3L, 3L, 3L, 3L, 4L, 4L, 3L, 3L, 2L, 4L, NA, 4L, 3L, 2L, 2L, 
2L, 3L, 2L, 3L, 2L, 3L, 2L, 3L, 3L, 2L, 4L, 3L, 4L, 4L, 3L, 3L, 
2L, 2L, 3L, 2L, 3L, 2L, 3L, 3L, 2L, 2L, 3L, 3L, 2L, 3L, 2L, 2L, 
4L, 3L, 3L, 2L, 3L, 2L, 3L, 3L, 3L, 3L, 3L, 2L, 3L, 3L, 2L, 3L, 
4L, 2L, 2L, 2L, 2L, 3L, 3L, 3L, 3L, 2L, 3L, 4L, 3L, 4L, 3L, 4L, 
3L, 3L, 3L, NA, 3L, 3L, 2L, 2L, 2L, 2L, NA, 3L, 2L, 4L, 2L, 2L, 
2L, 1L, 2L, 3L, 2L, 4L, 2L, 3L, 4L, 4L, 4L, 3L, 4L, NA, 3L, 3L, 
3L, 3L, 4L, 2L, NA, 4L, 4L, 4L, 3L, 2L, 3L, 3L, 3L, 4L, 5L, 4L, 
4L, 1L, 4L, 5L, 4L, 4L, 4L, 5L, 4L, 3L, 4L, 4L, 3L, 4L, 4L, 3L, 
3L, 4L, 3L, 3L, 3L, 3L, 4L, 5L, 4L, 3L, 4L, 4L, 3L, 3L, 4L, 4L, 
4L, 3L, 3L, 2L, 2L, 2L, 2L, 3L, 2L, 3L, 4L, 5L, 3L, 4L, 5L, 3L, 
4L, 3L, 3L, 4L, NA, 3L, 3L, 3L, 3L, 3L, 3L, NA, 2L, NA, 4L, 2L, 
2L, 2L, NA, 4L, 5L, 4L, 3L, 3L, 3L, 3L, 3L, 3L, 4L, 1L, 1L, 3L, 
3L, 3L, 3L, 4L, 3L, 3L, 4L, NA, NA, 4L, NA, 3L, 3L, 5L, 3L, 3L, 
3L, 4L, 4L, 3L, 4L, 3L, NA, NA, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 
3L, 3L, 3L, NA, 3L, 2L, 5L, 4L, 2L, 1L, 1L, 2L, 2L, 4L, NA, 3L, 
4L, 5L, 4L, 3L, 4L, 4L, 3L, 3L, 4L, 4L, 4L, 3L, 3L, 3L, NA, 3L, 
3L, 3L, 3L, 4L, 3L, 4L, 3L, 3L, 4L, 3L, NA, 3L, 3L, 2L, NA, 3L, 
4L, 3L, 4L, 3L, 3L, 3L, 3L, 2L, 3L, 2L, 2L, 3L, 2L, 5L, 4L, 4L, 
4L, NA, 3L, 3L, 4L, 4L, 3L, 3L, 3L, 4L, 5L, 3L, 3L, 4L, 3L, 3L, 
3L, 3L, 3L, 3L, 3L, 2L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 2L, 3L, 
2L, 3L, 2L, 2L, NA, 4L, 2L, 5L, 5L, 4L, 4L, 4L, 3L, 4L, 4L, 4L, 
4L, 3L, 4L, 3L, 4L, 4L, 3L, 3L, 3L, 4L, 4L, 4L, 4L, 5L, 4L, 4L, 
3L, NA, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 3L, 3L, 4L, 4L, 
4L, 3L, 4L, 4L, 4L, 4L, 4L, 4L, 3L, 3L, 3L, 3L, 3L, 4L, 5L, 3L, 
3L, 4L, 1L, 4L, 4L, 4L, 3L, 4L, 2L, NA, 4L, 4L, 3L, 4L, 3L, 4L, 
5L, 4L, 4L, 4L, 4L, 4L, 3L, 4L, 5L, 4L, 5L, NA, NA, 3L, 4L, 4L, 
4L, 4L, 5L, 5L, 4L, 4L, 3L, 2L, 2L, 2L, 3L, 3L, 3L, 3L, 3L, 2L, 
4L, 2L, 3L, 2L, 3L, 2L, 2L, 3L, 3L, 3L, 2L, 2L, 2L, 2L, 2L, 2L, 
2L, 2L, 2L, 2L, 2L, 2L, 3L, 3L, 2L, 3L, 3L, 3L, 4L, 2L, 2L, 2L, 
3L, 3L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 
3L, 2L, 3L, 3L, 2L, 2L, 3L, 3L, 3L, 3L, 3L, 2L, 2L, 2L, 3L, 2L, 
2L, 3L, 3L, 3L, 3L, 3L, 3L, 2L, 2L, 2L, 2L, 2L, 3L, 3L, 2L, 3L, 
3L, 3L, 2L, 2L, 3L, 3L, 3L, 3L, 2L, 2L, 3L, 2L, 3L, 3L, 3L, 3L, 
2L, 3L, 2L, 3L, 3L, 2L, 3L, 2L, 3L, 3L, 3L, 3L, 3L, 2L, 2L, 2L, 
2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 
2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 
2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 
2L, 2L, 2L, 1L, 2L, 1L, 2L, 2L, 2L, 1L, 2L, NA, 2L, 2L, 1L, 2L, 
2L, 2L, 2L, 2L, 2L, 3L, 2L, 4L, 3L, 3L, 2L, 2L, 2L, 3L, 2L, 3L, 
3L, 4L, 4L, 4L, 5L, NA, 5L, NA, NA, 4L, NA, NA, 4L, NA, 5L, 4L, 
NA, 5L, 3L, 3L, 5L, 2L, 5L, 4L, 5L, 5L, 5L, 5L, 4L, 2L, 5L, 3L, 
5L, 3L, 2L, 4L, 4L, 1L, NA, 3L, 5L, 2L, 3L, 2L, 1L, 3L, 1L, 1L, 
2L, 1L, 2L, 4L, 5L, 4L, NA, 4L, 4L, 4L, 5L, 4L, 4L, 4L, NA, 4L, 
4L, 4L, NA, 3L, 4L, NA, 2L, 4L, 4L, NA, 2L, 3L, 3L, NA, 3L, 2L, 
2L, NA, 4L, NA, NA, NA, 2L, NA, 2L, 3L, 5L, 5L, 5L, NA, 4L, 5L, 
5L, 3L, 3L, NA, 4L, NA, 2L, 2L, 4L, 3L, 3L, 4L, 3L, 5L, 5L, 4L, 
5L, 4L, 5L, 5L, 3L, 4L, 3L, 4L, 4L, 4L, 2L, 2L, 4L, 2L, 2L, 3L, 
2L, 3L, 2L, 2L, 3L, 3L, 3L, 4L, 5L, 3L, NA, NA, 4L, NA, 4L, 5L, 
2L, 1L, NA, 4L, 2L, 4L, 1L, 5L, 3L, 4L, 4L, NA, 3L, 4L, 4L, 3L, 
NA, 2L, 2L, 3L, 4L, 4L, 4L, 4L, 3L, 3L, 3L, 4L, 3L, 3L, 3L, NA, 
4L, NA, 4L, 4L, 3L, 4L, 4L, 3L, 1L, 3L, NA, 2L, 1L, 4L, NA, 4L, 
1L, 4L, 5L, 3L, 3L, 1L, 2L, 4L, 3L, NA, 4L, 5L, 4L, 4L, 3L, 2L, 
NA, 2L, 2L, 1L, 4L, 3L, 3L, 2L, 2L, 4L, 4L, 4L, 5L, NA, 2L, NA, 
3L, 2L, 2L, 2L, 2L, NA, 4L, 5L, NA, NA, 3L, NA, NA, 4L, 3L, 4L, 
3L, 4L, 4L, 3L, 4L, NA, 3L, 5L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 
NA, 3L, 3L, 4L, 4L, NA, NA, NA, NA, NA, 3L, NA, NA, NA, 5L, NA, 
5L, 3L, 4L, NA, 5L, 4L, NA, NA, 4L, 3L, 5L, NA, 3L, 3L, NA, NA, 
4L, 2L, 2L, NA, NA, 3L, 4L, 2L, NA, 2L, 1L, 3L, NA, 3L, 4L, 1L, 
4L, NA, NA, 5L, NA, NA, NA, 5L, NA, NA, 4L, NA, NA, NA, 4L, 4L, 
4L, 2L, NA, NA, 3L, NA, NA, NA, NA, NA, 3L, 2L, 2L, 5L, 1L, 5L, 
4L, 4L, 2L, 3L, 2L, NA, 3L, 4L, 3L, 4L, 4L, 3L, 4L, 4L, NA, 2L, 
NA, NA, 2L, 1L, NA, 1L, NA, 2L, 4L, 2L, 3L, 3L, 4L, NA, 4L, 4L, 
3L, NA, 3L, 2L, NA, 2L, 3L, 1L, 4L, NA, 3L, NA, 3L, NA, 3L, 2L, 
2L, 2L, 3L, 4L, 4L, 5L, 5L, 4L, NA, NA, 5L, NA, 4L, NA, 3L, 3L, 
5L, 2L, NA, 3L, 4L, 4L, 2L, 4L, 4L, NA, 3L, 2L, 2L, 4L, 1L, 3L, 
2L, 2L, 4L, 2L, 3L, 4L, 2L, 2L, 3L, 2L, NA, NA, 4L, 4L, NA, NA, 
5L, NA, 5L, NA, 4L, 4L, 4L, 2L, 4L, NA, NA, 3L, 2L, 5L, 3L, 2L, 
3L, 4L, 3L, 1L, 2L, 1L, 1L, 2L, NA, 3L, 3L, 3L, 4L, NA, 4L, NA, 
3L, NA, 2L, 3L, NA, 2L, 1L, 3L, 4L, 4L, 3L, 1L, 2L, 1L, NA, 3L, 
NA, 2L, 3L, 3L, 2L, 4L, 3L, 4L, 3L, 3L, 3L, 4L, 3L, 3L, 3L, 4L, 
4L, 3L, 3L, 4L, 3L, 4L, 3L, 3L, 4L, 3L, 4L, 4L, 3L, 4L, 3L, 3L, 
4L, 3L, 3L, 3L, 3L, NA, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 1L, 3L, 
1L, 3L, NA, 2L, 3L, 3L, 3L, 2L, 3L, 3L, 2L, 2L, NA, 2L, 2L, 2L, 
3L, 2L, 2L, 2L, 1L, NA, 3L, 3L, NA, 3L, 2L, 4L, 3L, 3L, 2L, 3L, 
3L, 2L, 3L, 3L, 2L, 3L, NA, 3L, 3L, 4L, 2L, 3L, 4L, 4L, 3L, 3L, 
3L, 3L, 3L, 3L, 2L, 4L, 4L, 3L, 4L, 3L, 3L, 3L, 2L, NA, 2L, 2L, 
3L, 3L, 2L, 4L, 3L, 4L, 4L, 4L, 3L, 3L, 2L, 3L, 2L, 3L, 3L, 4L, 
3L, 3L, 5L, 3L, 2L, 4L, 4L, 3L, 5L, 3L, 3L, 4L, 3L, NA, 3L, 1L, 
2L, 3L, 1L, 1L, 1L, 2L, 3L, 2L, 3L, 4L, 4L, 2L, 3L, 4L, 2L, 3L, 
2L, 4L, NA, 3L, 2L, 3L, 3L, 3L, 2L, 3L, 2L, 3L, 2L, 3L, 2L, 2L, 
3L, 3L, NA, NA, NA, NA, NA, 3L, NA, 3L, NA, NA, NA, NA, 3L, NA, 
4L, NA, NA, NA, NA, NA, NA, NA, NA, NA, 4L, 3L, NA, 5L, 5L, NA, 
3L, NA, NA, NA, NA, NA, NA, NA, 3L, NA, 4L, 3L, NA, NA, NA, NA, 
NA, NA, NA, NA, NA, NA, 4L, NA, NA, NA, NA, NA, NA, NA, NA, NA, 
NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, 5L, NA, NA, 4L, 4L, NA, 
NA, NA, NA, NA, 4L, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, 
4L, NA, NA, 3L, 3L, NA, 3L, NA, NA, NA, NA, NA, NA, NA, NA, NA, 
NA, 4L, NA, NA, NA, NA, 4L, 4L, 3L, 3L, NA, NA, NA, NA, 3L, NA, 
NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, 
NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, 
NA, NA, NA, NA, NA, 4L, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, 
NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, 
3L, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, 
NA, NA, NA, 4L, NA, NA, NA, NA, 3L, NA, 3L, NA, 4L, 3L, NA, NA, 
NA, 4L, NA, 3L, NA, NA, NA, 4L, 3L, NA, NA, 3L, 3L, NA, NA, NA, 
NA, NA, NA, 3L, NA, NA, 4L, NA, 5L, NA, NA, 4L, NA, NA, NA, NA, 
NA, 5L, 4L, NA, 5L, NA, 2L, 2L, NA, NA, NA, NA, NA, NA, NA, NA, 
5L, NA, NA, NA, NA, NA, NA, 5L, NA, NA, NA, NA, NA, NA, NA, NA, 
NA, NA, NA, NA, 5L, NA, 3L, 2L, NA, 5L, NA, NA, NA, NA, NA, NA, 
NA, 2L, 2L, NA, 3L, NA, 4L, NA, 4L, 5L, 4L, 4L, NA, NA, 4L, NA, 
NA, 5L, 4L, NA, NA, 3L, 5L, NA, 5L, NA, NA, NA, 3L, 3L, 5L, 5L, 
3L, 3L, NA, 2L, 1L, 5L, 5L, NA, 4L, 5L, 5L, NA, NA, NA, NA, NA, 
NA, NA, NA, NA, 5L, 1L, 2L, 4L, 5L, 1L, NA, NA, 3L, NA, NA, NA, 
4L, NA, NA, NA, 4L, 4L, NA, NA, 5L, 4L, 4L, NA, NA, 4L, 4L, 3L, 
4L, 3L, 2L, 2L, NA, 3L, 3L, 3L, 2L, 3L, 2L, 2L, 2L, 2L, 2L, 2L, 
2L, 2L, 2L, 2L, 2L, 2L, NA, 2L, 3L, 3L, 3L, 3L, 3L, 3L, 2L, 3L, 
3L, 2L, NA, 3L, 2L, 3L, 3L, 4L, 3L, 3L, 4L, 3L, 4L, 4L, 3L, 2L, 
2L, 3L, 3L, 3L, 2L, 3L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 3L, 3L, 3L, 
3L, 3L, 3L, 2L, 3L, 4L, 3L, 3L, 3L, 2L, 3L, 3L, 3L, 3L, 3L, 3L, 
3L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, NA, 2L, 2L, 2L, 
2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 
2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 3L, 3L, 3L, 2L, 3L, 2L, 2L, 
3L, 2L, 2L, 2L, 2L, 2L, 3L, 2L, 2L, 3L, 3L, 3L, 3L, 3L, 2L, 3L, 
3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 2L, 3L, 3L, 2L, 3L, 3L, 3L, 3L, 
3L, 2L, 2L, 4L, 2L, 2L, 1L, 2L, 2L, 3L, 3L, 3L, 3L, 4L, 4L, 5L, 
4L, 5L, 3L, 4L, 4L, 4L, 3L, NA, 4L, 3L, NA, 4L, 3L, 5L, 5L, 4L, 
4L, NA, 3L, 4L, 4L, NA, 3L, NA, 4L, 3L, 3L, 3L, 4L, NA, 4L, 3L, 
3L, 5L, 3L, 5L, 3L, 4L, 4L, NA, 3L, 4L, NA, 5L, 3L, 4L, 3L, 4L, 
3L, 3L, 4L, NA, 3L, NA, 3L, 3L, NA, 2L, NA, 4L, 4L, NA, 3L, 3L, 
4L, 3L, 3L, 3L, 4L, NA, NA, NA, NA, 5L, 4L, 4L, 5L, 4L, 4L, 3L, 
NA, 3L, 3L, NA, 4L, 3L, 4L, NA, 4L, 4L, 4L, 4L, 4L, 4L, NA, 4L, 
4L, 5L, 3L, NA, 3L, 2L, 5L, 4L, 4L, 4L, 4L, 3L, NA, NA, 5L, 3L, 
3L, 3L, 3L, 2L, 2L, 2L, 3L, NA, NA, NA, NA, NA, NA, NA, NA, 2L, 
NA, 2L, NA, 3L, 2L, 3L, 3L, 4L, NA, 3L, 2L, 3L, 2L, 1L, 2L, 2L, 
NA, 2L, 2L, 2L, 2L, 2L, 1L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 
1L, 2L, 2L, 2L, 2L, 2L, 2L, NA, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 
2L, 2L, 1L, 2L, 2L, 2L, 2L, 3L, 2L, 3L, 2L, 2L, 2L, 2L, 2L, 2L, 
2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 1L, 
1L, 2L, 2L, 2L, 2L, 3L, 2L, 2L, 2L, 2L, 2L, 2L, 3L, 2L, 2L, 2L, 
2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 1L, 2L, 2L, 1L, 2L, 
2L, 1L, 1L, 1L, 2L, 2L, 3L, 1L, 1L, 3L, 2L, 2L, 1L, 1L, 2L, 1L, 
2L, 3L, 2L, 2L, NA, 2L, NA, 2L, 3L, 3L, 2L, NA, 2L, 3L, NA, 1L, 
2L, 4L, 2L, NA, 2L, NA, 2L, 2L, 1L, NA, NA, 2L, NA, NA, 3L, 2L, 
NA, 2L, 2L, NA, 3L, 3L, 2L, 4L, 2L, 3L, 3L, 4L, 3L, 3L, 3L, 2L, 
5L, 4L, 4L, 3L, 4L, 2L, NA, 3L, 3L, 2L, 3L, 3L, 2L, 3L, 3L, 3L, 
3L, 3L, 3L, 3L, 2L, 2L, 4L, NA, NA, 4L, 4L, 5L, 5L, 4L, 4L, 4L, 
NA, NA, 4L, 3L, 3L, 2L, 5L, 3L, 3L, 3L, 3L, 3L, 2L, 5L, 4L, 3L, 
3L, 5L, 3L, 4L, 3L, 4L, NA, 3L, 5L, 4L, 3L, 3L, 3L, 3L, 3L, 2L, 
2L, 2L, 2L, 3L, 3L, 3L, 3L, 3L, 2L, 3L, 3L, 2L, 3L, 5L, 5L, 4L, 
4L, 5L, 2L, 2L, 4L, 4L, 3L, 2L, 2L, 2L, 2L, 2L, NA, NA, 5L, 2L, 
NA, 3L, 3L, 2L, 2L, 4L, 4L, 3L, 5L, 3L, 3L, 3L, 3L, 3L, 2L, 3L, 
2L, 4L, 2L, 5L, 3L, 2L, 2L, 3L, 4L, 5L, NA, 3L, NA, NA, 3L, 3L, 
2L, 4L, 4L, 2L, 3L, 4L, 3L, 3L, 3L, 2L, 3L, 3L, 3L, 3L, 4L, 3L, 
NA, 4L, 3L, 3L, 3L, 5L, 3L, 3L, 2L, 3L, 3L, 4L, 3L, 3L, 3L, 4L, 
4L, 3L, 4L, 3L, 4L, 3L, 3L, 2L, 3L, 3L, 2L, 1L, 5L, 2L, 4L, 4L, 
3L, 3L, 2L, 2L, 4L, 5L, 5L, NA, 4L, 5L, 3L, 4L, NA, 2L, NA, 3L, 
4L, 4L, 5L, 2L, 4L, 3L, 2L, 2L, 3L, 4L, 4L, 5L, NA, NA, 3L, 3L, 
2L, 2L, NA, 2L, 3L, 3L, 2L, 2L, 3L, 2L, 3L, 3L, 3L, 2L, 2L, 3L, 
3L, 2L, 2L, 5L, 4L, 4L, NA, NA, 3L, 3L, 3L, 4L, 3L, 3L, 3L, 5L, 
4L, 4L, 3L, 1L, NA, NA, NA, NA, NA, NA, NA, 5L, NA, 3L, NA, 4L, 
3L, NA, 3L, NA, NA, 4L, NA, NA, 2L, NA, 4L, 3L, NA, 3L, 3L, 4L, 
5L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 5L, 3L, 5L, 5L, 3L, 3L, 5L, 5L, 
4L, 4L, 3L, 5L, 4L, NA, NA, 4L, NA, 3L, NA, NA, 4L, 3L, 4L, 3L, 
3L, 1L, 3L, 2L, 3L, 5L, NA, NA, 1L, NA, 3L, NA, NA, 4L, 4L, NA, 
NA, 3L, 2L, 3L, NA, NA, 3L, NA, 4L, 4L, 5L, NA, 4L, 3L, 5L, 5L, 
4L, 5L, 4L, 4L, 4L, 5L, NA, 5L, 4L, 5L, NA, 4L, 3L, 4L, 4L, 4L, 
4L, NA, 5L, NA, 5L, 5L, 2L, 5L, 4L, 4L, NA, 5L, 4L, 4L, 4L, 4L, 
NA, 2L, NA, NA, 3L, 5L, 5L, 4L, 4L, 5L, 5L, 3L, 3L, 5L, 4L, 3L, 
2L, 5L, 3L, 5L, 5L, 4L, 5L, 2L, 2L, 3L, 4L, 3L, 3L, 3L, 2L, 2L, 
4L, 3L, 2L, 2L, 4L, 5L, 4L, 1L, 1L, 2L, 1L, 2L, 4L, 2L, 2L, 5L, 
NA, 3L, 2L, 1L, 4L, 4L, 3L, 3L, 2L, 2L, 1L, 3L, 3L, NA, 3L, 3L, 
3L, 4L, 3L, 4L, 1L, 2L, 4L, 3L, 4L, 1L, 2L, 2L, 4L, 2L, 2L, 3L, 
2L, 5L, 5L, 3L, 5L, NA, 3L, NA, 3L, 5L, 4L, 4L, 5L, 3L, 3L, 3L, 
4L, 3L, 3L, 4L, 5L, 4L, 4L, 4L, NA, NA, 4L, NA, 4L, 5L, 4L, 3L, 
5L, 3L, 4L, 3L, 4L, NA, 3L, NA, 3L, 3L, NA, NA, 4L, 4L, NA, NA, 
NA, NA, NA, NA),
.Label = c("18 to less than 25 years old", "25 to less than 35 years old", 

"35 to less than 45 years old", "45 to less than 55 years old",
"More than 55 years old"), class = "factor")

Мне нужна функция fav_fun, которая принимает эти три аргумента и собирает RawDataSplit и модифицируетимена тоже.Как и для QID_1, новое имя после агрегирования будет QID_1_45 до менее 55 лет для уровня 1 переменной возраста

функция будет называться: fav_fun (RawDataSplit, mastercode_2, Age)

...