如何在R中创建百分比变化表？

Question

我有一个表df，看起来像这样（有更多列和更多行）：

我想创建一个新表df2，其中红色框中的每个单元格都被上一个日期值的百分比变化所取代（顶行明显显示NA）。例如，新表中右下角的单元格应为-.0188

是否有可以执行此操作的功能（基础或某些包）？如果是这样，我该如何使用它？

Answer 1

以下是使用一些补充数据和tidyverse函数的解决方案。这里的关键是dplyr::lag，它允许您引用数据框中的先前值。请注意，选择vars(-day)会选择除day之外的所有列，并且使用funs(pct_change = )会创建新列，其原始名称前置于pct_change。在funs内，.指的是该列中的值，因此我们可以通过除以前一个值并减去1来直接计算比例变化。

library(tidyverse)
set.seed(100)
tbl <- tibble(
  day = 1:4,
  col1 = rnorm(4, mean = 10),
  col2 = rnorm(4, mean = 10)
)

tbl %>%
  mutate_at(
    .vars = vars(-day),
    .funs = funs(pct_change = (. / lag(.)) - 1)
  )
#> # A tibble: 4 x 5
#>     day  col1  col2 col1_pct_change col2_pct_change
#>   <int> <dbl> <dbl>           <dbl>           <dbl>
#> 1     1  9.50 10.1          NA              NA     
#> 2     2 10.1  10.3           0.0667          0.0199
#> 3     3  9.92  9.42         -0.0208         -0.0873
#> 4     4 10.9  10.7           0.0973          0.138

由reprex package（v0.2.0）创建于2018-04-19。

Answer 2

基于data.table的解决方案可以是：

library(data.table)
library(lubridate)

#Convert Date column to of type Date/POSIXct and order on that column  
DT[,Date:=ymd(Date)][
        order(Date),c(.(Date = Date), lapply(.SD,function(x)(x/lag(x) - 1))),.SDcols=2:4]

#          Date        AEDUSD       AUDUSD       CADUSD
# 1: 2008-03-17            NA           NA           NA
# 2: 2008-03-18  0.0000000000 -0.021097496 -0.006626446
# 3: 2008-03-19  0.0000000000  0.009361054  0.001294305
# 4: 2008-03-20 -0.0003671072 -0.006578238 -0.009645023
# 5: 2008-03-24  0.0000000000 -0.026378637 -0.018775100

数据：

DT = data.table(Date = c("2008-03-17","2008-03-18","2008-03-19","2008-03-20","2008-03-24"),
           AEDUSD = c(0.2724, 0.2724, 0.2724, 0.2723, 0.2723),
           AUDUSD = c(0.9385, 0.9187, 0.9273, 0.9212, 0.8969),
           CADUSD = c(1.0111, 1.0044, 1.0057, 0.9960, 0.9773))