R 中的 `data.table` - 创建列和使用函数

Question

我经常发现自己需要计算事物的滞后百分比变化，并且想知道如何简化我当前的方法？

目前，我正在我的数据中创建两个新列 - 在每个新创建的列中，我使用函数 lag 计算了与上一年相比的百分比变化。我更愿意继续在 data.table 中工作，因为我的数据会非常大，而且我认为非标准评估比在 dplyr 中直接得多。无论如何，下面是我的（示例）数据。

data.table里面的函数怎么用呢（do in就不再赘述了）？

year <- c(2012, 2013, 2014, 2015)
value <- c (22,33,44,55)
amount <- c(99, 88, 77, 66)

mydata <- cbind(year, value, amount)
mydata <- as.data.table(mydata)

getPctLag(mydata$value)

mydata <- mydata[ , ':=' (value_pct = paste0(round((value/lag(value) - 1) * 100, digits = 3) , " %"),
                          amount_pct = paste0(round((amount/lag(amount) - 1) * 100, digits = 3) , " %"))]

getPctLag <- function(x){lag_pct = paste0(round((x/lag(x) - 1) * 100, digits = 3) , "%")}

Answer 1

您可以在 .SDcols 中指定要应用函数的列。此外，由于您使用的是 data.table，因此最好使用 shift，因为 lag 来自 dplyr。

library(data.table)

getPctLag <- function(x)  paste(round((x/shift(x) - 1) * 100, digits = 3) , "%")
cols <- c("value", "amount")

mydata[, paste0(cols, "pct") := lapply(.SD, getPctLag), .SDcols = cols]
mydata

#   year value amount value_pct amount_pct
#1: 2012    22     99       NA%        NA%
#2: 2013    33     88       50%   -11.111%
#3: 2014    44     77   33.333%     -12.5%
#4: 2015    55     66       25%   -14.286%

R 中的 `data.table` - 创建列和使用函数

`data.table` in R - creating columns and using functions

r

function

lag

data.table