使用for循环来匹配R中的数据帧对

Question

我希望使用特定的功能合并数据帧对，以在R目录中进行多个配对。 我正在尝试编写一个“ for循环”来为我完成这项工作，而相关问题（例如将多个data.frames合并为一个data.frame和一个循环）是有帮助的，但我正在努力为此示例调整示例循环采用。

我的数据帧以“ _df1.csv”或“ _df2.csv”结尾。 我希望合并为输出数据帧的每对文件名的名称相同（即543_df1.csv和543_df2.csv）。

我已经使用list.files命令为目录中的两种文件类型分别创建了一个字符串，如下所示：

df1files <- list.files(path="~/Desktop/combined files” pattern="*_df1.csv", full.names=T, recursive=FALSE)
df2files <- list.files(path="="~/Desktop/combined files ", pattern="*_df2.csv", full.names=T, recursive=FALSE)

我要应用以合并每对数据帧的功能和命令如下：

findRow <- function(dt, df) { min(which(df$datetime > dt )) }
rows <- sapply(df2$datetime, findRow, df=df1)
merged <- cbind(df2, df1[rows,])

我现在正尝试将这些命令合并到for循环中，从以下几行开始，以防止我不得不手动合并这些对：

for(i in 1:length(df2files)){ ……

我还不是一名R程序员，我还不是很坚强，并且碰壁了，所以任何帮助都将不胜感激。

Answer 1

我的直觉（我没有机会检查）是您应该能够执行以下操作：

# read in the data as two lists of dataframes:
dfs1 <- lapply(df1files, read.csv)
dfs2 <- lapply(df2files, read.csv)

# define your merge commands as a function
merge2 <- function(df1, df2){
    findRow <- function(dt, df) { min(which(df$datetime > dt )) }
    rows <- sapply(df2$datetime, findRow, df=df1)
    merged <- cbind(df2, df1[rows,])
}

# apply that merge command to the list of lists
mergeddfs <- mapply(merge2, dfs1, dfs2, SIMPLIFY=FALSE)

# write results to files
outfilenames <- gsub("df1","merged",df1files)
mapply(function(x,y) write.csv(x,y), mergeddfs, outfilenames)