提取每组均值随时间的变化

Question

我有一个数据 table，我从中计算了平均值 sales，如下所示：

library(data.table)
DT <- fread(
"ID country year sales industry size cat4
1   NLD   2000  4   A   1   0
2   NLD   2000  4   B   1   1
3   NLD   2006  2   A   1   1
4   NLD   2002  4   A   1   0
5   NLD   2002  4   B   1   1
6   NLD   2006  2   A   1   1
7   NLD   2006  2   B   2   0
8   NLD   2006  1   A   1   4
9   GBR   2001  2   B   3   5
10  GBR   2001  1   B   2   5
11  GBR   2002  1   A   1   11
12  GBR   2006  1   A   1   2
13  GBR   2006  1   B   3   12
14  GBR   2006  1   A   1   2
15  GBR   2006  1   B   3   12",
header = TRUE)

setDT(DT)[,Mean_Sales:= mean(sales, na.rm=TRUE),  by=c("country", "industry", "size")]

但是，现在我对 Mean_Sales 如何随时间变化感兴趣，每组：by=c("iso3c", "industry", "size")。

我想用 mean of the absolute differences 除以他们相隔的年数。

例如，对于NLD中的A行业和规模1的公司，构成ID=1和ID=8，我想要绝对差的平均值（|1-4|=3)，除以年数 (2006-2000 = 6)。导致 3/6 = 0.5.

的平均值逐年变化

我只是不知道如何将它放入 R 代码中。任何帮助将不胜感激。

期望的输出：

library(data.table)
DT <- fread(
"ID country year sales industry size cat4 delta
1   NLD   2000  4   A   1   0   0.5
2   NLD   2000  4   B   1   1   0.33
3   NLD   2006  2   A   1   1
4   NLD   2002  4   A   1   0
5   NLD   2002  4   B   1   1
6   NLD   2006  2   A   1   1
7   NLD   2006  2   B   1   0   0.33
8   NLD   2006  1   A   1   4   0.5
9   GBR   2001  2   B   3   5
10  GBR   2001  1   B   2   5
11  GBR   2002  1   A   1   11
12  GBR   2006  1   A   1   2
13  GBR   2006  1   B   3   12
14  GBR   2006  1   A   1   2
15  GBR   2006  1   B   3   12",
header = TRUE)

Answer 1

您可以 order 乘以 year 得到 last 和 first sales 值之间的绝对差值，并将它除以 [=12= 中的差值].

library(data.table)

DT[order(year), delta := abs(last(sales) - first(sales))/(max(year) - min(year)), 
               .(country, industry, size)]

提取每组均值随时间的变化

Extracting the change of the mean per group over time

r

mean

variations