显然，R向量中的重复值没有相同的索引，但是我们可能希望为连续重复的值创建相同的索引，这将有助于识别重复值的组。为此，我们可以将cumsum函数与diff函数一起使用，如以下示例所示。
x1<−sample(0:2,20,replace=TRUE) x1输出结果
[1] 1 1 0 2 0 0 2 2 1 1 0 1 2 1 0 2 1 2 1 1
cumsum(c(1,diff(x1)!=0))
[1] 1 1 2 3 4 4 5 5 6 6 7 8 9 10 11 12 13 14 15 15
x2<−rpois(200,2) x2输出结果
[1] 1 2 2 1 2 0 1 2 1 1 2 2 2 2 1 1 1 3 2 0 0 0 1 2 2 0 2 0 2 1 1 5 2 1 1 2 2 [38] 1 3 1 1 0 3 2 1 2 4 2 1 0 3 1 1 2 1 1 2 3 2 5 6 2 6 1 2 2 3 2 0 2 0 1 0 1 [75] 1 5 4 1 1 2 2 0 0 2 3 2 2 3 2 1 2 1 1 1 2 1 0 4 4 3 1 1 3 1 0 2 2 2 1 0 0 [112] 3 4 0 2 2 3 2 3 1 6 4 1 5 7 3 3 0 5 2 0 2 3 2 1 3 2 2 3 0 1 2 3 2 1 1 1 1 [149] 1 2 2 3 3 3 2 1 4 2 1 4 2 3 1 1 2 4 1 0 3 3 2 1 1 3 3 1 1 1 1 4 4 3 1 2 1 [186] 4 0 2 1 1 2 2 0 0 1 1 5 4 3 2
cumsum(c(1,diff(x2)!=0))输出结果
[1] 1 2 2 3 4 5 6 7 8 8 9 9 9 9 10 10 10 11 [19] 12 13 13 13 14 15 15 16 17 18 19 20 20 21 22 23 23 24 [37] 24 25 26 27 27 28 29 30 31 32 33 34 35 36 37 38 38 39 [55] 40 40 41 42 43 44 45 46 47 48 49 49 50 51 52 53 54 55 [73] 56 57 57 58 59 60 60 61 61 62 62 63 64 65 65 66 67 68 [91] 69 70 70 70 71 72 73 74 74 75 76 76 77 78 79 80 80 80 [109] 81 82 82 83 84 85 86 86 87 88 89 90 91 92 93 94 95 96 [127] 96 97 98 99 100 101 102 103 104 105 106 106 107 108 109 110 111 112 [145] 113 113 113 113 113 114 114 115 115 115 116 117 118 119 120 121 122 123 [163] 124 124 125 126 127 128 129 129 130 131 131 132 132 133 133 133 133 134 [181] 134 135 136 137 138 139 140 141 142 142 143 143 144 144 145 145 146 147 [199] 148 149
cumsum(c(1,diff(x3)!=0))输出结果
[1] 1 1 2 2 3 4 5 6 7 7 8 9 10 11 12 13 13 13 [19] 13 14 15 16 17 18 19 20 21 21 22 23 23 24 25 26 27 28 [37] 28 29 30 31 31 32 33 34 35 36 36 37 38 39 39 39 39 40 [55] 41 41 42 42 43 44 45 46 46 47 48 49 50 51 51 52 53 54 [73] 55 56 57 58 59 59 59 60 61 61 61 61 61 61 62 62 62 63 [91] 64 65 66 67 68 68 69 70 71 72 72 73 74 75 76 77 78 79 [109] 80 81 82 82 82 83 84 84 85 86 87 88 89 89 90 90 90 91 [127] 91 92 93 93 94 95 96 96 97 98 98 98 98 99 100 101 101 102 [145] 102 103 104 105 106 107 108 109 109 110 111 111 111 112 113 114 114 114 [163] 115 116 117 118 118 119 120 120 120 120 121 122 123 124 125 126 127 128 [181] 129 130 130 130 131 132 133 134 135 135 136 137 138 139 140 141 142 143 [199] 143 144
x4<−round(rnorm(200,5,1.2),0) x4输出结果
[1] 5 6 5 3 6 6 6 3 6 5 7 4 4 5 4 4 6 3 3 4 5 6 6 5 6 6 6 6 6 7 2 4 7 6 7 7 6 [38] 5 6 4 3 6 6 4 5 6 5 6 4 4 5 3 6 4 5 8 5 8 7 6 3 3 6 3 4 4 5 5 5 6 6 5 4 4 [75] 5 6 7 5 4 3 7 5 4 6 7 4 4 3 3 7 4 6 5 5 5 6 4 5 4 3 6 5 4 5 6 4 4 5 4 4 4 [112] 5 7 5 6 5 4 6 4 5 6 5 7 5 3 3 5 5 5 3 7 6 4 3 5 5 6 5 5 6 5 4 6 5 5 5 5 4 [149] 4 4 5 7 5 4 5 6 4 5 4 6 5 3 5 5 5 6 3 5 7 7 4 5 5 5 4 5 6 5 3 5 4 4 6 5 3 [186] 4 6 6 5 5 5 5 7 4 5 4 5 5 4 6
cumsum(c(1,diff(x4)!=0))输出结果
[1] 1 2 3 4 5 5 5 6 7 8 9 10 10 11 12 12 13 14 [19] 14 15 16 17 17 18 19 19 19 19 19 20 21 22 23 24 25 25 [37] 26 27 28 29 30 31 31 32 33 34 35 36 37 37 38 39 40 41 [55] 42 43 44 45 46 47 48 48 49 50 51 51 52 52 52 53 53 54 [73] 55 55 56 57 58 59 60 61 62 63 64 65 66 67 67 68 68 69 [91] 70 71 72 72 72 73 74 75 76 77 78 79 80 81 82 83 83 84 [109] 85 85 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 99 [127] 100 100 100 101 102 103 104 105 106 106 107 108 108 109 110 111 112 113 [145] 113 113 113 114 114 114 115 116 117 118 119 120 121 122 123 124 125 126 [163] 127 127 127 128 129 130 131 131 132 133 133 133 134 135 136 137 138 139 [181] 140 140 141 142 143 144 145 145 146 146 146 146 147 148 149 150 151 151 [199] 152 153
x5<−sample(0:5,200,replace=TRUE) x5输出结果
[1] 0 3 0 5 0 4 2 0 5 4 2 4 2 3 0 1 1 0 5 4 0 0 0 5 5 0 5 3 2 4 0 5 0 2 3 4 5 [38] 5 2 2 0 5 1 3 0 1 2 3 0 0 4 5 3 5 3 4 0 3 5 5 5 5 3 4 1 5 3 4 3 1 5 2 3 1 [75] 1 5 1 3 3 2 4 2 2 4 3 5 0 4 3 4 1 0 4 1 5 2 2 5 3 5 1 0 2 3 5 2 2 3 5 3 2 [112] 4 3 4 4 5 3 4 1 0 2 5 5 5 1 0 3 2 0 0 3 4 5 0 3 0 4 2 3 5 3 1 0 5 0 0 3 4 [149] 3 0 5 2 1 1 2 4 0 0 3 3 2 5 0 5 2 1 5 4 1 1 5 5 5 0 3 5 2 2 5 0 2 1 5 2 5 [186] 3 1 0 1 1 4 2 3 4 0 1 0 0 4 0
cumsum(c(1,diff(x5)!=0))输出结果
[1] 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 16 17 [19] 18 19 20 20 20 21 21 22 23 24 25 26 27 28 29 30 31 32 [37] 33 33 34 34 35 36 37 38 39 40 41 42 43 43 44 45 46 47 [55] 48 49 50 51 52 52 52 52 53 54 55 56 57 58 59 60 61 62 [73] 63 64 64 65 66 67 67 68 69 70 70 71 72 73 74 75 76 77 [91] 78 79 80 81 82 83 83 84 85 86 87 88 89 90 91 92 92 93 [109] 94 95 96 97 98 99 99 100 101 102 103 104 105 106 106 106 107 108 [127] 109 110 111 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 [145] 126 126 127 128 129 130 131 132 133 133 134 135 136 136 137 137 138 139 [163] 140 141 142 143 144 145 146 146 147 147 147 148 149 150 151 151 152 153 [181] 154 155 156 157 158 159 160 161 162 162 163 164 165 166 167 168 169 169 [199] 170 171