首页 \ 问答 \ 通过dplyr在组内应用rep（）(Applying rep() within groups through dplyr)

通过dplyr在组内应用rep（）(Applying rep() within groups through dplyr)

 我一直在尝试在组内复制1和2的二进制输出。 我想使用rep和dplyr ，但我似乎无法理解如何在组内应用rep 。 我已经能够通过手动分离分组并指定每组的正确范围来实现。 我想知道如何使用dplyr应用rep 。  
 这是一个示例数据。  
df <- data.frame(date = c("2017-01-01", "2017-01-01", "2017-01-01", "2017-01-01", "2017-01-01", "2017-01-01", "2017-01-01", "2017-01-02", "2017-01-02", "2017-01-02", "2017-01-02", "2017-01-02", "2017-01-02", "2017-01-02", "2017-01-02", "2017-01-02", "2017-01-02", "2017-01-02"),
                 loc =c("AB", "AB", "AB", "AB", "AB", "AB", "AB", "AB", "CD", "CD", "CD", "CD", "CD", "CD", "CD", "CD", "CD", "CD"),
                 cat = c("a", "a", "a", "b", "b", "b", "b", "b", "c", "c", "c", "c", "c", "d", "d", "d", "d", "d"))
 
 这基本上是我在整个数据集上应用的每个分组运行的代码。  
df$type <- rep(1:2,nrow(df)/2)
 
 如您所见，输出忽略了列cat 。 cat b & d应该从1开始。  
         date loc cat type
1  2017-01-01  AB   a    1
2  2017-01-01  AB   a    2
3  2017-01-01  AB   a    1
4  2017-01-01  AB   b    2
5  2017-01-01  AB   b    1
6  2017-01-01  AB   b    2
7  2017-01-01  AB   b    1
8  2017-01-02  AB   b    2
9  2017-01-02  CD   c    1
10 2017-01-02  CD   c    2
11 2017-01-02  CD   c    1
12 2017-01-02  CD   c    2
13 2017-01-02  CD   c    1
14 2017-01-02  CD   d    2
15 2017-01-02  CD   d    1
16 2017-01-02  CD   d    2
17 2017-01-02  CD   d    1
 
 更新：这是所需的输出。  
        date loc cat type
1  2017-01-01  AB   a    1
2  2017-01-01  AB   a    2
3  2017-01-01  AB   a    1
4  2017-01-01  AB   b    1
5  2017-01-01  AB   b    2
6  2017-01-01  AB   b    1
7  2017-01-01  AB   b    2
8  2017-01-02  AB   b    1
9  2017-01-02  CD   c    1
10 2017-01-02  CD   c    2
11 2017-01-02  CD   c    1
12 2017-01-02  CD   c    2
13 2017-01-02  CD   c    1
14 2017-01-02  CD   d    1
15 2017-01-02  CD   d    2
16 2017-01-02  CD   d    1
17 2017-01-02  CD   d    2

I've been trying to replicate a binary output of 1 and 2 within groups. I'd like to make use of rep and dplyr, but I can't seem to understand how to apply rep within groups. I've been able to do it by manually separating the groupings and specifying the correct range per group. I would like to know how repcould be applied using dplyr. 
Here's a sample data. 
df <- data.frame(date = c("2017-01-01", "2017-01-01", "2017-01-01", "2017-01-01", "2017-01-01", "2017-01-01", "2017-01-01", "2017-01-02", "2017-01-02", "2017-01-02", "2017-01-02", "2017-01-02", "2017-01-02", "2017-01-02", "2017-01-02", "2017-01-02", "2017-01-02", "2017-01-02"),
                 loc =c("AB", "AB", "AB", "AB", "AB", "AB", "AB", "AB", "CD", "CD", "CD", "CD", "CD", "CD", "CD", "CD", "CD", "CD"),
                 cat = c("a", "a", "a", "b", "b", "b", "b", "b", "c", "c", "c", "c", "c", "d", "d", "d", "d", "d"))
 
This is basically the code I run per grouping applied on the entire dataset. 
df$type <- rep(1:2,nrow(df)/2)
 
As you can see, the output disregards the column cat. cat b & d should have started at 1. 
         date loc cat type
1  2017-01-01  AB   a    1
2  2017-01-01  AB   a    2
3  2017-01-01  AB   a    1
4  2017-01-01  AB   b    2
5  2017-01-01  AB   b    1
6  2017-01-01  AB   b    2
7  2017-01-01  AB   b    1
8  2017-01-02  AB   b    2
9  2017-01-02  CD   c    1
10 2017-01-02  CD   c    2
11 2017-01-02  CD   c    1
12 2017-01-02  CD   c    2
13 2017-01-02  CD   c    1
14 2017-01-02  CD   d    2
15 2017-01-02  CD   d    1
16 2017-01-02  CD   d    2
17 2017-01-02  CD   d    1
 
UPDATE: Here's the desired output. 
        date loc cat type
1  2017-01-01  AB   a    1
2  2017-01-01  AB   a    2
3  2017-01-01  AB   a    1
4  2017-01-01  AB   b    1
5  2017-01-01  AB   b    2
6  2017-01-01  AB   b    1
7  2017-01-01  AB   b    2
8  2017-01-02  AB   b    1
9  2017-01-02  CD   c    1
10 2017-01-02  CD   c    2
11 2017-01-02  CD   c    1
12 2017-01-02  CD   c    2
13 2017-01-02  CD   c    1
14 2017-01-02  CD   d    1
15 2017-01-02  CD   d    2
16 2017-01-02  CD   d    1
17 2017-01-02  CD   d    2

原文：https://stackoverflow.com/questions/43462154

更新时间：2022-08-08 15:08

最满意答案

 在当前的实现中，最快的方法是检查是否添加了pause类，如果是，则跳过动画： if($this.classList.contains('pause'))continue; 但是，由于所有current项都是在slideShows每次迭代中使用document.querySelectorAll('.current')处理的，因此您可能希望删除内部循环并使用$this.querySelector('.current')来获取当前项目具体的幻灯片放映：  
var slideshows = document.querySelectorAll('.slideshow');
function startSlideshow() {
    return window.setInterval(function(){
        for (var i=0;i<slideshows.length;i++){
          var $this = slideshows[i];
          if($this.classList.contains('pause'))continue;
          var e  = $this.querySelector('.current');
          (e.nextElementSibling || $this.firstElementChild).classList.add('current');
          e.classList.remove('current');            
        }
    }, 1000);
}
var id = startSlideshow();

for (var i=0;i<slideshows.length;i++){
    slideshows[i].addEventListener('click', function(){
        this.classList.toggle('pause');
    });
}
 
 另一个选择是让每个幻灯片包含自己的计时器，并启动/停止它。 但是，这可能会导致它们在停止/启动后彼此不同步。  
 顺便说一句，您可以使用对象，设置dataSet属性或从slideshows阵列中添加/删除div，而不是添加暂停类。 

In your current implementation, the quickest way is to check if the pause class is added and skip the animation if it is: if($this.classList.contains('pause'))continue; However, since all current items are handled with document.querySelectorAll('.current') inside each iteration of slideShows, you might want to remove the inner loop and use $this.querySelector('.current') to get the current item of that specific slide show: 
var slideshows = document.querySelectorAll('.slideshow');
function startSlideshow() {
    return window.setInterval(function(){
        for (var i=0;i<slideshows.length;i++){
          var $this = slideshows[i];
          if($this.classList.contains('pause'))continue;
          var e  = $this.querySelector('.current');
          (e.nextElementSibling || $this.firstElementChild).classList.add('current');
          e.classList.remove('current');            
        }
    }, 1000);
}
var id = startSlideshow();

for (var i=0;i<slideshows.length;i++){
    slideshows[i].addEventListener('click', function(){
        this.classList.toggle('pause');
    });
}
 
Another option is to have each slideshow contain its own timer, and start/stop that. However that could cause them to run out of sync with each other after a stop/start. 
As an aside, instead of adding a pause class, you could also use objects, set a dataSet property or have the div add/remove itself from the slideshows array

通过dplyr在组内应用rep（）(Applying rep() within groups through dplyr)

最满意答案

相关问答

不可阻挡的计时器(Unstoppable Timer)[2023-07-07]

node.js：如何使用setInterval和clearInterval？(node.js: how to use setInterval and clearInterval?)[2024-04-26]

CountDownTimer文本消失，如果打开一个不同的活动 - 计时器继续 - Android应用程序(CountDownTimer Text dissapears if a different Activity opened - Timer continues - android app)[2024-02-08]

如何从另一个场景JAVA取消计时器(How to cancel a timer from another scene JAVA)[2023-04-12]

C＃在另一个计时器内使用计时器？(C# using a timer within another timer?)[2022-06-28]

设置节点的计时器(setup timer for a node)[2023-08-02]

在android中启动计时器(Starting a timer in android)[2023-08-20]

多人倒数计时器(Multiplayer Countdown Timer)[2022-04-02]

一个节点上的clearInterval，而另一个节点上的计时器继续(clearInterval on one node while timer continues on another)[2022-11-29]

Javascript clearInterval不适用于计时器[重复](Javascript clearInterval not working for timer [duplicate])[2022-11-20]

相关文章

最新问答