R - Iは、Rプログラミングにニュービー午前、別の列の値

Question

ディアーズ、

に応じて開始し、タイムスタンプの最後の検索では、このような理由のために、私は助けをお聞きに来ました。私はこの問題を解決する方法を見つけようとしています。私は懸命に努力していますが、成功しません。

私はそれに似たdata.frameを持っている...

Recordig MediaName Timestamp 
1  Rec1 Imagem1  4975 
2  Rec1 Imagem1  5155 
3  Rec1 Imagem1  5312 
4  Rec1 Estimulo1  25076 
5  Rec1 Estimulo1  25463 
6  Rec1 Estimulo1  26040 
7  Rec2 Imagem1  5035 
8  Rec2 Imagem1  5248 
9  Rec2 Imagem1  5551 
10  Rec2 Estimulo1  17047 
11  Rec2 Estimulo1  17263 
12  Rec2 Estimulo1  17533 

以下

df2 <- data.frame(Recordig = c("Rec1", "Rec1", "Rec1", "Rec1", "Rec1", "Rec1", 
           "Rec2","Rec2","Rec2","Rec2","Rec2","Rec2"), 
        MediaName = c("Imagem1","Imagem1","Imagem1", 
           "Estimulo1","Estimulo1","Estimulo1", 
           "Imagem1","Imagem1","Imagem1", 
           "Estimulo1","Estimulo1","Estimulo1"), 
        Timestamp = c(4975 , 5155 , 5312 ,25076, 25463 ,26040 , 5035 , 5248, 5551, 17047 , 17263, 17533)) 

簡易版

私のポイントは何ですか？参加者（たとえばRec1）が各画像（Image1）を見た時間を正確に知る必要があります。この場合、Image1のタイムスタンプは4.975秒で始まり、5.312秒で終わり、333msとなりました。

重要なのは、何百もの画像と、何千もの回答者が画像を観察するのに異なる時間を費やしたことです。

私を助けてくれる人がいますか？

Answer 1

あなたはdplyrパッケージを使用して、各参加者のための最初と最後のタイムスタンプの差（Recordig）と画像（MediaName）を見つけることができます。

library(dplyr) 
df3 <- df2 %>% 
     dplyr::group_by(Recordig, MediaName) %>% 
     dplyr::summarise(duration = diff(range(Timestamp))) 

df3 
# Source: local data frame [4 x 3] 
# Groups: Recordig [?] 
# 
# Recordig MediaName duration 
#  <fctr> <fctr> <dbl> 
# 1  Rec1 Estimulo1  964 
# 2  Rec1 Imagem1  337 
# 3  Rec2 Estimulo1  486 
# 4  Rec2 Imagem1  516 

Answer 2

我々は何base R

aggregate(cbind(duration = Timestamp) ~Recordig + MediaName, df2, 
       FUN = function(x) diff(range(x))) 
# Recordig MediaName duration 
#1  Rec1 Estimulo1  964 
#2  Rec2 Estimulo1  486 
#3  Rec1 Imagem1  337 
#4  Rec2 Imagem1  516