R：ifelseの文字列リスト

ifelse(cc1 %in% c("a", "b"), 1, 0)

または単に：

as.numeric(data$cc1 %in% c("a", "b"))

attachの使用は避けてください けれど。物事が面倒になります。