R-突变功能中的多个条件

Question

我有以下数据框（请参阅链接：）。现在，我想知道对于每个 Trial_number，response_time_to_origin 中的值是否包含在 target_onset_plus200 和 target_onset_plus1000 之间，但根据多个条件：

if 76 <= Trial_number <= 151，filter block == 1 and subblock == " A”，然后检查response_time_to_origin是否在target_onset_plus200和target_onset_plus1000。如果是这样，请回答“真”，如果其他块和子块也发生这种情况，请回答“假”。

否则，如果152 <= Trial_number <= 227，则过滤块== 1且子块==“B”，然后检查response_time_to_origin是否在target_onset_plus200和target_onset_plus1000之间。如果是这样，请回答“真”，如果其他块和子块也发生这种情况，请回答“假”。

ETC。

我尝试插入以下代码，但这显然不起作用：

response_accuracy=data_out%>%     
   select(trial_number, response_time_to_origin)%>%     
   filter(!is.na(response_time_to_origin))%>%     
   mutate(list_windows_terminals = list(list_hit_windows))%>%      
   unnest(list_windows_terminals)%>%     
   group_by(block, subblock, trial_number)%>%     
   mutate(response_in_window = if(76 <= trial_number <= 151){     
      filter(block == 1 & subblock == "A") & response_time_to_origin >      
      target_onset_plus200 & response_time_to_origin < 
      target_onset_plus1000)})

你能帮我吗？提前致谢 ！

Answer 1

如果没有最少的数据示例，就很难为您提供帮助。

尝试这个代码：

response_accuracy=data_out %>%     
   select(trial_number, response_time_to_origin) %>%     
   filter(!is.na(response_time_to_origin)) %>%     
   mutate(list_windows_terminals = list(list_hit_windows)) %>%      
   unnest(list_windows_terminals) %>%     
   group_by(block, subblock, trial_number) %>% 
   mutate(response_in_window = ifelse(between(trial_number, 76, 151) && block == 1 && subblock == "A", "TRUE", "FALSE")) %>%
   mutate(response_in_window = ifelse(between(trial_number, 152, 227) && block == 1 && subblock == "B", "TRUE", response_in_window))

如果它不起作用，您应该提供一个代码来生成您的数据帧供我测试。