fork download
copy 
  1. x<-read.table(text='
  2. CD 入数 フラグ
  3. 0 456 55 1
  4. 1 123 10 1
  5. 2 123 20 2
  6. 3 123 40 9
  7. 4 123 50 9
  8. 5 123 60 9
  9. 6 123 75 9
  10. 7 234 5 1
  11. 8 234 25 2
  12. 9 234 50 2
  13. 10 234 75 9 
  14. 11 789 88 2
  15. ')
  16.  
  17. x
  18. cat('\nフラグ==9\n')
  19. x[x$CD %in% unique(x[x$フラグ==9,"CD"]),]
Success #stdin #stdout 0.34s 41620KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
    CD 入数 フラグ
0  456   55      1
1  123   10      1
2  123   20      2
3  123   40      9
4  123   50      9
5  123   60      9
6  123   75      9
7  234    5      1
8  234   25      2
9  234   50      2
10 234   75      9
11 789   88      2

フラグ==9
    CD 入数 フラグ
1  123   10      1
2  123   20      2
3  123   40      9
4  123   50      9
5  123   60      9
6  123   75      9
7  234    5      1
8  234   25      2
9  234   50      2
10 234   75      9
https://ideone.com/IALsqQ
language:
R (R 3.5.2)
created:
6 days ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!