我可以使用滞后函数确定更改发生时的行索引，例如：
idx <- which(as.character(id) != lag(as.character(id)))
但我无法弄清楚如何将其应用于新行，以便索引在每个更改点递增
输入
c1
apple
apple
pear
pear
apple
输出错误
id c1
1 apple
1 apple
2 pear
1 pear
1 apple
期望输出
id c1
1 apple
1 apple
2 pear
2 pear
3 apple