library(tidyverse)

data <- tibble(
  Item1 = c("One", "One", "One", "One", "One", "One"),
  Item2 = c("Two", "Two", "Two", "Two", "Two", "Two"),
  Item3 = c("A", "A", "A", "B", "B", "C")
)

data %>% 
  mutate(ID = row_number(), .by = Item3))

  Item1 Item2 Item3     ID
  <chr> <chr> <chr> <int>
1 One   Two   A         1
2 One   Two   A         2
3 One   Two   A         3
4 One   Two   B         1
5 One   Two   B         2
6 One   Two   C         1

感谢.by = Item3的想法😃

基础解决方案

ave(integer(nrow(data)), data$Item3, FUN = seq_along)

data.table解决方案

library(data.table)
setDT(data)[, ID := rowidv(Item3)]

数据

structure(list(Item1 = c("One", "One", "One", "One", "One", "One"
), Item2 = c("Two", "Two", "Two", "Two", "Two", "Two"), Item3 = c("A", 
"A", "A", "B", "B", "C")), class = c("tbl_df", "tbl", "data.frame"
), row.names = c(NA, -6L))