R data.table: переназначить каждую группу на панели значением, найденным в другом столбце.

Question

Допустим, мой набор данных выглядит следующим образом:

data.table(groups = rep(c("A","B"), each=5), time = rep(2011:2015, 2), value = runif(10,95,105))

    groups time     value
 1:      A 2011  97.66647
 2:      A 2012 103.00917
 3:      A 2013 103.02462
 4:      A 2014 103.25105
 5:      A 2015 101.94881
 6:      B 2011  97.69248
 7:      B 2012  95.63296
 8:      B 2013  98.40150
 9:      B 2014 104.14164
10:      B 2015 103.61722

Я хотел бы изменить значение в каждой группе на значение, соответствующее выбранному году (скажем, 2013). Итак, для группы AI хотелось бы разделить каждое значение на 103,02462 (значение для 2013 года), для группы B - на 98,40150 и т. Д. c ....

Все решения, которые я могу придумать, невероятно сложны было бы здорово, если бы кто-нибудь поделился своими идеями

Answer 1

После группировки по «группам» получите «значение», соответствующее значению «время» 2013 года, и используйте его для деления столбца «значение»

library(data.table)
dt1[, value := value/value[time == 2013], by = groups]
dt1
#    groups time     value
# 1:      A 2011 0.9479916
# 2:      A 2012 0.9998500
# 3:      A 2013 1.0000000
# 4:      A 2014 1.0021978
# 5:      A 2015 0.9895577
# 6:      B 2011 0.9927946
# 7:      B 2012 0.9718649
# 8:      B 2013 1.0000000
# 9:      B 2014 1.0583339
#10:      B 2015 1.0530045

или с помощью match

 dt1[, value := value/value[match(2013, time)], by = groups]

данные

dt1 <- structure(list(groups = c("A", "A", "A", "A", "A", "B", "B", 
"B", "B", "B"), time = c(2011L, 2012L, 2013L, 2014L, 2015L, 2011L, 
2012L, 2013L, 2014L, 2015L), value = c(97.66647, 103.00917, 103.02462, 
103.25105, 101.94881, 97.69248, 95.63296, 98.4015, 104.14164, 
103.61722)), class = c("data.table", "data.frame"), row.names = c(NA, 
-10L))