r - 使用函数设置新计算变量的名称并赋值
问题描述
我正在编写一个函数，它使用来自两个数据集（RawDataSplit 和 Hierarchy）的引用。所有这些数据集都是连接的。我需要根据将应用于所有选定列的函数来汇总数据。我summarise_用来做这个。
我创建了一个函数，用于汇总 per_qid 列，这是计算每列的百分比。
然后我创建一个带有三个参数的函数：fav_fun(dataset,levelname,demo_var)
dataset 用于我们需要聚合的数据，在这种情况下它是 RawDataSplit
levelname 是 RawDataSplit 中用于对数据进行分组的列之一
demo_var 将是从数据集“层次结构”中选择的变量之一，这将是人口统计变量之一，如年龄。
聚合函数：
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)