#r #combinations
Вопрос:
Несколько лет назад один родственник сыграл в лотерею и получил 4 из 6 номеров в одной игре и 2 из 6 в другой, обе игры были на одном билете. Просто ради любопытства, предположив, что с этим знанием можно вернуться в прошлое и разыграть каждую комбинацию из игры с 4 из 6 чисел с каждой комбинацией из 2 из 6 чисел, которая составляет 225 игр, как бы вывести все в одной строке?
Я могу получить 15 комбинаций из 4/6 с помощью
combn(c(16, 28, 5, 9, 13, 26), 4)
и еще 15 из 2/6 с
comb(c(32, 29, 14, 6, 3, 14), 2)
Я хотел бы объединить все это в один вывод, который должен вывести 225 комбинаций.
Ответ №1:
Я полагаю, что есть много способов решить эту проблему. Одно из потенциальных решений состоит в том, чтобы преобразовать «выборки» в фреймы данных и объединить их:
library(tidyverse)
options(max.print = 2000)
A <- t(combn(c(16, 28, 5, 9, 13, 26), 4))
B <- t(combn(c(32, 29, 14, 6, 3, 14), 2))
A_df <- as.data.frame(A)
names(A_df) <- paste("x4.of.6.", 1:4, sep = "")
B_df <- as.data.frame(B)
names(B_df) <- paste("x2.of.6.", 1:2, sep = "")
merge(B_df, A_df)
#> x2.of.6.1 x2.of.6.2 x4.of.6.1 x4.of.6.2 x4.of.6.3 x4.of.6.4
#> 1 32 29 16 28 5 9
#> 2 32 14 16 28 5 9
#> 3 32 6 16 28 5 9
#> 4 32 3 16 28 5 9
#> 5 32 14 16 28 5 9
#> 6 29 14 16 28 5 9
#> 7 29 6 16 28 5 9
#> 8 29 3 16 28 5 9
#> 9 29 14 16 28 5 9
#> 10 14 6 16 28 5 9
#> 11 14 3 16 28 5 9
#> 12 14 14 16 28 5 9
#> 13 6 3 16 28 5 9
#> 14 6 14 16 28 5 9
#> 15 3 14 16 28 5 9
#> 16 32 29 16 28 5 13
#> 17 32 14 16 28 5 13
#> 18 32 6 16 28 5 13
#> 19 32 3 16 28 5 13
#> 20 32 14 16 28 5 13
#> 21 29 14 16 28 5 13
#> 22 29 6 16 28 5 13
#> 23 29 3 16 28 5 13
#> 24 29 14 16 28 5 13
#> 25 14 6 16 28 5 13
#> 26 14 3 16 28 5 13
#> 27 14 14 16 28 5 13
#> 28 6 3 16 28 5 13
#> 29 6 14 16 28 5 13
#> 30 3 14 16 28 5 13
#> 31 32 29 16 28 5 26
#> 32 32 14 16 28 5 26
#> 33 32 6 16 28 5 26
#> 34 32 3 16 28 5 26
#> 35 32 14 16 28 5 26
#> 36 29 14 16 28 5 26
#> 37 29 6 16 28 5 26
#> 38 29 3 16 28 5 26
#> 39 29 14 16 28 5 26
#> 40 14 6 16 28 5 26
#> 41 14 3 16 28 5 26
#> 42 14 14 16 28 5 26
#> 43 6 3 16 28 5 26
#> 44 6 14 16 28 5 26
#> 45 3 14 16 28 5 26
#> 46 32 29 16 28 9 13
#> 47 32 14 16 28 9 13
#> 48 32 6 16 28 9 13
#> 49 32 3 16 28 9 13
#> 50 32 14 16 28 9 13
#> 51 29 14 16 28 9 13
#> 52 29 6 16 28 9 13
#> 53 29 3 16 28 9 13
#> 54 29 14 16 28 9 13
#> 55 14 6 16 28 9 13
#> 56 14 3 16 28 9 13
#> 57 14 14 16 28 9 13
#> 58 6 3 16 28 9 13
#> 59 6 14 16 28 9 13
#> 60 3 14 16 28 9 13
#> 61 32 29 16 28 9 26
#> 62 32 14 16 28 9 26
#> 63 32 6 16 28 9 26
#> 64 32 3 16 28 9 26
#> 65 32 14 16 28 9 26
#> 66 29 14 16 28 9 26
#> 67 29 6 16 28 9 26
#> 68 29 3 16 28 9 26
#> 69 29 14 16 28 9 26
#> 70 14 6 16 28 9 26
#> 71 14 3 16 28 9 26
#> 72 14 14 16 28 9 26
#> 73 6 3 16 28 9 26
#> 74 6 14 16 28 9 26
#> 75 3 14 16 28 9 26
#> 76 32 29 16 28 13 26
#> 77 32 14 16 28 13 26
#> 78 32 6 16 28 13 26
#> 79 32 3 16 28 13 26
#> 80 32 14 16 28 13 26
#> 81 29 14 16 28 13 26
#> 82 29 6 16 28 13 26
#> 83 29 3 16 28 13 26
#> 84 29 14 16 28 13 26
#> 85 14 6 16 28 13 26
#> 86 14 3 16 28 13 26
#> 87 14 14 16 28 13 26
#> 88 6 3 16 28 13 26
#> 89 6 14 16 28 13 26
#> 90 3 14 16 28 13 26
#> 91 32 29 16 5 9 13
#> 92 32 14 16 5 9 13
#> 93 32 6 16 5 9 13
#> 94 32 3 16 5 9 13
#> 95 32 14 16 5 9 13
#> 96 29 14 16 5 9 13
#> 97 29 6 16 5 9 13
#> 98 29 3 16 5 9 13
#> 99 29 14 16 5 9 13
#> 100 14 6 16 5 9 13
#> 101 14 3 16 5 9 13
#> 102 14 14 16 5 9 13
#> 103 6 3 16 5 9 13
#> 104 6 14 16 5 9 13
#> 105 3 14 16 5 9 13
#> 106 32 29 16 5 9 26
#> 107 32 14 16 5 9 26
#> 108 32 6 16 5 9 26
#> 109 32 3 16 5 9 26
#> 110 32 14 16 5 9 26
#> 111 29 14 16 5 9 26
#> 112 29 6 16 5 9 26
#> 113 29 3 16 5 9 26
#> 114 29 14 16 5 9 26
#> 115 14 6 16 5 9 26
#> 116 14 3 16 5 9 26
#> 117 14 14 16 5 9 26
#> 118 6 3 16 5 9 26
#> 119 6 14 16 5 9 26
#> 120 3 14 16 5 9 26
#> 121 32 29 16 5 13 26
#> 122 32 14 16 5 13 26
#> 123 32 6 16 5 13 26
#> 124 32 3 16 5 13 26
#> 125 32 14 16 5 13 26
#> 126 29 14 16 5 13 26
#> 127 29 6 16 5 13 26
#> 128 29 3 16 5 13 26
#> 129 29 14 16 5 13 26
#> 130 14 6 16 5 13 26
#> 131 14 3 16 5 13 26
#> 132 14 14 16 5 13 26
#> 133 6 3 16 5 13 26
#> 134 6 14 16 5 13 26
#> 135 3 14 16 5 13 26
#> 136 32 29 16 9 13 26
#> 137 32 14 16 9 13 26
#> 138 32 6 16 9 13 26
#> 139 32 3 16 9 13 26
#> 140 32 14 16 9 13 26
#> 141 29 14 16 9 13 26
#> 142 29 6 16 9 13 26
#> 143 29 3 16 9 13 26
#> 144 29 14 16 9 13 26
#> 145 14 6 16 9 13 26
#> 146 14 3 16 9 13 26
#> 147 14 14 16 9 13 26
#> 148 6 3 16 9 13 26
#> 149 6 14 16 9 13 26
#> 150 3 14 16 9 13 26
#> 151 32 29 28 5 9 13
#> 152 32 14 28 5 9 13
#> 153 32 6 28 5 9 13
#> 154 32 3 28 5 9 13
#> 155 32 14 28 5 9 13
#> 156 29 14 28 5 9 13
#> 157 29 6 28 5 9 13
#> 158 29 3 28 5 9 13
#> 159 29 14 28 5 9 13
#> 160 14 6 28 5 9 13
#> 161 14 3 28 5 9 13
#> 162 14 14 28 5 9 13
#> 163 6 3 28 5 9 13
#> 164 6 14 28 5 9 13
#> 165 3 14 28 5 9 13
#> 166 32 29 28 5 9 26
#> 167 32 14 28 5 9 26
#> 168 32 6 28 5 9 26
#> 169 32 3 28 5 9 26
#> 170 32 14 28 5 9 26
#> 171 29 14 28 5 9 26
#> 172 29 6 28 5 9 26
#> 173 29 3 28 5 9 26
#> 174 29 14 28 5 9 26
#> 175 14 6 28 5 9 26
#> 176 14 3 28 5 9 26
#> 177 14 14 28 5 9 26
#> 178 6 3 28 5 9 26
#> 179 6 14 28 5 9 26
#> 180 3 14 28 5 9 26
#> 181 32 29 28 5 13 26
#> 182 32 14 28 5 13 26
#> 183 32 6 28 5 13 26
#> 184 32 3 28 5 13 26
#> 185 32 14 28 5 13 26
#> 186 29 14 28 5 13 26
#> 187 29 6 28 5 13 26
#> 188 29 3 28 5 13 26
#> 189 29 14 28 5 13 26
#> 190 14 6 28 5 13 26
#> 191 14 3 28 5 13 26
#> 192 14 14 28 5 13 26
#> 193 6 3 28 5 13 26
#> 194 6 14 28 5 13 26
#> 195 3 14 28 5 13 26
#> 196 32 29 28 9 13 26
#> 197 32 14 28 9 13 26
#> 198 32 6 28 9 13 26
#> 199 32 3 28 9 13 26
#> 200 32 14 28 9 13 26
#> 201 29 14 28 9 13 26
#> 202 29 6 28 9 13 26
#> 203 29 3 28 9 13 26
#> 204 29 14 28 9 13 26
#> 205 14 6 28 9 13 26
#> 206 14 3 28 9 13 26
#> 207 14 14 28 9 13 26
#> 208 6 3 28 9 13 26
#> 209 6 14 28 9 13 26
#> 210 3 14 28 9 13 26
#> 211 32 29 5 9 13 26
#> 212 32 14 5 9 13 26
#> 213 32 6 5 9 13 26
#> 214 32 3 5 9 13 26
#> 215 32 14 5 9 13 26
#> 216 29 14 5 9 13 26
#> 217 29 6 5 9 13 26
#> 218 29 3 5 9 13 26
#> 219 29 14 5 9 13 26
#> 220 14 6 5 9 13 26
#> 221 14 3 5 9 13 26
#> 222 14 14 5 9 13 26
#> 223 6 3 5 9 13 26
#> 224 6 14 5 9 13 26
#> 225 3 14 5 9 13 26
Создано 2021-10-11 с помощью пакета reprex (v2.0.1)
Или другое потенциальное решение:
A <- combn(c(16, 28, 5, 9, 13, 26), 4)
B <- combn(c(32, 29, 14, 6, 3, 14), 2)
for (i in seq_along(A[1,])){
for (j in seq_along(A[1,])){
print(c(A[,i], B[,j]))
}
}
#> [1] 16 28 5 9 32 29
#> [1] 16 28 5 9 32 14
#> [1] 16 28 5 9 32 6
#> [1] 16 28 5 9 32 3
#> [1] 16 28 5 9 32 14
#> [1] 16 28 5 9 29 14
#> [1] 16 28 5 9 29 6
#> [1] 16 28 5 9 29 3
#> [1] 16 28 5 9 29 14
#> [1] 16 28 5 9 14 6
#> [1] 16 28 5 9 14 3
#> [1] 16 28 5 9 14 14
#> [1] 16 28 5 9 6 3
#> [1] 16 28 5 9 6 14
#> [1] 16 28 5 9 3 14
#> [1] 16 28 5 13 32 29
#> [1] 16 28 5 13 32 14
#> [1] 16 28 5 13 32 6
#> [1] 16 28 5 13 32 3
#> [1] 16 28 5 13 32 14
#> [1] 16 28 5 13 29 14
#> [1] 16 28 5 13 29 6
#> [1] 16 28 5 13 29 3
#> [1] 16 28 5 13 29 14
#> [1] 16 28 5 13 14 6
#> [1] 16 28 5 13 14 3
#> [1] 16 28 5 13 14 14
#> [1] 16 28 5 13 6 3
#> [1] 16 28 5 13 6 14
#> [1] 16 28 5 13 3 14
#> [1] 16 28 5 26 32 29
#> [1] 16 28 5 26 32 14
#> [1] 16 28 5 26 32 6
#> [1] 16 28 5 26 32 3
#> [1] 16 28 5 26 32 14
#> [1] 16 28 5 26 29 14
#> [1] 16 28 5 26 29 6
#> [1] 16 28 5 26 29 3
#> [1] 16 28 5 26 29 14
#> [1] 16 28 5 26 14 6
#> [1] 16 28 5 26 14 3
#> [1] 16 28 5 26 14 14
#> [1] 16 28 5 26 6 3
#> [1] 16 28 5 26 6 14
#> [1] 16 28 5 26 3 14
#> [1] 16 28 9 13 32 29
#> [1] 16 28 9 13 32 14
#> [1] 16 28 9 13 32 6
#> [1] 16 28 9 13 32 3
#> [1] 16 28 9 13 32 14
#> [1] 16 28 9 13 29 14
#> [1] 16 28 9 13 29 6
#> [1] 16 28 9 13 29 3
#> [1] 16 28 9 13 29 14
#> [1] 16 28 9 13 14 6
#> [1] 16 28 9 13 14 3
#> [1] 16 28 9 13 14 14
#> [1] 16 28 9 13 6 3
#> [1] 16 28 9 13 6 14
#> [1] 16 28 9 13 3 14
#> [1] 16 28 9 26 32 29
#> [1] 16 28 9 26 32 14
#> [1] 16 28 9 26 32 6
#> [1] 16 28 9 26 32 3
#> [1] 16 28 9 26 32 14
#> [1] 16 28 9 26 29 14
#> [1] 16 28 9 26 29 6
#> [1] 16 28 9 26 29 3
#> [1] 16 28 9 26 29 14
#> [1] 16 28 9 26 14 6
#> [1] 16 28 9 26 14 3
#> [1] 16 28 9 26 14 14
#> [1] 16 28 9 26 6 3
#> [1] 16 28 9 26 6 14
#> [1] 16 28 9 26 3 14
#> [1] 16 28 13 26 32 29
#> [1] 16 28 13 26 32 14
#> [1] 16 28 13 26 32 6
#> [1] 16 28 13 26 32 3
#> [1] 16 28 13 26 32 14
#> [1] 16 28 13 26 29 14
#> [1] 16 28 13 26 29 6
#> [1] 16 28 13 26 29 3
#> [1] 16 28 13 26 29 14
#> [1] 16 28 13 26 14 6
#> [1] 16 28 13 26 14 3
#> [1] 16 28 13 26 14 14
#> [1] 16 28 13 26 6 3
#> [1] 16 28 13 26 6 14
#> [1] 16 28 13 26 3 14
#> [1] 16 5 9 13 32 29
#> [1] 16 5 9 13 32 14
#> [1] 16 5 9 13 32 6
#> [1] 16 5 9 13 32 3
#> [1] 16 5 9 13 32 14
#> [1] 16 5 9 13 29 14
#> [1] 16 5 9 13 29 6
#> [1] 16 5 9 13 29 3
#> [1] 16 5 9 13 29 14
#> [1] 16 5 9 13 14 6
#> [1] 16 5 9 13 14 3
#> [1] 16 5 9 13 14 14
#> [1] 16 5 9 13 6 3
#> [1] 16 5 9 13 6 14
#> [1] 16 5 9 13 3 14
#> [1] 16 5 9 26 32 29
#> [1] 16 5 9 26 32 14
#> [1] 16 5 9 26 32 6
#> [1] 16 5 9 26 32 3
#> [1] 16 5 9 26 32 14
#> [1] 16 5 9 26 29 14
#> [1] 16 5 9 26 29 6
#> [1] 16 5 9 26 29 3
#> [1] 16 5 9 26 29 14
#> [1] 16 5 9 26 14 6
#> [1] 16 5 9 26 14 3
#> [1] 16 5 9 26 14 14
#> [1] 16 5 9 26 6 3
#> [1] 16 5 9 26 6 14
#> [1] 16 5 9 26 3 14
#> [1] 16 5 13 26 32 29
#> [1] 16 5 13 26 32 14
#> [1] 16 5 13 26 32 6
#> [1] 16 5 13 26 32 3
#> [1] 16 5 13 26 32 14
#> [1] 16 5 13 26 29 14
#> [1] 16 5 13 26 29 6
#> [1] 16 5 13 26 29 3
#> [1] 16 5 13 26 29 14
#> [1] 16 5 13 26 14 6
#> [1] 16 5 13 26 14 3
#> [1] 16 5 13 26 14 14
#> [1] 16 5 13 26 6 3
#> [1] 16 5 13 26 6 14
#> [1] 16 5 13 26 3 14
#> [1] 16 9 13 26 32 29
#> [1] 16 9 13 26 32 14
#> [1] 16 9 13 26 32 6
#> [1] 16 9 13 26 32 3
#> [1] 16 9 13 26 32 14
#> [1] 16 9 13 26 29 14
#> [1] 16 9 13 26 29 6
#> [1] 16 9 13 26 29 3
#> [1] 16 9 13 26 29 14
#> [1] 16 9 13 26 14 6
#> [1] 16 9 13 26 14 3
#> [1] 16 9 13 26 14 14
#> [1] 16 9 13 26 6 3
#> [1] 16 9 13 26 6 14
#> [1] 16 9 13 26 3 14
#> [1] 28 5 9 13 32 29
#> [1] 28 5 9 13 32 14
#> [1] 28 5 9 13 32 6
#> [1] 28 5 9 13 32 3
#> [1] 28 5 9 13 32 14
#> [1] 28 5 9 13 29 14
#> [1] 28 5 9 13 29 6
#> [1] 28 5 9 13 29 3
#> [1] 28 5 9 13 29 14
#> [1] 28 5 9 13 14 6
#> [1] 28 5 9 13 14 3
#> [1] 28 5 9 13 14 14
#> [1] 28 5 9 13 6 3
#> [1] 28 5 9 13 6 14
#> [1] 28 5 9 13 3 14
#> [1] 28 5 9 26 32 29
#> [1] 28 5 9 26 32 14
#> [1] 28 5 9 26 32 6
#> [1] 28 5 9 26 32 3
#> [1] 28 5 9 26 32 14
#> [1] 28 5 9 26 29 14
#> [1] 28 5 9 26 29 6
#> [1] 28 5 9 26 29 3
#> [1] 28 5 9 26 29 14
#> [1] 28 5 9 26 14 6
#> [1] 28 5 9 26 14 3
#> [1] 28 5 9 26 14 14
#> [1] 28 5 9 26 6 3
#> [1] 28 5 9 26 6 14
#> [1] 28 5 9 26 3 14
#> [1] 28 5 13 26 32 29
#> [1] 28 5 13 26 32 14
#> [1] 28 5 13 26 32 6
#> [1] 28 5 13 26 32 3
#> [1] 28 5 13 26 32 14
#> [1] 28 5 13 26 29 14
#> [1] 28 5 13 26 29 6
#> [1] 28 5 13 26 29 3
#> [1] 28 5 13 26 29 14
#> [1] 28 5 13 26 14 6
#> [1] 28 5 13 26 14 3
#> [1] 28 5 13 26 14 14
#> [1] 28 5 13 26 6 3
#> [1] 28 5 13 26 6 14
#> [1] 28 5 13 26 3 14
#> [1] 28 9 13 26 32 29
#> [1] 28 9 13 26 32 14
#> [1] 28 9 13 26 32 6
#> [1] 28 9 13 26 32 3
#> [1] 28 9 13 26 32 14
#> [1] 28 9 13 26 29 14
#> [1] 28 9 13 26 29 6
#> [1] 28 9 13 26 29 3
#> [1] 28 9 13 26 29 14
#> [1] 28 9 13 26 14 6
#> [1] 28 9 13 26 14 3
#> [1] 28 9 13 26 14 14
#> [1] 28 9 13 26 6 3
#> [1] 28 9 13 26 6 14
#> [1] 28 9 13 26 3 14
#> [1] 5 9 13 26 32 29
#> [1] 5 9 13 26 32 14
#> [1] 5 9 13 26 32 6
#> [1] 5 9 13 26 32 3
#> [1] 5 9 13 26 32 14
#> [1] 5 9 13 26 29 14
#> [1] 5 9 13 26 29 6
#> [1] 5 9 13 26 29 3
#> [1] 5 9 13 26 29 14
#> [1] 5 9 13 26 14 6
#> [1] 5 9 13 26 14 3
#> [1] 5 9 13 26 14 14
#> [1] 5 9 13 26 6 3
#> [1] 5 9 13 26 6 14
#> [1] 5 9 13 26 3 14
Создано 2021-10-11 с помощью пакета reprex (v2.0.1)