如何用R建立这几个自变量？求助！！

请教一下大神，我有如图所示的学生在教学软件里面的日志数据，Result中的1表示回答正确，0表示回答错误该如何用R建立这几个变量：
1. 每当某个学生ID连续答对5道题之后，他的下一步回应(event type)是什么？
2. 每当某个学生答错一道题的时候，从他答错(incorrect)以后到下一个回答(correct或者incorrect)之间的平均时间是多少？
3. 最后一个变量用英语表达可能容易理解一些：Proportionof wrong actions where student takes more than N seconds; where you optimize Nby trying {1 s., 2 s., 3 s., 4 s., ... 30s.} and see which value of N isassociated with the highest correctness on the next attempt.

不胜感激！

leejy324 发表于 2017-6-12 09:31
谢谢回复！附件是我截取的一小部分数据，麻烦大神们帮忙看看！

对第一个问题：

1. library(tidyverse)
   
2. library(RcppRoll)
   
3. read_csv(file = "MiniData.csv")
   
4. dat %>%
   
5.     group_by(Student_ID) %>%
   
6.     mutate(correct = Result == "correct",
   
7.            cum_cor = roll_sum(x = correct, n = 5, fill = NA, align = "right"),
   
8.            judge = lag(cum_cor, n = 1) == 5) %>%
   
9.     filter(judge) %>%
   
10.     ungroup() %>%
    
11.     count(Event_type)

复制代码

不过这是严格过滤统计连续出现5个correct之后的情况，是否even是“problem shown”也可以呢？这些逻辑上的问题只有熟悉数据含义的人才能判断了。另外将第一、二列的列名中间的空格改成了“_”。

请给出足够多的数据，别让别人再把时间浪费在模仿生成你的数据了。

谢谢回复！附件是我截取的一小部分数据，麻烦大神们帮忙看看！

谢谢帮助！是的，逻辑问题还需要和熟悉数据的人讨论。能帮我看看第二个问题怎么处理吗？也就是“每当某个学生答错一道题的时候，从他答错(incorrect)以后到下一次作答(correct或者incorrect)之间的平均时间是多少？”