Gather Multidimensional Array to Tidy Tibble
Examples
a <- array(1:100, dim =c(10, 5, 2))
gather_array(a, sequence, A, B, C)
#> A B C sequence
#> 1 1 1 1 1
#> 2 2 1 1 2
#> 3 3 1 1 3
#> 4 4 1 1 4
#> 5 5 1 1 5
#> 6 6 1 1 6
#> 7 7 1 1 7
#> 8 8 1 1 8
#> 9 9 1 1 9
#> 10 10 1 1 10
#> 11 1 2 1 11
#> 12 2 2 1 12
#> 13 3 2 1 13
#> 14 4 2 1 14
#> 15 5 2 1 15
#> 16 6 2 1 16
#> 17 7 2 1 17
#> 18 8 2 1 18
#> 19 9 2 1 19
#> 20 10 2 1 20
#> 21 1 3 1 21
#> 22 2 3 1 22
#> 23 3 3 1 23
#> 24 4 3 1 24
#> 25 5 3 1 25
#> 26 6 3 1 26
#> 27 7 3 1 27
#> 28 8 3 1 28
#> 29 9 3 1 29
#> 30 10 3 1 30
#> 31 1 4 1 31
#> 32 2 4 1 32
#> 33 3 4 1 33
#> 34 4 4 1 34
#> 35 5 4 1 35
#> 36 6 4 1 36
#> 37 7 4 1 37
#> 38 8 4 1 38
#> 39 9 4 1 39
#> 40 10 4 1 40
#> 41 1 5 1 41
#> 42 2 5 1 42
#> 43 3 5 1 43
#> 44 4 5 1 44
#> 45 5 5 1 45
#> 46 6 5 1 46
#> 47 7 5 1 47
#> 48 8 5 1 48
#> 49 9 5 1 49
#> 50 10 5 1 50
#> 51 1 1 2 51
#> 52 2 1 2 52
#> 53 3 1 2 53
#> 54 4 1 2 54
#> 55 5 1 2 55
#> 56 6 1 2 56
#> 57 7 1 2 57
#> 58 8 1 2 58
#> 59 9 1 2 59
#> 60 10 1 2 60
#> 61 1 2 2 61
#> 62 2 2 2 62
#> 63 3 2 2 63
#> 64 4 2 2 64
#> 65 5 2 2 65
#> 66 6 2 2 66
#> 67 7 2 2 67
#> 68 8 2 2 68
#> 69 9 2 2 69
#> 70 10 2 2 70
#> 71 1 3 2 71
#> 72 2 3 2 72
#> 73 3 3 2 73
#> 74 4 3 2 74
#> 75 5 3 2 75
#> 76 6 3 2 76
#> 77 7 3 2 77
#> 78 8 3 2 78
#> 79 9 3 2 79
#> 80 10 3 2 80
#> 81 1 4 2 81
#> 82 2 4 2 82
#> 83 3 4 2 83
#> 84 4 4 2 84
#> 85 5 4 2 85
#> 86 6 4 2 86
#> 87 7 4 2 87
#> 88 8 4 2 88
#> 89 9 4 2 89
#> 90 10 4 2 90
#> 91 1 5 2 91
#> 92 2 5 2 92
#> 93 3 5 2 93
#> 94 4 5 2 94
#> 95 5 5 2 95
#> 96 6 5 2 96
#> 97 7 5 2 97
#> 98 8 5 2 98
#> 99 9 5 2 99
#> 100 10 5 2 100