R語(yǔ)言-組合全排列問題

問題1：5組數(shù)據(jù)，從每組數(shù)據(jù)中抽取n個(gè)全組合型型，列出所有組合

  
#數(shù)據(jù)下標(biāo)
  a<-c(1,2,3)   
  b<-c(4,5,6)
  c<-c(7,8,9)
  d<-c(10,11,12)
  e<-c(13,14,15)

  n<-2 #抽取個(gè)數(shù)
  ac<-t(combn(a,n)) #求出a組數(shù)據(jù)所有轉(zhuǎn)置組合
  ac<-as.data.frame(ac)  #轉(zhuǎn)成數(shù)據(jù)框，統(tǒng)一處理
  bc<-t(combn(b,n))
  bc<-as.data.frame(bc)
  cc<-t(combn(c,n))
  cc<-as.data.frame(cc)
  dc<-t(combn(d,n))
  dc<-as.data.frame(dc)
  ec<-t(combn(e,n))
  ec<-as.data.frame(ec)

#兩兩遍歷組合
  f_f<-function(a,b){
    temp<-data.frame()
    for(i in 1:nrow(a)){
      for(j in 1:nrow(b)){
        ab = c(a[i,],b[j,])
        temp<-rbind(temp,ab)
      }
    }
    return(temp)
  }

  result<-f_f(ac,bc)
  result<-f_f(result,cc)
  result<-f_f(result,dc)
  result<-f_f(result,ec)

結(jié)果1

1   1   2   4   5   7   8   10  11  13  14
2   1   2   4   5   7   8   10  11  13  15
3   1   2   4   5   7   8   10  11  14  15
4   1   2   4   5   7   8   10  12  13  14
5   1   2   4   5   7   8   10  12  13  15
6   1   2   4   5   7   8   10  12  14  15
7   1   2   4   5   7   8   11  12  13  14
8   1   2   4   5   7   8   11  12  13  15
9   1   2   4   5   7   8   11  12  14  15
10  1   2   4   5   7   9   10  11  13  14
11  1   2   4   5   7   9   10  11  13  15
12  1   2   4   5   7   9   10  11  14  15
13  1   2   4   5   7   9   10  12  13  14
14  1   2   4   5   7   9   10  12  13  15
15  1   2   4   5   7   9   10  12  14  15
16  1   2   4   5   7   9   11  12  13  14
17  1   2   4   5   7   9   11  12  13  15
18  1   2   4   5   7   9   11  12  14  15
19  1   2   4   5   8   9   10  11  13  14
20  1   2   4   5   8   9   10  11  13  15
21  1   2   4   5   8   9   10  11  14  15
22  1   2   4   5   8   9   10  12  13  14
23  1   2   4   5   8   9   10  12  13  15
24  1   2   4   5   8   9   10  12  14  15
25  1   2   4   5   8   9   11  12  13  14
26  1   2   4   5   8   9   11  12  13  15
27  1   2   4   5   8   9   11  12  14  15
28  1   2   4   6   7   8   10  11  13  14
29  1   2   4   6   7   8   10  11  13  15
30  1   2   4   6   7   8   10  11  14  15
31  1   2   4   6   7   8   10  12  13  14
32  1   2   4   6   7   8   10  12  13  15
33  1   2   4   6   7   8   10  12  14  15
34  1   2   4   6   7   8   11  12  13  14
35  1   2   4   6   7   8   11  12  13  15
36  1   2   4   6   7   8   11  12  14  15
37  1   2   4   6   7   9   10  11  13  14
38  1   2   4   6   7   9   10  11  13  15
39  1   2   4   6   7   9   10  11  14  15
40  1   2   4   6   7   9   10  12  13  14
41  1   2   4   6   7   9   10  12  13  15
42  1   2   4   6   7   9   10  12  14  15
43  1   2   4   6   7   9   11  12  13  14
44  1   2   4   6   7   9   11  12  13  15
45  1   2   4   6   7   9   11  12  14  15
46  1   2   4   6   8   9   10  11  13  14
47  1   2   4   6   8   9   10  11  13  15
48  1   2   4   6   8   9   10  11  14  15
49  1   2   4   6   8   9   10  12  13  14
50  1   2   4   6   8   9   10  12  13  15
51  1   2   4   6   8   9   10  12  14  15
52  1   2   4   6   8   9   11  12  13  14
53  1   2   4   6   8   9   11  12  13  15
54  1   2   4   6   8   9   11  12  14  15
55  1   2   5   6   7   8   10  11  13  14
56  1   2   5   6   7   8   10  11  13  15
57  1   2   5   6   7   8   10  11  14  15
58  1   2   5   6   7   8   10  12  13  14
59  1   2   5   6   7   8   10  12  13  15
60  1   2   5   6   7   8   10  12  14  15
61  1   2   5   6   7   8   11  12  13  14
62  1   2   5   6   7   8   11  12  13  15
63  1   2   5   6   7   8   11  12  14  15
64  1   2   5   6   7   9   10  11  13  14
65  1   2   5   6   7   9   10  11  13  15
66  1   2   5   6   7   9   10  11  14  15
67  1   2   5   6   7   9   10  12  13  14
68  1   2   5   6   7   9   10  12  13  15
69  1   2   5   6   7   9   10  12  14  15
70  1   2   5   6   7   9   11  12  13  14
71  1   2   5   6   7   9   11  12  13  15
72  1   2   5   6   7   9   11  12  14  15
73  1   2   5   6   8   9   10  11  13  14
74  1   2   5   6   8   9   10  11  13  15
75  1   2   5   6   8   9   10  11  14  15
76  1   2   5   6   8   9   10  12  13  14
77  1   2   5   6   8   9   10  12  13  15
78  1   2   5   6   8   9   10  12  14  15
79  1   2   5   6   8   9   11  12  13  14
80  1   2   5   6   8   9   11  12  13  15
81  1   2   5   6   8   9   11  12  14  15
82  1   3   4   5   7   8   10  11  13  14
83  1   3   4   5   7   8   10  11  13  15
84  1   3   4   5   7   8   10  11  14  15
85  1   3   4   5   7   8   10  12  13  14
86  1   3   4   5   7   8   10  12  13  15
87  1   3   4   5   7   8   10  12  14  15
88  1   3   4   5   7   8   11  12  13  14
89  1   3   4   5   7   8   11  12  13  15
90  1   3   4   5   7   8   11  12  14  15
91  1   3   4   5   7   9   10  11  13  14
92  1   3   4   5   7   9   10  11  13  15
93  1   3   4   5   7   9   10  11  14  15
94  1   3   4   5   7   9   10  12  13  14
95  1   3   4   5   7   9   10  12  13  15
96  1   3   4   5   7   9   10  12  14  15
97  1   3   4   5   7   9   11  12  13  14
98  1   3   4   5   7   9   11  12  13  15
99  1   3   4   5   7   9   11  12  14  15
100 1   3   4   5   8   9   10  11  13  14
101 1   3   4   5   8   9   10  11  13  15
102 1   3   4   5   8   9   10  11  14  15
103 1   3   4   5   8   9   10  12  13  14
104 1   3   4   5   8   9   10  12  13  15
105 1   3   4   5   8   9   10  12  14  15
106 1   3   4   5   8   9   11  12  13  14
107 1   3   4   5   8   9   11  12  13  15
108 1   3   4   5   8   9   11  12  14  15
109 1   3   4   6   7   8   10  11  13  14
110 1   3   4   6   7   8   10  11  13  15
111 1   3   4   6   7   8   10  11  14  15
112 1   3   4   6   7   8   10  12  13  14
113 1   3   4   6   7   8   10  12  13  15
114 1   3   4   6   7   8   10  12  14  15
115 1   3   4   6   7   8   11  12  13  14
116 1   3   4   6   7   8   11  12  13  15
117 1   3   4   6   7   8   11  12  14  15
118 1   3   4   6   7   9   10  11  13  14
119 1   3   4   6   7   9   10  11  13  15
120 1   3   4   6   7   9   10  11  14  15
121 1   3   4   6   7   9   10  12  13  14
122 1   3   4   6   7   9   10  12  13  15
123 1   3   4   6   7   9   10  12  14  15
124 1   3   4   6   7   9   11  12  13  14
125 1   3   4   6   7   9   11  12  13  15
126 1   3   4   6   7   9   11  12  14  15
127 1   3   4   6   8   9   10  11  13  14
128 1   3   4   6   8   9   10  11  13  15
129 1   3   4   6   8   9   10  11  14  15
130 1   3   4   6   8   9   10  12  13  14
131 1   3   4   6   8   9   10  12  13  15
132 1   3   4   6   8   9   10  12  14  15
133 1   3   4   6   8   9   11  12  13  14
134 1   3   4   6   8   9   11  12  13  15
135 1   3   4   6   8   9   11  12  14  15
136 1   3   5   6   7   8   10  11  13  14
137 1   3   5   6   7   8   10  11  13  15
138 1   3   5   6   7   8   10  11  14  15
139 1   3   5   6   7   8   10  12  13  14
140 1   3   5   6   7   8   10  12  13  15
141 1   3   5   6   7   8   10  12  14  15
142 1   3   5   6   7   8   11  12  13  14
143 1   3   5   6   7   8   11  12  13  15
144 1   3   5   6   7   8   11  12  14  15
145 1   3   5   6   7   9   10  11  13  14
146 1   3   5   6   7   9   10  11  13  15
147 1   3   5   6   7   9   10  11  14  15
148 1   3   5   6   7   9   10  12  13  14
149 1   3   5   6   7   9   10  12  13  15
150 1   3   5   6   7   9   10  12  14  15
151 1   3   5   6   7   9   11  12  13  14
152 1   3   5   6   7   9   11  12  13  15
153 1   3   5   6   7   9   11  12  14  15
154 1   3   5   6   8   9   10  11  13  14
155 1   3   5   6   8   9   10  11  13  15
156 1   3   5   6   8   9   10  11  14  15
157 1   3   5   6   8   9   10  12  13  14
158 1   3   5   6   8   9   10  12  13  15
159 1   3   5   6   8   9   10  12  14  15
160 1   3   5   6   8   9   11  12  13  14
161 1   3   5   6   8   9   11  12  13  15
162 1   3   5   6   8   9   11  12  14  15
163 2   3   4   5   7   8   10  11  13  14
164 2   3   4   5   7   8   10  11  13  15
165 2   3   4   5   7   8   10  11  14  15
166 2   3   4   5   7   8   10  12  13  14
167 2   3   4   5   7   8   10  12  13  15
168 2   3   4   5   7   8   10  12  14  15
169 2   3   4   5   7   8   11  12  13  14
170 2   3   4   5   7   8   11  12  13  15
171 2   3   4   5   7   8   11  12  14  15
172 2   3   4   5   7   9   10  11  13  14
173 2   3   4   5   7   9   10  11  13  15
174 2   3   4   5   7   9   10  11  14  15
175 2   3   4   5   7   9   10  12  13  14
176 2   3   4   5   7   9   10  12  13  15
177 2   3   4   5   7   9   10  12  14  15
178 2   3   4   5   7   9   11  12  13  14
179 2   3   4   5   7   9   11  12  13  15
180 2   3   4   5   7   9   11  12  14  15
181 2   3   4   5   8   9   10  11  13  14
182 2   3   4   5   8   9   10  11  13  15
183 2   3   4   5   8   9   10  11  14  15
184 2   3   4   5   8   9   10  12  13  14
185 2   3   4   5   8   9   10  12  13  15
186 2   3   4   5   8   9   10  12  14  15
187 2   3   4   5   8   9   11  12  13  14
188 2   3   4   5   8   9   11  12  13  15
189 2   3   4   5   8   9   11  12  14  15
190 2   3   4   6   7   8   10  11  13  14
191 2   3   4   6   7   8   10  11  13  15
192 2   3   4   6   7   8   10  11  14  15
193 2   3   4   6   7   8   10  12  13  14
194 2   3   4   6   7   8   10  12  13  15
195 2   3   4   6   7   8   10  12  14  15
196 2   3   4   6   7   8   11  12  13  14
197 2   3   4   6   7   8   11  12  13  15
198 2   3   4   6   7   8   11  12  14  15
199 2   3   4   6   7   9   10  11  13  14
200 2   3   4   6   7   9   10  11  13  15
201 2   3   4   6   7   9   10  11  14  15
202 2   3   4   6   7   9   10  12  13  14
203 2   3   4   6   7   9   10  12  13  15
204 2   3   4   6   7   9   10  12  14  15
205 2   3   4   6   7   9   11  12  13  14
206 2   3   4   6   7   9   11  12  13  15
207 2   3   4   6   7   9   11  12  14  15
208 2   3   4   6   8   9   10  11  13  14
209 2   3   4   6   8   9   10  11  13  15
210 2   3   4   6   8   9   10  11  14  15
211 2   3   4   6   8   9   10  12  13  14
212 2   3   4   6   8   9   10  12  13  15
213 2   3   4   6   8   9   10  12  14  15
214 2   3   4   6   8   9   11  12  13  14
215 2   3   4   6   8   9   11  12  13  15
216 2   3   4   6   8   9   11  12  14  15
217 2   3   5   6   7   8   10  11  13  14
218 2   3   5   6   7   8   10  11  13  15
219 2   3   5   6   7   8   10  11  14  15
220 2   3   5   6   7   8   10  12  13  14
221 2   3   5   6   7   8   10  12  13  15
222 2   3   5   6   7   8   10  12  14  15
223 2   3   5   6   7   8   11  12  13  14
224 2   3   5   6   7   8   11  12  13  15
225 2   3   5   6   7   8   11  12  14  15
226 2   3   5   6   7   9   10  11  13  14
227 2   3   5   6   7   9   10  11  13  15
228 2   3   5   6   7   9   10  11  14  15
229 2   3   5   6   7   9   10  12  13  14
230 2   3   5   6   7   9   10  12  13  15
231 2   3   5   6   7   9   10  12  14  15
232 2   3   5   6   7   9   11  12  13  14
233 2   3   5   6   7   9   11  12  13  15
234 2   3   5   6   7   9   11  12  14  15
235 2   3   5   6   8   9   10  11  13  14
236 2   3   5   6   8   9   10  11  13  15
237 2   3   5   6   8   9   10  11  14  15
238 2   3   5   6   8   9   10  12  13  14
239 2   3   5   6   8   9   10  12  13  15
240 2   3   5   6   8   9   10  12  14  15
241 2   3   5   6   8   9   11  12  13  14
242 2   3   5   6   8   9   11  12  13  15
243 2   3   5   6   8   9   11  12  14  15
Showing 1 to 27 of 243 entries, 10 total columns

問題2：5組數(shù)據(jù)全蝶，隨機(jī)從每組數(shù)據(jù)中抽取n個(gè)數(shù)據(jù)

  n<- 2 #抽樣數(shù)目
  result<-data.frame()
  myData<-data.frame(a=c(1,2,3,4,6,7,8,9,10,11),b=c(1,2,3,4,5,6,7,8,9,10),s=c('A','A','A','B','B','B','B','C','C','C'))
  sdata<-split(myData,data$s)
  for (i in 1:length(sdata)) {
    sb<-sdata[[i]] 
    x<-sb[sample(nrow(sb),n,replace = F),]
    result<-rbind(result,x)
  }

數(shù)據(jù)mydata
    a   b   s
1   1   1   A
2   2   2   A
3   3   3   A
4   4   4   B
5   6   5   B
6   7   6   B
7   8   7   B
8   9   8   C
9   10  9   C
10  11  10  C

結(jié)果result
    a   b   s
1   1   1   A
3   3   3   A
7   8   7   B
5   6   5   B
10  11  10  C
8   9   8   C

只是一種思路

最后編輯于 ：
?著作權(quán)歸作者所有,轉(zhuǎn)載或內(nèi)容合作請(qǐng)聯(lián)系作者
  • 人面猴
    序言：七十年代末闹蒜，一起剝皮案震驚了整個(gè)濱河市，隨后出現(xiàn)的幾起案子抑淫，更是在濱河造成了極大的恐慌绷落，老刑警劉巖，帶你破解...
    沈念sama閱讀 210,914評(píng)論 6贊 490
  • 死咒
    序言：濱河連續(xù)發(fā)生了三起死亡事件始苇，死亡現(xiàn)場(chǎng)離奇詭異砌烁，居然都是意外死亡，警方通過查閱死者的電腦和手機(jī)催式，發(fā)現(xiàn)死者居然都...
    沈念sama閱讀 89,935評(píng)論 2贊 383
  • 救了他兩次的神仙讓他今天三更去死
    文/潘曉璐 我一進(jìn)店門函喉，熙熙樓的掌柜王于貴愁眉苦臉地迎上來(lái)，“玉大人荣月，你說我怎么就攤上這事管呵。” “怎么了哺窄？”我有些...
    開封第一講書人閱讀 156,531評(píng)論 0贊 345
  • 道士緝兇錄：失蹤的賣姜人
    文/不壞的土叔 我叫張陵捐下，是天一觀的道長(zhǎng)。 經(jīng)常有香客問我萌业，道長(zhǎng)坷襟，這世上最難降的妖魔是什么？ 我笑而不...
    開封第一講書人閱讀 56,309評(píng)論 1贊 282
  • ?港島之戀（遺憾婚禮）
    正文 為了忘掉前任生年，我火速辦了婚禮婴程，結(jié)果婚禮上，老公的妹妹穿的比我還像新娘晶框。我一直安慰自己排抬，他們只是感情好懂从，可當(dāng)我...
    茶點(diǎn)故事閱讀 65,381評(píng)論 5贊 384
  • 惡毒庶女頂嫁案：這布局不是一般人想出來(lái)的
    文/花漫 我一把揭開白布授段。 她就那樣靜靜地躺著蹲蒲，像睡著了一般。 火紅的嫁衣襯著肌膚如雪侵贵。 梳的紋絲不亂的頭發(fā)上届搁，一...
    開封第一講書人閱讀 49,730評(píng)論 1贊 289
  • 城市分裂傳說
    那天，我揣著相機(jī)與錄音窍育，去河邊找鬼卡睦。 笑死，一個(gè)胖子當(dāng)著我的面吹牛漱抓，可吹牛的內(nèi)容都是我干的表锻。 我是一名探鬼主播，決...
    沈念sama閱讀 38,882評(píng)論 3贊 404
  • 雙鴛鴦連環(huán)套：你想象不到人心有多黑
    文/蒼蘭香墨 我猛地睜開眼乞娄，長(zhǎng)吁一口氣：“原來(lái)是場(chǎng)噩夢(mèng)啊……” “哼瞬逊！你這毒婦竟也來(lái)了？” 一聲冷哼從身側(cè)響起仪或，我...
    開封第一講書人閱讀 37,643評(píng)論 0贊 266
  • 萬(wàn)榮殺人案實(shí)錄
    序言：老撾萬(wàn)榮一對(duì)情侶失蹤确镊，失蹤者是張志新（化名）和其女友劉穎，沒想到半個(gè)月后范删，有當(dāng)?shù)厝嗽跇淞掷锇l(fā)現(xiàn)了一具尸體蕾域，經(jīng)...
    沈念sama閱讀 44,095評(píng)論 1贊 303
  • ?護(hù)林員之死
    正文 獨(dú)居荒郊野嶺守林人離奇死亡，尸身上長(zhǎng)有42處帶血的膿包…… 初始之章·張勛 以下內(nèi)容為張勛視角 年9月15日...
    茶點(diǎn)故事閱讀 36,448評(píng)論 2贊 325
  • ?白月光啟示錄
    正文 我和宋清朗相戀三年到旦，在試婚紗的時(shí)候發(fā)現(xiàn)自己被綠了旨巷。 大學(xué)時(shí)的朋友給我發(fā)了我未婚夫和他白月光在一起吃飯的照片。...
    茶點(diǎn)故事閱讀 38,566評(píng)論 1贊 339
  • 活死人
    序言：一個(gè)原本活蹦亂跳的男人離奇死亡添忘，死狀恐怖采呐，靈堂內(nèi)的尸體忽然破棺而出，到底是詐尸還是另有隱情昔汉，我是刑警寧澤懈万，帶...
    沈念sama閱讀 34,253評(píng)論 4贊 328
  • ?日本核電站爆炸內(nèi)幕
    正文 年R本政府宣布，位于F島的核電站靶病，受9級(jí)特大地震影響会通，放射性物質(zhì)發(fā)生泄漏。R本人自食惡果不足惜娄周，卻給世界環(huán)境...
    茶點(diǎn)故事閱讀 39,829評(píng)論 3贊 312
  • 男人毒藥：我在死后第九天來(lái)索命
    文/蒙蒙 一涕侈、第九天 我趴在偏房一處隱蔽的房頂上張望。 院中可真熱鬧煤辨，春花似錦裳涛、人聲如沸木张。這莊子的主人今日做“春日...
    開封第一講書人閱讀 30,715評(píng)論 0贊 21
  • 一樁弒父案端三，背后竟有這般陰謀
    文/蒼蘭香墨 我抬頭看了看天上的太陽(yáng)舷礼。三九已至，卻和暖如春郊闯，著一層夾襖步出監(jiān)牢的瞬間妻献，已是汗流浹背。 一陣腳步聲響...
    開封第一講書人閱讀 31,945評(píng)論 1贊 264
  • 情欲美人皮
    我被黑心中介騙來(lái)泰國(guó)打工团赁， 沒想到剛下飛機(jī)就差點(diǎn)兒被人妖公主榨干…… 1. 我叫王不留育拨，地道東北人。 一個(gè)月前我還...
    沈念sama閱讀 46,248評(píng)論 2贊 360
  • 代替公主和親
    正文 我出身青樓欢摄，卻偏偏與公主長(zhǎng)得像熬丧，于是被迫代替她去往敵國(guó)和親。 傳聞我的和親對(duì)象是個(gè)殘疾皇子怀挠，可洞房花燭夜當(dāng)晚...
    茶點(diǎn)故事閱讀 43,440評(píng)論 2贊 348