所以我需要帮助我目前正在做的一个项目。我想做的是在一个循环中阅读90个csv文件。
在这个循环中还有两个功能。函数“Einsatzaufkommen”从csv文件中获取列的唯一数量的值。函数“Einsatzfahrtaufkommen”取同一列的总长度。
这两个函数的结果将把一个值添加到另一个 Dataframe 中（变量名为bast_ansprechpartner_erhebungsstellen）。在该 Dataframe 中，i具有3列和90行（“ID”、“Einsatzaufkommen”和“Einsatzfahrtaufkommen”）。
ID列将始终与90个csv文件的ID列（列名为ERHEBUNGSSTELLE）中的一个值匹配。列Einsatzfahrt和Einsatzfahrtaufkommen当前为空，因为我想在那里添加值。
因此，在阅读90个csv文件中的每一个并应用2个函数之后，我将在ID匹配的行处向列Einsatzaufkommen和Einsatzfahrtaufkommen添加一个值。所以最后的目标是在这2列中填满所有90行，这是我现在的代码：

# This is the dataframe where i want to add all the values(in columns "Einsatzfahrt" and "Einsatzaufkommen")
bast_ansprechpartner_erhebungsstellen <- read_csv2("/Users/pablotrutnau/aktenschrank/Datenbericht/BASt/212-744 Einzelberichte - Beispielordner/BAST_Leistungsanalyse-Ansprechpartner_Erhebungsstellen.csv",
                                                   col_types = "c")

# directory of all the 90 csv files
verzeichnis <- "/Users/pablotrutnau/aktenschrank/Datenbericht/BASt/212-744 Einzelberichte - Beispielordner/Einsatzdaten"

# All csv files in the directory 
datensätze <- list.files(path = verzeichnis, pattern = ".csv", full.names = TRUE)

# start of loop 
for (daten in datensätze){
  # Reading the csv files
  datensatz <- read_csv2(daten, col_types = "c")

# "datensatz" is being renamed to "daten_gefiltert" after applying a function that filters some data of "datensatz" 

# Einsatz- und Einsatzfahrtaufkommen ######################################
  # Function that adds value to bast_ansprechpartner_erhebungsstellen(to column Einsatzaufkommen) 
  einsatzaufkommen <- function(){
    einsätze = round(length(unique(daten_gefiltert$E_NR)), digits = 0)
    # Matches between the IDs
    join_id <- match(bast_ansprechpartner_erhebungsstellen$ID, daten_gefiltert$ERHEBUNGSSTELLE)
    # Value is being added to bast_ansprechpartner_erhebungsstellen at the row where the id matches
    bast_ansprechpartner_erhebungsstellen$Einsatzaufkommen <- ifelse(!is.na(join_id), einsätze, NA)
    return(bast_ansprechpartner_erhebungsstellen)
  }
  
  # Function that adds value to dbast_ansprechpartner_erhebungsstellen(to column Einsatzfahrtaufkommen)   
  einsatzfahrtaufkommen <- function(){
    fahrten = length(daten_gefiltert$E_NR)
    # Matches between the IDs
    join_id <- match(bast_ansprechpartner_erhebungsstellen$ID, daten_gefiltert$ERHEBUNGSSTELLE)
    # Value is being added to bast_ansprechpartner_erhebungsstellen at the row where the id matches
    bast_ansprechpartner_erhebungsstellen$Einsatzfahrtaufkommen <- ifelse(!is.na(join_id), fahrten, NA)
    return(bast_ansprechpartner_erhebungsstellen)
  }

# values are being added to bast_ansprechpartner_erhebungsstellen
  bast_ansprechpartner_erhebungsstellen <- einsatzaufkommen()
  bast_ansprechpartner_erhebungsstellen <- einsatzfahrtaufkommen()
}

字符串