Как рассчитать процент эволюции или тренда в течение нескольких лет с R?

Question

Мне нужно рассчитать процентное изменение за 4 года на км. есть ли функция, которая позволила бы этот расчет?

df <- data.frame(km = c(100:111), 
                 A2012 = c(12:23), 
                 A2013 = c(14,25), 
                 A2014 =  c(10,21), 
                 A2015  = c(18, 29),
                 Coef_Evol="?")

Answer 1

Я не думаю, что существует такая вещь, как 1 число для учета общих изменений с течением времени.Поэтому я думаю, что вы можете либо использовать уже использованный расчет: (Finalvalue - StartValue) / StartValue), либо создать дополнительный df2, который показывает процентное изменение года по году:

df <- data.frame(km = c(100:111), 
                 A2012 = c(12:23), 
                 A2013 = c(14,25), 
                 A2014 =  c(10,21), 
                 A2015  = c(18, 29))
df
    km A2012 A2013 A2014 A2015
1  100    12    14    10    18
2  101    13    25    21    29
3  102    14    14    10    18
4  103    15    25    21    29
5  104    16    14    10    18
6  105    17    25    21    29
7  106    18    14    10    18
8  107    19    25    21    29
9  108    20    14    10    18
10 109    21    25    21    29
11 110    22    14    10    18
12 111    23    25    21    29
df2 <- data.frame(df[1], NA * df[2], 100 * (df[-(1:2)] / df[-c(1, ncol(df))] - 1))
df2
    km A2012      A2013     A2014    A2015
1  100    NA  16.666667 -28.57143 80.00000
2  101    NA  92.307692 -16.00000 38.09524
3  102    NA   0.000000 -28.57143 80.00000
4  103    NA  66.666667 -16.00000 38.09524
5  104    NA -12.500000 -28.57143 80.00000
6  105    NA  47.058824 -16.00000 38.09524
7  106    NA -22.222222 -28.57143 80.00000
8  107    NA  31.578947 -16.00000 38.09524
9  108    NA -30.000000 -28.57143 80.00000
10 109    NA  19.047619 -16.00000 38.09524
11 110    NA -36.363636 -28.57143 80.00000
12 111    NA   8.695652 -16.00000 38.09524

Возможно, вы сможете добавить дополнительныйстолбец, который показывает среднее процентное изменение ...