R create ID within a group [duplicate]

by

There are several ways.

In base R, use ave:

with(df, ave(rep(1, nrow(df)), IDFAM, FUN = seq_along))
#  [1] 1 1 2 1 1 1 1 1 1 1 2 1 1 1 1 2 3 4 5 1

With the “data.table” package, use sequence(.N):

library(data.table)
DT <- as.data.table(df)
DT[, ID := sequence(.N), by = IDFAM]

With the “dplyr” package, try:

df %>% group_by(IDFAM) %>% mutate(count = sequence(n()))

or (as recommended by Hadley in the comments):

df %>% group_by(IDFAM) %>% mutate(count = row_number(IDFAM))

Update

Since this seems to be something that is asked for relatively frequently, this feature has been added as a function (getanID) in my “splitstackshape” package. It is based on the “data.table” approach above.

library(splitstackshape)
getanID(df, id.vars = "IDFAM")
#                 IDFAM AGED .id
#  1:  2010 7599 2996 1   45   1
#  2:  2010 7599 3071 1   47   1
#  3:  2010 7599 3071 1   24   2
#  4:  2010 7599 3660 1   46   1
#  5:  2010 7599 4736 1   46   1
#  6:  2010 7599 6235 1   44   1
#  7:  2010 7599 6299 1   43   1
#  8:  2010 7599 9903 1   43   1
#  9: 2010 7599 11013 1   43   1
# 10: 2010 7599 11778 1   16   1
# 11: 2010 7599 11778 1   43   2
# 12: 2010 7599 12248 1   46   1
# 13: 2010 7599 13127 1   44   1
# 14: 2010 7599 14261 1   47   1
# 15: 2010 7599 16280 1   43   1
# 16: 2010 7599 16280 1   16   2
# 17: 2010 7599 16280 1   20   3
# 18: 2010 7599 16280 1   18   4
# 19: 2010 7599 16280 1   18   5
# 20: 2010 7599 17382 1   43   1

More Related Contents:

  1. R: replace the whole part of a number but keep the decimal part unchanged
  2. What is the difference between require() and library()?
  3. Why is the parallel package slower than just using apply?
  4. Scale a series between two points
  5. How to replace NA values in a table for selected columns
  6. Count the number of all words in a string
  7. R: gsub, pattern = vector and replacement = vector
  8. How do I calculate the co-occurrence in the table? [duplicate]
  9. Rcpp pass by reference vs. by value
  10. Count number of rows by group using dplyr
  11. Adding space between bars in ggplot2
  12. Align plot areas in ggplot
  13. Error in plot.window(…) : need finite ‘xlim’ values
  14. multithreading with R?
  15. Subsetting data.table by 2nd column only of a 2 column key, using binary search not vector scan
  16. How to fit a smooth curve to my data in R?
  17. Installing package – cannot open file – permission denied
  18. Add column with order counts
  19. Greek letters, symbols, and line breaks inside a ggplot legend label
  20. How to listen for more than one event expression within a Shiny observeEvent
  21. Why I get this error writing data to a file
  22. DT[!(x == .)] and DT[x != .] treat NA in x inconsistently
  23. Shiny renderUI selectInput returned NULL
  24. Efficient calculation of matrix cumulative standard deviation in r
  25. Get date difference in years (floating point)
  26. Numbers as column names of data frames
  27. In R, how can I check if two variable names reference the same underlying object?
  28. Harnessing .f list names with purrr::pmap
  29. Spacing between boxplots in ggplot2
  30. Recommended package for very large dataset processing and machine learning in R [closed]

Leave a Comment