# 创建一个函数来处理元素向量的每个元素

process_elements <- function(i, df, cf) {

  # 从df表格的第二列列表中提取元素

  element_vector <- unlist(strsplit(df$GID[i], ";"))

  # 在cf表格的第一列中查找匹配的行索引

  match_rows <- cf$X.ID %in% element_vector

  match_data <- cf[match_rows, -1]

  # 计算结果并转置为数据框

  result <- as.data.frame(t(colSums(match_data)))

  # 将结果与df的行进行拼接

  bind_cols(df[i, ], result)

}