r - 如何为非重复行创建唯一标识符？

Question

我正在尝试为一列创建一个标志变量，该变量应针对每次出现的 position 列而更改。例如，这是一个data_frame:

df <- data_frame(
  variable = c('Position',
               'Department',
               'Location',
               'Position',
               'Department',
               'Location',
               'Location'
               )
)

df
    # A tibble: 7 x 1
      variable  
      <chr>     
    1 Position  
    2 Department
    3 Location  
    4 Position  
    5 Department
    6 Location  
    7 Location 

如何创建与此 ID 变量类似的内容？我现在可以拆分此变量并根据需要合并单元格。

# A tibble: 7 x 2
  variable   id   
  <chr>      <chr>
1 Position   A    
2 Department A    
3 Location   A    
4 Position   B    
5 Department B    
6 Location   B    
7 Location   B  

更好的方法是合并 variable 列中具有重复项的任何单元格。

Answer 1

我们根据“variable”中“Position”元素的出现情况创建一个逻辑向量，获取累积和 (cumsum) 并使用该数字索引进行更改到字母

library(dplyr)
df %>% 
   mutate(id = LETTERS[cumsum(variable== 'Position')])
# A tibble: 7 x 2
#  variable   id   
#  <chr>      <chr>
#1 Position   A    
#2 Department A    
#3 Location   A    
#4 Position   B    
#5 Department B    
#6 Location   B    
#7 Location   B