Question

我正在尝试将两个嵌套的for循环转换为两个嵌套的foreach循环，以根据匹配的先决条件更改数据帧的值。理由是我相信我可以大大加快这个过程。以下是我的代码示例：

 library(foreach) # for loop to parallelize
 library(doMC) # create the number of cores to use

 # set the number of cores to use
 registerDoMC(22)  # number of CPU cores

 file_list <- c("a", "b", "c")
 ldf <- c(data.frame(Date = c("2016-10-01", "2016-10-02", "2016-10-03", "2016-10-04")),
     data.frame(Date = c("2016-10-07", "2016-10-08", "2016-10-09")),
     data.frame(Date = c("2016-10-15", "2016-10-16", "2016-10-17", "2016-10-18", "2016-10-19")))

 DF <- data.frame(Date = seq(as.POSIXct("2016-10-01", tz = "UTC"), as.POSIXct("2016-10-31", tz = "UTC"), by = 'day'),
             A = 0,
             B = 0,
             C = 0)

 DF2 <- DF # DF2 is used to compare my attempt result


 for (i in 1:length(file_list))
 {
   Date <- ldf[[i]]
   Date <- as.POSIXct(Date, tz = "UTC")

   for (j in 1:length(Date))
   {
     ROW <- which(DF$Date == Date[j])
     DF[ROW,i+1] <- 1
   }

 }

 throwaway <- foreach (i = 1:length(file_list)) %dopar%
 {
   Date <- ldf[[i]]
   Date <- as.POSIXct(Date, tz = "UTC")

   foreach (j = 1:length(Date)) %do%
   {
     ROW <- which(DF2$Date == Date[j])
     DF2[ROW,i+1] <- 1
     return(NULL)
   }
 }

filelist是我正在阅读的文件列表

ldf是用于存储读取文件的变量

这两个变量在这个例子中构成，只是为了有一个可重复的例子。

DF是我要将更改存储在foreach循环所做的值中的地方

DF2是我尝试过的尝试以及存储位置

我要找的输出是DF的输出，但DF2保持不变。我理解foreach循环是针对它们的返回值而设计的，但是我如何获得返回值以匹配数据帧的值应该改变的位置。这些值是file_list中读取的每个文件的日期与数据框DF2中的日期匹配的位置。如果它们匹配，则将1放置在行（日期）和列（文件名）的特定位置。在此先感谢您的帮助！

所需的输出是：

 > DF
          Date A B C
 1  2016-10-01 1 0 0
 2  2016-10-02 1 0 0
 3  2016-10-03 1 0 0
 4  2016-10-04 1 0 0
 5  2016-10-05 0 0 0
 6  2016-10-06 0 0 0
 7  2016-10-07 0 1 0
 8  2016-10-08 0 1 0
 9  2016-10-09 0 1 0
 10 2016-10-10 0 0 0
 11 2016-10-11 0 0 0
 12 2016-10-12 0 0 0
 13 2016-10-13 0 0 0
 14 2016-10-14 0 0 0
 15 2016-10-15 0 0 1
 16 2016-10-16 0 0 1
 17 2016-10-17 0 0 1
 18 2016-10-18 0 0 1
 19 2016-10-19 0 0 1
 20 2016-10-20 0 0 0
 21 2016-10-21 0 0 0
 22 2016-10-22 0 0 0
 23 2016-10-23 0 0 0
 24 2016-10-24 0 0 0
 25 2016-10-25 0 0 0
 26 2016-10-26 0 0 0
 27 2016-10-27 0 0 0
 28 2016-10-28 0 0 0
 29 2016-10-29 0 0 0
 30 2016-10-30 0 0 0
 31 2016-10-31 0 0 0

Answer 1

考虑在数据框列表的所有df项中使用零循环，但Reduce()使用merge。但是，您需要设置数据框并列出略有不同的列表。

首先，添加顺序Date数据帧作为列表的第一个elmenet。然后，在您阅读的每个文件中添加与A，B，C对应的第二列，每列等于一（可以在lapply或{中完成读取过程中使用的{1}}循环 - 将此部分用于演示）。总而言之，如下所示for与原始DF的完全匹配结果：

all.equal

嵌套的foreach循环更改数据帧R中的值

1 个答案: