r - 逐渐增加行值，直到发现相邻列发生变化

Question

我需要分割调查数据以允许重复的答案。

现有数据集:

       initial_value
row1        1
row2        1
row3        1
row4        2
row5        3
row6        3

我希望创建一个重复的列，增量为 0.1，直到发现值发生变化:

       initial_value    desired_value
row1        1                1.1
row2        1                1.2
row3        1                1.3 
row4        2                2.1
row5        3                3.1
row6        3                3.2
row7        3                3.3

Answer 1

另一个使用分组和.N的data.table解决方案:

library(data.table) 

setDT(df1)[, desired_value := initial_value + seq_len(.N) * 0.1, .(initial_value)][]

#>    initial_value desired_value
#> 1:             1           1.1
#> 2:             1           1.2
#> 3:             1           1.3
#> 4:             2           2.1
#> 5:             3           3.1
#> 6:             3           3.2
#> 7:             3           3.3

dplyr 解决方案也可以更简单:

library(dplyr)

df1 %>% 
  group_by(initial_value) %>% 
  mutate(desired_value = initial_value + row_number() * 0.1)