dplyr: Erzeuge Zeilennummer/Zeilenposition in group_by

Question

Ich habe ein Dataset und ich möchte die Zeile Position für Gruppe generieren. Zum Beispiel

library(data.table) 

data<-data.table(Position=c(1,2,3,4,5,6,7,8,9,10), 
Category=c("M","M","M","M","F","F","F","M","M","F")) 

Ich gruppiere nach der Kategorie und möchte Spalte erstellen, die die Zeilenposition nach Gruppe ist. So etwas wie unten oder mit data.table

dataByGroup %>% group_by(Category) %>% mutate(positionInCategory = 1:nrow(Category)) 

kann nicht herausfinden, wie dies zu erreichen?

gewünschte Ausgabe:

| Position|Category | positionInCategory| 
|--------:|:--------|------------------:| 
|  1|M  |     1| 
|  2|M  |     2| 
|  3|M  |     3| 
|  4|M  |     4| 
|  5|F  |     1| 
|  6|F  |     2| 
|  7|F  |     3| 
|  8|M  |     5| 
|  9|M  |     6| 
|  10|F  |     4| 

Answer 1

Versuchen Sie Folgendes:

library(data.table) 
library(dplyr) 

data<-data.table(Position=c(1,2,3,4,5,6,7,8,9,10), 
       Category=c("M","M","M","M","F","F","F","M","M","F")) 

cleanData <- data %>% 
    group_by(Category) %>% 
    mutate(positionInCategory = 1:n()) 

Answer 2

Versuchen

data[, new := rowid(Category)] 
# or, if you're using 1.9.6 or older 
data[, new := 1:.N, by=Category] 

    Position Category new 
1:  1  M 1 
2:  2  M 2 
3:  3  M 3 
4:  4  M 4 
5:  5  F 1 
6:  6  F 2 
7:  7  F 3 
8:  8  M 5 
9:  9  M 6 
10:  10  F 4 

rowid nutzen zu können, müssen Sie noch die unstable/devel version of the package benötigen.