将一个行长度不同的数据帧列表合并到一个大数据帧中的代码？

Question

我有两个文件夹，每个文件夹中有3个栅格（总共6个栅格）。每个文件夹中的三个栅格共享相同的x＆y，但它们与另一个文件夹中的栅格共享的x＆y不同，反之亦然。我使用x＆y将这些栅格转换为数据帧，并尝试将它们合并到一个数据帧中，但是我没有得到想要的结果。我可以获取第一个栅格数据，但是无法在同一x＆y中获取其他两个栅格数据。有什么办法可以解决这个问题？

index <- gl(nrow(df)/5, 5)

#Sum rows
df1 <- aggregate(.~index, df, sum)[-1]

#Sum columns
sapply(split.default(df1, index), rowSums)

现在让我们说我有两个（R1）栅格和两个（R2）栅格。我将它们上传为数据框，因为这就是我所坚持的。输出将类似于R1和R2的组合，但它们的对齐方式不正确（请参见下文）。

 library(dplyr)
    library(plyr)
    library(raster)

    lr <- list() # creates a list
    df <- data.frame()
    raster_list <- dir(pattern = "*.tif", recursive=TRUE, full.names=TRUE) 
    for (i in 1:length(raster_list)){
      lr[[i]] <- raster(raster_list[i])
    }
    lr
    df <- unlist(lr)
    df <- lapply(df, as.data.frame, xy = TRUE)

library(reshape)
data <- merge_recurse(df)