Question

假设我有两个数据帧：

df.trial.params =

Session     Trial.Start    Trial.End    Trial.Num
1           30             50           1
1           51             80           2
2           30             50           1
2           51             80           2
3           30             50           1
3           51             80           2

df.data =

Session    Time
1          31
1          33
1          52
1          72
2          31
2          33
2          52
2          72
3          31
3          33
3          52
3          72

我想添加一个列（df.data $ trial.num），它基于df.trial.params中的参数。这种匹配分两步完成：第1步：匹配会话

if(df.data$Session == df.trial.params$Session)

步骤2：匹配时间，使其处于试验开始和结束时间

if((df.data$Time >= df.trial.params$Trial.Start) & (df.data$Time <= df.trial.params$Trial.End))

最终结果如下：

Session    Time    Trial.Num
1          31      1
1          33      1
1          52      2
1          72      2
2          31      1
2          33      1
2          52      2
2          72      2
3          31      1
3          33      1
3          52      2
3          72      2

我真的有点失落，因为我使用R的经验非常有限。我看过一些使用with（）的帖子，但我不知道如何使用多个数据框。任何和所有的帮助表示赞赏，如果这个问题已在其他地方得到解答，我表示歉意（我无法找到）

编辑以显示所需的最终产品。

Answer 1

您可以通过会话合并数据框，然后按时间过滤：

library(dplyr)
merge(df.trial.params, df.data, by = 'Session') %>% 
      filter(Time >= Trial.Start, Time <= Trial.End) %>% 
      select(Session, Time, Trial.Num)

#    Session Time Trial.Num
# 1        1   31         1
# 2        1   33         1
# 3        1   52         2
# 4        1   72         2
# 5        2   31         1
# 6        2   33         1
# 7        2   52         2
# 8        2   72         2
# 9        3   31         1
# 10       3   33         1
# 11       3   52         2
# 12       3   72         2

Answer 2

我们可以使用data.table

执行此操作

library(data.table)
setDT(df.data)[df.trial.params, on = "Session", allow.cartesian=TRUE
     ][Time >=Trial.Start & Time <= Trial.End][,  (3:4) := NULL][]
#     Session Time Trial.Num
# 1:       1   31         1
# 2:       1   33         1
# 3:       1   52         2
# 4:       1   72         2
# 5:       2   31         1
# 6:       2   33         1
# 7:       2   52         2
# 8:       2   72         2
# 9:       3   31         1
#10:       3   33         1
#11:       3   52         2
#12:       3   72         2

或使用foverlaps

df.data1 <- transform(df.data, Trial.Start = Time, Trial.End = Time)[-2]
setDT(df.trial.params, key = c("Session", "Trial.Start", "Trial.End"))
setDT(df.data1, key = c("Session", "Trial.Start", "Trial.End"))
foverlaps(df.data1, df.trial.params, type="within")[,
               Time := i.Trial.Start][, c(1, 7, 4), with = FALSE]
#    Session Time Trial.Num
# 1:       1   31         1
# 2:       1   33         1
# 3:       1   52         2
# 4:       1   72         2
# 5:       2   31         1
# 6:       2   33         1
# 7:       2   52         2
# 8:       2   72         2
# 9:       3   31         1
#10:       3   33         1
#11:       3   52         2
#12:       3   72         2

Answer 3

注意使用/ Construct a query to get names and IDs of 10 files using the Google Drive API. - (void)fetchFiles { self.output.text = @"Getting files..."; GTLQueryDrive *query = [GTLQueryDrive queryForFilesList]; query.pageSize = 10; query.fields = @"nextPageToken, files(id, name)"; [self.service executeQuery:query delegate:self didFinishSelector:@selector(displayResultWithTicket:finishedWithObject:error:)]; }，if会检查总列数是否更高。要遍历每一行，您需要向量化版本if(df.data$Time >= df.trial.params$Trial.Start)

R.根据不同数据帧中的值设置数据帧中的值

3 个答案: