Question

我有以下数组，我想检索元素发生变化的原始（排序的）数组的索引以及单个元素存在的频率。

ab = [1,1,1,3,3,5,5,5,5,5,6,6]

期望的结果应该是这样的：

ac = [0,3,5,10]
ad = [3,2,5,2]

非常感谢您的任何建议。

干杯。

Answer 1

您可以迭代数组并检查其前身。如果相等，则增加最后一个计数，否则将索引加一个计数。

var array = [1, 1, 1, 3, 3, 5, 5, 5, 5, 5, 6, 6],
    { indices, counts } = array.reduce((r, v, i, a) => {
        if (a[i - 1] === v) {
            r.counts[r.counts.length - 1]++;
        } else {
            r.indices.push(i);
            r.counts.push(1);
        }
        return r;
    }, { indices: [], counts: [] });

console.log(...indices);
console.log(...counts);

Answer 2

此代码产生的输出与您发布的代码类似：

var ab = [1,1,1,3,3,5,5,5,5,5,6,6];

var ac = Array.from(new Set(ab.map((e) => ab.indexOf(e))));

var ad = [];

for (var i = 0; i < ac.length - 1; i++) {
  ad.push(ac[i + 1] - ac[i]);
}
ad.push(ab.length - ac[ac.length - 1]);

console.log(...ab);
console.log(...ac);
console.log(...ad);

Answer 3

尝试一下，应该可以为您带来想要的东西

        ab = [1,1,1,3,3,5,5,5,5,5,6,6];

        var items = [];
        var positions = [];
        var count = [];

        ab.map((item, index)=>{

            //check if exist
            let item_index = items.indexOf(item);
            if(item_index == -1) {
                items.push(item);
                positions.push(index);
                count.push(1);
            } else {
                let current_count = count[item_index];
                count[item_index] = ++current_count;
            }
        });

        console.log(positions);
        console.log(count);

Answer 4

因此，您可以使用https://underscorejs.org/#groupBy按值分组

_.groupBy([1,1,1,3,3,5,5,5,5,5,6,6]);

or 

_.groupBy([1,1,1,3,3,5,5,5,5,5,6,6], function(num){ return num; })

您将得到一个类似

的对象

{1: [1,1,1], 3: [3,3], 5: [5,5,5,5,5], 6: [6,6]}

因此，如果您全部使用https://underscorejs.org/#keys并进行遍历，则键下的值是array，并取其大小并追加到新数组，这样就可以使ad = [3,2,5,2]

再次，遍历键并获得https://underscorejs.org/#indexOf，可以构造ac = [0,3,5,10]

试用这些方法，查看示例，您可以自己做！

Answer 5

我认为这适用于 R. YMMV
> ab = c(1,1,1,3,3,5,5,5,5,5,6,6)
> i1<-1:length(ab)
> i2<-c(2:length(ab),length(ab))
> i3<-ab[i1]!=ab[i2]
> ac<-c(0,i1[i3])
>交流
[1] 0 3 5 10
> ad<-c(ac[-1],length(ab))-ac
> 广告
[1] 3 2 5 2

如何获取元素更改的排序列表的索引？

5 个答案: