特定の条件に基づいて新しい変数を作成する

Question

特定の条件に基づいて新しい変数を作成しようとしています。以下はデータのサンプルです。

df <- data.frame(country = rep(c("A","B"), each = 9), 
     year = c(2000,2001,2008,2009,2010,2011,2012,2013,2014,1995,1996,1997,1998,1999,2000,2001,2002,2003), 
     number = c(1,2,9,10,11,12,13,14,15,1,2,3,4,5,6,7,8,9)) 

は、私は何をしたいチェックするときに年= 2000と数= 1.この条件は、私が2000年以降のすべてのために、「dot.com」ことにする「」を可変にしたい満たしている場合この特定の国の年。上記の条件が満たされない場合、私は 'When'変数を「other」にします。

これは私が達成したいものです。

structure(list(country = structure(c(1L, 1L, 1L, 1L, 1L, 1L, 
1L, 1L, 1L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L), .Label = c("A", 
"B"), class = "factor"), year = c(2000, 2001, 2008, 2009, 2010, 
2011, 2012, 2013, 2014, 1995, 1996, 1997, 1998, 1999, 2000, 2001, 
2002, 2003), number = c(1, 2, 9, 10, 11, 12, 13, 14, 15, 1, 2, 
3, 4, 5, 6, 7, 8, 9), when = structure(c(1L, 1L, 1L, 1L, 1L, 
1L, 1L, 1L, 1L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L), .Label = c("dot.com", 
"other"), class = "factor")), .Names = c("country", "year", "number", 
"when"), row.names = c(NA, -18L), class = "data.frame") 

Answer 1

我々はして試すことができますdata.table

library(data.table) 
setDT(df)[,when :=if(any(year==2000 & number==1)) "dot.com" else "other" , by = country] 
df 
# country year number when 
# 1:  A 2000  1 dot.com 
# 2:  A 2001  2 dot.com 
# 3:  A 2008  9 dot.com 
# 4:  A 2009  10 dot.com 
# 5:  A 2010  11 dot.com 
# 6:  A 2011  12 dot.com 
# 7:  A 2012  13 dot.com 
# 8:  A 2013  14 dot.com 
# 9:  A 2014  15 dot.com 
#10:  B 1995  1 other 
#11:  B 1996  2 other 
#12:  B 1997  3 other 
#13:  B 1998  4 other 
#14:  B 1999  5 other 
#15:  B 2000  6 other 
#16:  B 2001  7 other 
#17:  B 2002  8 other 
#18:  B 2003  9 other