如何在R中创建一个函数来计算纵向研究中参与者的每周调查次数？

calculate_survey_count <- function(data, participant_id, week_column, survey_column) {
  # 根据参与者ID和周数进行分组，并计算每周调查次数
  survey_count <- aggregate(data[[survey_column]], by = list(data[[participant_id]], data[[week_column]]), FUN = length)
  
  # 将结果转换为透视表形式，以参与者ID为行，周数为列，调查次数为值
  survey_count_pivot <- reshape2::dcast(survey_count, Group.1 ~ Group.2, value.var = "x")
  
  # 返回透视表结果
  return(survey_count_pivot)
}

result <- calculate_survey_count(data = survey_data, participant_id = "participant_id", week_column = "week", survey_column = "survey_count")

print(result)

install.packages("reshape2")
library(reshape2)