循环遍历 R 中的数据帧并测量两个值之间的时间差 [英] Loop through dataframe in R and measure time difference between two values
问题描述
总结:我正在分析发生的刺激(A&B)与用户可能的反应之间的时间差.
Summary: I am analyzing the time difference between an occured stimuli (A&B) and a possible response of the user.
数据集的结构如下:
structure(list(User = c("005b98f3-5b1b-4d10-bdea-a55d012b2844",
"005b98f3-5b1b-4d10-bdea-a55d012b2844", "005b98f3-5b1b-4d10-bdea-a55d012b2844",
"005b98f3-5b1b-4d10-bdea-a55d012b2844", "005b98f3-5b1b-4d10-bdea-a55d012b2844",
"005b98f3-5b1b-4d10-bdea-a55d012b2844", "005b98f3-5b1b-4d10-bdea-a55d012b2844",
"005b98f3-5b1b-4d10-bdea-a55d012b2844", "005b98f3-5b1b-4d10-bdea-a55d012b2844",
"005b98f3-5b1b-4d10-bdea-a55d012b2844", "005b98f3-5b1b-4d10-bdea-a55d012b2844",
"005b98f3-5b1b-4d10-bdea-a55d012b2844", "005b98f3-5b1b-4d10-bdea-a55d012b2844",
"005b98f3-5b1b-4d10-bdea-a55d012b2844", "005b98f3-5b1b-4d10-bdea-a55d012b2844",
"005b98f3-5b1b-4d10-bdea-a55d012b2844", "005b98f3-5b1b-4d10-bdea-a55d012b2844",
"005b98f3-5b1b-4d10-bdea-a55d012b2844", "005b98f3-5b1b-4d10-bdea-a55d012b2844",
"005b98f3-5b1b-4d10-bdea-a55d012b2844"), Date = c("25.11.2015 13:59",
"03.12.2015 09:32", "07.12.2015 08:18", "08.12.2015 19:40", "08.12.2015 19:40",
"22.12.2015 08:52", "22.12.2015 08:50", "22.12.2015 15:42", "22.12.2015 20:46",
"05.01.2016 11:33", "05.01.2016 11:35", "05.01.2016 13:22", "05.01.2016 13:21",
"05.01.2016 13:22", "06.01.2016 09:18", "14.02.2016 22:47", "20.02.2016 21:27",
"01.04.2016 13:52", "24.07.2016 07:03", "04.08.2016 08:25"),
Hour = c(1645L, 1833L, 1928L, 1963L, 1963L, 2288L, 2288L,
2295L, 2300L, 2627L, 2627L, 2629L, 2629L, 2629L, 2649L, 3598L,
3741L, 4717L, 7447L, 7712L), StimuliA = c(1L, 0L, 1L, 0L,
0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 1L, 0L, 0L, 0L, 0L,
0L), StimuliB = c(0L, 0L, 0L, 0L, 1L, 0L, 0L, 0L, 1L, 1L,
1L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 1L), Responses = c(0L,
1L, 0L, 1L, 0L, 1L, 1L, 1L, 0L, 0L, 0L, 1L, 1L, 1L, 0L, 1L,
1L, 1L, 1L, 0L)), .Names = c("User", "Date", "Hour", "StimuliA",
"StimuliB", "Responses"), row.names = c(NA, -20L), class = c("tbl_df",
"tbl", "data.frame"))
关于数据的其他信息:数据表中的每一行都是一个事件日志,用户可以在其中感知特定刺激或执行操作(响应).小时:从项目开始到事件发生的小时".
Additional Information on the data: Every row in the datatable is an event log where a User either perceived a certain Stimuli or performed an action (Response). Hour: The "Hour" since the start of the project, when the event occured.
目标:总体目标是测量刺激和反应之间的时间.(如果有的话)我想为每个用户创建一个遍历数据集的循环,如果 Stimuli 的值为 1,它会检查以后是否有用户的响应并创建一个带有值的向量A 一个,B 一个.
Goal: The overall goal is to measure the time between an the stimuli and the response. (if there was one) I would like to create a loop which goes through the dataset for every User and if the value of a Stimuli is 1, it checks whether later there is a response of the user and the creates a vector with the values for A and one for B.
问题:我是否会使用 for 循环来执行此操作,该循环遍历每个用户并检查感知的刺激,如果存在值 1,则检查相同的用户 ID 在最近的响应中是否具有值 1,然后比较 2 个日期?
Question: Would i do this with a for loop, which goes through every User and checks the perceived Stimuli and if there is the value 1 checks whether the same User ID has the value 1 in the closest Response and then compares the 2 dates?
子问题//我正在努力解决的问题
- 我如何真正循环遍历每一行并检查条件语句,如果 TRUE 则执行命令?(如果别的?).
- 我将如何作为命令保存该行中其他单元格的值?
- 然后告诉 R 寻找相同用户 ID(按时间顺序)的最接近的响应并计算这 2 个值之间的时间差?
- 最终使用这些计算值创建一个向量
想要的结果:
Stimuli A c=(11253, 2122, 56969), Stimuli B c=(19512,107)
到目前为止,我自己编写的代码并不是很有帮助.我正在试验 for 循环和 if 语句,还有 ifelse 函数.
My own code i produced so far is not very helpful. I was experimenting with for loops and if statements, but also the ifelse function.
我是 R 的新手,但在 datacamp 上做了多个课程,但我仍然在努力将它应用到我自己的硕士论文工作中.感谢大家的帮助.
I am a newbie with R, but did multiple classes on datacamp, but still I am struggling to apply it to my own work of my master thesis. Thanks for all the help.
附加信息:
R version 3.4.0 (2017-04-21)
Platform: x86_64-w64-mingw32/x64 (64-bit)
Running under: Windows >= 8 x64 (build 9200)
推荐答案
以下是使用 dplyr
的方法.首先,您需要将 Date 列转换为 POSIXct 对象.然后,确保使用 arrange
对 Date 对象进行排序.然后使用 mutate
添加时差列.然后,您可以对刺激 A 或 B 为 1 且后跟等于 1 的响应的行进行 filter
.
Here's how you can do that with dplyr
. First, you need to transform your Date column to a POSIXct object. Then, make sure the Date object is ordered with arrange
. You then add a time difference column using mutate
. You can then filter
for rows where Stimuli A or B is 1 and is followed by a Response equal to 1.
df$Date <- as.POSIXct(strptime(df$Date,"%d.%m.%Y %H:%M"))
df %>%
arrange(User,Date)%>%
mutate(difftime= difftime(lead(Date),Date, units = "mins") ) %>%
group_by(User)%>%
filter((StimuliA==1 | StimuliB==1) & lead(Responses)==1)
User Date Hour StimuliA StimuliB Responses difftime
<chr> <dttm> <int> <int> <int> <int> <time>
1 005b98f3-5b1b-4d10-bdea-a55d012b2844 2015-11-25 13:59:00 1645 1 0 0 11253 mins
2 005b98f3-5b1b-4d10-bdea-a55d012b2844 2015-12-07 08:18:00 1928 1 0 0 2122 mins
3 005b98f3-5b1b-4d10-bdea-a55d012b2844 2015-12-08 19:40:00 1963 0 1 0 19510 mins
4 005b98f3-5b1b-4d10-bdea-a55d012b2844 2016-01-05 11:35:00 2627 0 1 0 106 mins
5 005b98f3-5b1b-4d10-bdea-a55d012b2844 2016-01-06 09:18:00 2649 1 0 0 56969 mins
这篇关于循环遍历 R 中的数据帧并测量两个值之间的时间差的文章就介绍到这了,希望我们推荐的答案对大家有所帮助,也希望大家多多支持IT屋!