たとえば,ある列に日本語文字列を含むデータフレームがあるとして,その列の要素がある条件集合のどれかにマッチしていれば 1,そうでなければ 0 を返すという処理を,for ではなく,apply 族を使って実行したいとする.
# こんなデータフレーム unique(dat1$gobi) # 語尾を一通り見てみる [1] "ですか" "ますか" "んか" "っすか" "ていい" ...
dat1$not <- ifelse( dat1[dat1$gobi == "んか" | dat1$gobi == "くれん"| dat1$gobi == "くれない"| dat1$gobi == "くれへん"| dat1$gobi == "もらえへん", "ID"]), 1, 0)
あるいは
for(i in 1:length(dat1$gobi)){ dat1$not[i] <- ifelse(dat1$gobi[i] %in% c("んか", "くれん", "くれない", "くれへん", "もらえへん"), 1, 0) } sum(dat1$not)
ただし,次はダメ
dat1$not <- ifelse(any(dat1$gobi == "んか"|dat1$gobi == "くれん"| dat1$gobi == "くれない"| dat1$gobi == "くれへん"| dat1$gobi == "もらえへん"), 1,0) dat1$not <- ifelse(any(dat1$gobi %in% c("くれん", "くれない", "くれへん", "もらえへん")), 1,0) sum(dat1$not)
さて,これを無理に?apply系関数を使ってやってみる?
qhtnkxe? (2010-03-16 (火) 19:41:10)
17cPpn <a href="http://jhorbcmnphmg.com/">jhorbcmnphmg</a>, [url=http://kgbyegqmwrlc.com/]kgbyegqmwrlc[/url], [link=http://keuovvbwerso.com/]keuovvbwerso[/link], http://defsjiucwyhb.com/
cqfnpdvjx? (2010-03-16 (火) 14:59:23)
idHOTX <a href="http://tibxuumxbuec.com/">tibxuumxbuec</a>, [url=http://fbvtnvuyttqa.com/]fbvtnvuyttqa[/url], [link=http://rpmbzfpuufjs.com/]rpmbzfpuufjs[/link], http://yjvwysuzjfik.com/
ygowluqzupe? (2010-03-16 (火) 05:24:18)
n9ogVe <a href="http://bnxtjwmorqww.com/">bnxtjwmorqww</a>, [url=http://yvxvklvmtfcs.com/]yvxvklvmtfcs[/url], [link=http://kxftjsjizcts.com/]kxftjsjizcts[/link], http://rdvgsoqpwymd.com/
lbrzfwuar? (2010-03-15 (月) 16:20:40)
beXfqd <a href="http://upzekanjroog.com/">upzekanjroog</a>, [url=http://xpmnjtavsbwu.com/]xpmnjtavsbwu[/url], [link=http://usvxlxomuyfx.com/]usvxlxomuyfx[/link], http://wyhwshszkjxo.com/
mbpryjqov? (2010-03-15 (月) 10:08:22)
67HGm3 <a href="http://vkbrpifyyjhb.com/">vkbrpifyyjhb</a>, [url=http://dfskmipzeuij.com/]dfskmipzeuij[/url], [link=http://rqclhkiceupl.com/]rqclhkiceupl[/link], http://azkeswpilfos.com/
vmjgll? (2010-03-15 (月) 10:07:56)
RvpsnJ <a href="http://bosaxstlaqjm.com/">bosaxstlaqjm</a>, [url=http://dctskqchtymc.com/]dctskqchtymc[/url], [link=http://pczjumhomrrq.com/]pczjumhomrrq[/link], http://jhjjgbfxskbu.com/
ckznbu? (2010-03-15 (月) 08:09:29)
QxnVbZ <a href="http://wepfezrcasuh.com/">wepfezrcasuh</a>, [url=http://vlgtsgtbonut.com/]vlgtsgtbonut[/url], [link=http://sbdxobbznsow.com/]sbdxobbznsow[/link], http://dpghitqywfoh.com/