カウンタ変数のステップが欠落していないか確認してください。

Question

私は参加者1人当たり1行のデータファイルを持っています（参加した調査に基づいて1-xという名前が付けられています）。すべての参加者がデータセットに存在するかどうかを確認したい。これは、研究は、彼らが参加した研究である、参加者はPERSONIDあり、私のおもちゃのデータセットです。このようになります

df <- read.table(text = "personid study measurement 
1   x  23 
2   x  32 
1   y  21 
3   y  23 
4   y  23 
6   y  23", header=TRUE) 

：。

personid study measurement 
1  1 x   23 
2  2 x   32 
3  1 y   21 
4  3 y   23 
5  4 y   23 
6  6 y   23 

ので、yのために、私が行方不明です参加者2と5自動的にチェックするにはどうしたらいいですか？私は、カウンタ変数を追加して、そのカウンタ変数を参加者IDと比較しようとしましたが、一度参加者がいなくなると、そのアライメントがオフであるため、比較は無意味です。

df %>% group_by(study) %>% mutate(id = 1:n(),check = id==personid) 
Source: local data frame [6 x 5] 
Groups: date [2] 

    personid study measurement id check 
    <int> <fctr>  <int> <int> <lgl> 
1  1  x   23  1 TRUE 
2  2  x   32  2 TRUE 
3  1  y   21  1 TRUE 
4  3  y   23  2 FALSE 
5  4  y   23  3 FALSE 
6  6  y   23  4 FALSE 

Answer 1

あなたpersonidがシーケンシャルであると仮定すると、あなたはstudyとpersonidのすべての可能な組み合わせを生成するためにtidy::expand()を使用し、削除するためにanti_join()を使用するように、すなわち、setdiff

library(dplyr) 

df %>% 
group_by(study) %>% 
mutate(new = toString(setdiff(max(personid):min(personid), personid))) 

#Source: local data frame [6 x 4] 
#Groups: study [2] 

# personid study measurement new 
#  <int> <fctr>  <int> <chr> 
#1  1  x   23  
#2  2  x   32  
#3  1  y   21 5, 2 
#4  3  y   23 5, 2 
#5  4  y   23 5, 2 
#6  6  y   23 5, 2 

Answer 2

一つのアプローチをされて使用してこれを行うことができます実際にデータに現れる組み合わせ。

library(dplyr, warn.conflicts = FALSE) 
library(tidyr) 

df %>% 
    expand(study, personid) %>% 
    anti_join(df) 
#> Joining, by = c("study", "personid") 
#> # A tibble: 4 × 2 
#> study personid 
#> <fctr> <int> 
#> 1  y  2 
#> 2  x  6 
#> 3  x  4 
#> 4  x  3 

Answer 3

シンプルなソリューションベースのR

tapply(df$personid, df$study, function(a) setdiff(min(a):max(a), a)) 

に出力使用：

$x 
integer(0) 

$y 
[1] 2 5