Я хочу создать настраиваемую функцию для вычисления сгруппированных процентов в большом наборе данных с более чем 100 столбцами. Поскольку у меня так много столбцов, я хочу сделать цикл или lapply или что-то еще, чтобы не вводить функцию более 100 раз. Написанная мною функция отлично работает, когда я набираю ее индивидуально для каждого столбца, но я не могу понять, как делать это повторно.
Вот упрощенный фреймворк и функция:
# load required libraries:
library(tidyverse)
df<-data.frame(sex=c('M','M','M','F','M','F','M',NA),
school=c('A','A','A','A','B','B','B',NA),
question1=c(NA,1,1,2,2,3,3,3),
question2=c(2,NA,2,4,5,1,2,3))
my_function<-function(dataset,question_number){
question_number_enquo<-enquo(question_number)
dataset%>%
filter(!is.na(!!question_number_enquo)&!is.na(sex))%>%
group_by(school,sex,!!question_number_enquo)%>%
count(!!question_number_enquo)%>%
summarise(number=sum(n))%>%
mutate(percent=number/sum(number)*100)%>%
ungroup()
}
Моя функция работает, когда я ввожу в нее имя столбца:
my_function(df,question1)
A tibble: 5 x 5
school sex question1 number percent
<fct> <fct> <dbl> <int> <dbl>
1 A F 2 1 100
2 A M 1 2 100
3 B F 3 1 100
4 B M 2 1 50
5 B M 3 1 50
Вот что я пробовал с точки зрения повторения. Я хочу повторить функцию для каждого столбца (кроме школы и пола, потому что это мои группы).
question_col_names<-(df%>%select(-sex,-school)%>%colnames())
Использование lapply с именами столбцов в качестве запроса:
question_col_names_enquo<-enquo(question_col_names)
lapply(df,my_function(df,!!question_col_names_enquo))
Error: Column `<chr>` must be length 7 (the number of rows) or one, not 2
Попытка сделать это с именами столбцов без кавычек:
lapply(df,my_function(df,question_col_names))
Error: Column `question_col_names` is unknown
Попытка использовать имена столбцов в кавычках:
lapply(df,my_function(df,'question_col_names'))
Error: Column `"question_col_names"` can't be modified because it's a grouping variable
Я также попробовал подать заявку и получил такие же сообщения об ошибках:
apply(df,1,my_function(df,!!question_col_names_enquo))
Error: Column `<chr>` must be length 7 (the number of rows) or one, not 2
apply(df,1,my_function(df,question_col_names))
Error: Column `question_col_names` is unknown
apply(df,1,my_function(df,'question_col_names'))
Error: Column `"question_col_names"` can't be modified because it's a grouping variable
Я также пробовал разные варианты цикла for:
for (i in question_col_names){
my_function(df,i)
}
Error: Column `i` is unknown
for (i in question_col_names){
my_function(df,'i')
}
Error: Column `"i"` can't be modified because it's a grouping variable
Как я могу использовать итерацию, чтобы моя функция повторялась во всех моих столбцах?
Я подозреваю, что это связано с dplyr; Я знаю, что он действует забавно в пользовательских функциях, но я могу заставить его работать в моей функции, но не в итерации. Я глубоко погрузился в Google и Stack Overflow, но не нашел ничего, что могло бы ответить на этот вопрос.
Заранее спасибо!
