恕删。 > ※ 引述《rogerhsiao (moneyrat)》之铭言： > : 不好意思，小弟是新手，想请教各位高手一个问题， > : 以下是需分析的资料，假如我想要针对某一列 > : (例如47 37 14 15 25 49 13)中挑选出所有的偶数号码， > : 并把这些资料存在一个数列中，请问应该要怎麽做？ > : 之前不论使用for回圈还是if条件句都做不出来，希望各位高手能指导一下， > : 谢谢！ x<-read.table(file="D:\\test.txt") f<-function(x) x[which(x%%2==0)] y<-apply(x, 1, f) # for all rows f(x[i,]) # for row i -- 夫兵者不祥之器物或恶之故有道者不处君子居则贵左用兵则贵右兵者不祥之器非君子 之器不得已而用之恬淡为上胜而不美而美之者是乐杀人夫乐杀人者则不可得志於天下 矣吉事尚左凶事尚右偏将军居左上将军居右言以丧礼处之杀人之众以哀悲泣之战胜以 丧礼处之道常无名朴虽小天下莫能臣侯王若能守之万物将自宾天地相合以降甘露民莫 之令而自均始制有名名亦既有夫亦将知止知止可以不殆譬道 n175139.nhri.org.tw海