A alternative to vctrs::vec_group_id and
vctrs::vec_group_loc as
an S4 generic function to allow S4Vectors.
Examples
data <- S4Vectors::DataFrame(
letter = sample(letters, 500, TRUE),
LETTER = sample(letters, 500, TRUE)
)
vec_group_id(data)
#> [1] 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18
#> [19] 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36
#> [37] 37 38 39 40 41 42 43 44 45 46 5 47 48 49 50 26 51 52
#> [55] 53 54 55 56 57 58 59 60 61 62 4 63 64 65 41 66 67 68
#> [73] 69 70 59 71 72 73 74 75 76 76 77 78 1 79 80 81 82 83
#> [91] 84 85 86 87 88 89 90 91 77 92 93 2 94 95 96 97 98 99
#> [109] 100 101 102 103 104 105 106 107 108 109 110 111 112 113 47 114 115 116
#> [127] 117 118 119 120 80 48 87 121 122 123 124 125 126 105 11 127 128 129
#> [145] 46 130 131 15 132 133 134 135 136 137 138 62 139 140 104 141 98 93
#> [163] 117 142 143 144 145 146 147 148 53 149 150 89 53 151 152 153 154 155
#> [181] 156 157 158 159 160 161 162 58 163 35 164 165 111 55 166 167 168 169
#> [199] 170 171 56 172 173 174 175 134 176 177 178 179 180 181 22 30 182 183
#> [217] 184 185 186 187 188 189 190 191 192 108 193 194 195 196 197 198 113 199
#> [235] 200 201 202 203 204 205 206 207 46 96 188 160 208 209 210 41 211 212
#> [253] 213 188 214 7 215 216 217 53 218 219 220 221 70 173 222 223 224 36
#> [271] 225 226 227 228 229 230 33 231 232 133 233 234 235 236 79 237 238 239
#> [289] 240 38 241 121 242 243 215 244 245 246 247 248 75 249 210 250 251 252
#> [307] 59 253 254 111 255 20 48 254 256 189 257 257 21 258 259 260 261 262
#> [325] 247 263 264 265 90 266 137 232 267 268 269 99 270 271 272 273 274 61
#> [343] 275 276 277 278 279 145 280 174 281 282 220 283 284 285 286 220 287 133
#> [361] 288 281 236 63 77 289 27 290 291 36 292 293 36 294 189 295 226 296
#> [379] 139 221 297 72 298 299 76 238 62 300 301 210 302 303 129 188 304 241
#> [397] 118 305 306 307 115 308 42 309 310 311 312 313 314 39 315 316 296 317
#> [415] 318 319 320 321 322 221 323 324 92 314 322 258 325 326 327 50 328 203
#> [433] 329 156 309 330 331 332 333 214 334 335 336 337 338 339 255 302 340 341
#> [451] 342 215 343 344 34 294 143 345 296 346 347 177 348 312 349 228 350 351
#> [469] 46 352 312 353 354 192 292 244 225 355 356 357 358 229 359 360 361 288
#> [487] 362 363 101 364 35 365 213 178 362 366 367 368 369 304
#> attr(,"n")
#> [1] 369
vec_group_loc(data)
#> DataFrame with 369 rows and 2 columns
#> key loc
#> <DataFrame> <list>
#> 1 e:c 1,85
#> 2 u:r 2,102
#> 3 l:q 3
#> 4 b:x 4,65
#> 5 f:i 5,47
#> ... ... ...
#> 365 j:h 492
#> 366 d:d 496
#> 367 i:x 497
#> 368 m:b 498
#> 369 a:w 499