为循环通过 R 中的因子变量的文件列表中的每个文件保存结果。向量不会更新

Question

我正在使用一个文件列表，并且我正在尝试创建一个数据框，其中包含：对于每个样本，两个特定“GT”类型的百分比与另一个称为“chr”的因子变量的水平（具有 1 到 24 个水平）。

它必须看起来像这样：

我不断遇到的问题是向量永远不会为第 i 个样本更新，它只保留创建的第一个向量。 然后我不确定如何将更新后的向量保存在我的数据框（df）上。

vector_chr <- vector();
for (i in seq_along(list_files)) {
  GT <- list_files[[i]][,9]
  chr <- list_files[[i]][,3]
  GT$chr <- chr$chr # creating one df with both GT and chr
  for (j in unique(GT$chr)){
    dat_list = split(GT, GT$chr)           # split data frames by chr (1 to 24)
    table <- table(dat_list[[j]][,1])      # take GT and make a table
    sum <- sum(table[3:4])                 # sum GTs 3 and 4
    perc <- sum/nrow(GT)
    vector_chr <- c(vector_chr,perc)       # assign the 24 percentages to a vector
    }
  df <- data.frame(matrix(ncol = 25, nrow = length(files)))
  x <- c("Sample", "chr1", "chr2", "chr3",
         "chr4", "chr5", "chr6", "chr7", "chr8", "chr9", "chr10",
         "chr11", "chr12","chr13", "chr14", "chr15", "chr16",
         "chr17", "chr18", "chr19", "chr20", "chr21", "chr22",
         "chrX", "chrXY")
  colnames(df) <- x
  df$Sample <- names(list_files)
  df[i,2:25] <- vector_chr                # assign the 24 percentages for EACH sample 
}