R 为 ID 的不同值随时间创建增量变量

在价格中，使用type.convert将逗号转换为句点并转换为数字，然后使用diff.

library(dplyr)

Data %>%
  mutate(Price = type.convert(Price, as.is = TRUE, dec = ","),
         Price_Diff = diff(c(NA, Price)), .by = Province)

给予:

  Year Province Price Price_Diff
1 2004     0101  1.02         NA
2 2004     0102  1.50         NA
3 2004     0103  1.70         NA
4 2005     0101  1.25       0.23
5 2005     0102  1.56       0.06
6 2005     0103  1.78       0.08
7 2006     0101  1.32       0.07
8 2006     0102  1.65       0.09
9 2006     0103  1.88       0.10

这是一个基本解决方案

Data |>
  transform(Price = type.convert(Price, as.is = TRUE, dec = ",")) |>
  transform(Price_Diff = ave(Price, Province, FUN = \(x) c(NA, diff(x))))

注意事项

问题中的输入数据代码行中存在错误，因此我们使用以下代码

Year <- c("2004", "2004", "2004", "2005", "2005", "2005", "2006", "2006", "2006")
Province <- c("0101", "0102", "0103", "0101", "0102", "0103", "0101", "0102", "0103")
Price <- c("1,02", "1,50", "1,70", "1,25", "1,56", "1,78", "1,32", "1,65", "1,88")
Data <- data.frame(Year, Province, Price)