根据条件将列值除以多个值

Question

我有一个 csv 文件，其中包含各种资产类的索引，其中大部分开始于不同的日期。我想为这些具有相同基准年的资产类创建新索引。以下是我拥有的数据的一个子集。

indexes <- read.csv("AssetClassIndexes.csv")
indexes$Date <- as.Date(indexes$Date, '%m/%d/%Y')
indexes %>%
    filter(Date > as.Date('2013-01-01')) %>%
    select(Date, Large.Cap.Stocks, Mid.Cap.Stocks, Precious.Metals)   



     Date        Large.Cap.Stocks Mid.Cap.Stocks Precious.Metals
1  2013-01-31         130.9160       58.13547         651.1803
2  2013-02-28         132.6932       58.70621         658.3433
3  2013-03-31         137.6696       61.51427         690.4047
4  2013-04-30         140.3220       61.90042         684.9505
5  2013-05-31         143.6044       63.29899         720.4309
6  2013-06-30         141.6760       62.13056         723.7449
7  2013-07-31         148.8850       65.97987         777.3744
8  2013-08-31         144.5731       63.50743         750.3217
9  2013-09-30         149.1068       66.81690         803.2194
10 2013-10-31         155.9609       69.29937         831.1715
11 2013-11-30         160.7137       70.21606         877.3015
12 2013-12-31         164.7823       72.38485         893.8825
13 2014-01-31         159.0851       70.84785         854.2835
14 2014-02-28         166.3623       74.30846         890.2488
15 2014-03-31         167.7607       74.58250         898.8842
16 2014-04-30         169.0008       73.41721         868.2323
17 2014-05-31         172.9679       74.72066         869.1005
18 2014-06-30         176.5410       77.81163         906.8195
19 2014-07-31         174.1063       74.48576         853.8612
20 2014-08-31         181.0715       78.27180         892.6265
21 2014-09-30         178.5322       74.71220         841.8361

我想做的是根据不同的日期创建多个基础索引。

BaseDates <-
  c(
    '1973-12-31',
    '1981-06-30',
    '1984-03-31',
    '2001-03-31',
    '2007-12-31'
  )

我有以下代码行可以根据一个日期创建索引，但我不知道如何执行上面的所有基准日期。我猜它涉及某种应用功能；有什么建议吗？

indexes %>%
  mutate_each(funs(BaseIdx(.,Date,as.Date('1984-06-30'))),-Date)

BaseIdx <- function(x, column, dte) {x / x[column == dte]}

Answer 1

您可以采用多种方法。您建议的方法跨每一列 (mutate_each) 划分日期与单个日期匹配的值。您可以使用 _apply 或其他命令对所有日期进行迭代。

下面的替代方法使用 lapply 遍历日期，用向量划分行。棘手的部分是按行划分数据帧。这里，数据帧被转置（t）并除以向量（as.numeric），然后重新转置回原始格式（additional methods here）。

#indexes = the subsetted [21 x 4] data in your example
#Sample some dates based on your example data
BaseDates <- indexes[seq(1, 21, by=5), "Date"]  

IndexThemALL <- lapply(BaseDates, function(z) {  #z = each BaseDate
                  data.frame(
                    IndexDate = z,
                    Date = indexes$Date,
                    t(t(indexes[, cols])/as.numeric(indexes[indexes$Date == z, cols])) 
                    )
                  })

# Optional: collapse a list into a dataframe
IndexThemALL <- dplyr::rbind_all(IndexThemALL)

#Source: local data frame [105 x 5]
#IndexDate       Date Large.Cap.Stocks Mid.Cap.Stocks Precious.Metals
#1 2013-01-31 2013-01-31         1.000000       1.000000        1.000000
#2 2013-01-31 2013-02-28         1.013575       1.009817        1.011000
#3 2013-01-31 2013-03-31         1.051587       1.058119        1.060236
#4 2013-01-31 2013-04-30         1.071848       1.064762        1.051860

根据条件将列值除以多个值

Divide column values by multiple values based on conditions

r

dplyr

tidyr