如何在函数中使用向量的每个元素来创建数据帧，然后附加所有数据帧

Question

我想将数据帧（文件名）的一列的每一行中的值用作函数中的参数。此函数从具有匹配文件名的.ods文件中导入数据，然后将信息提取到新的数据框中。

我想将该功能应用于表'filenames'中的每个文件名，从而创建约50个数据帧。我想附加每个数据帧（我想使用rbind），最后得到一个数据帧。

我已经为一个文件名编写了它，但是正在努力研究如何将其编写为一个函数，该函数在文件名列表中反复重复，然后附加结果数据帧。

我在下面编写了一个示例，非常感谢您的帮助！

map <- data.frame(well = c("A01", "A02", "A03", "B01", "B02", "B03", "C01", "C02", "C03", "A01", "A02", "A03", "B01", "B02", "B03", "C01", "C02", "C03"),
                  plate = c(1,1,1,1,1,1,1,1,1,2,2,2,2,2,2,2,2,2))

filenames <- data.frame(filenames = c("file1", "file2", "file3"),
                        plate = c(1, 1, 2))

firstdatetime <- as.POSIXct("2020-03-26 07:56:20 GMT")

activefile <- as.vector(filenames[1,1])
data <- data.frame(read.ods(activefile))

###for the purposes of this example, a sample data file is created below
data <- data.frame(datetime = "2020-03-26 13:04:38 GMT", one = c(2,4,6), two = c(4, 6, 6), three = c(5, 5, 2))
###

plate <- as.numeric(filenames$plate[match(activefile, filenames$filenames)])
datetime <- as.POSIXct(data$datetime[1])
time <- as.numeric(difftime(strptime(datetime, "%Y-%m-%d %H:%M:%S"),
                            strptime(firstdatetime, "%Y-%m-%d %H:%M:%S")))
temp <- plate
df <- subset(map, plate == temp)
df$filename <- activefile
df$time <- time

a570 <- data.frame(data[,-1])
a570 <- as.vector(t(a570))
df$a570 <- a570

###
#then repeat this for each filename in 'filenames', adding each dataframe to the bottom of the one before. The final output would be one big data frame.

Answer 1

针对迭代读取和重新绑定到单个df的问题的Base R解决方案：

# Filenames data provided by user: filenames => data.frame
filenames <- data.frame(filenames = c("file1", "file2", "file3"),
                        plate = c(1, 1, 2))
# Empty list to store each file: df_list => list
df_list <- vector("list", length(unique(filenames$filenames)))
# Read in files and name them appropriately: df_list => list
df_list <- setNames(lapply(filenames$filenames, function(x){
                        data.frame(read.ods(x))}), filenames$filenames)
# rbind into a single object: df => data.frame
df <- do.call("rbind", df_list)

Answer 2

hello_friend's answer显示了如果您只需要读入文件并rbind()，该怎么办。对我来说，这并不有趣，因为它显然是重复的。

但是，当您需要先进行一些预处理时，我不确定它是否是重复的（尽管看起来有些扩展）。您需要做的是功能进行预处理。

我进一步简化了您的示例，并具有两个ODS文件，file1.ods和数据

a b
1 1

和file2.ods以及数据

a b
2 2

对于预处理，我将使用将3加到第一个值这一更简单的任务。我们可以执行以下操作：

library(readODS)

filenames <- c("file1.ods", "file2.ods")

foo <- function(filename) {
    res <- read_ods(filename)
    res[1, 1] <- res[1, 1] + 3
    return(res)
}

do.call("rbind", lapply(filenames, foo))

#   a b
# 1 4 1
# 2 5 2