我正在寻找一种方法来操纵多列的数据。表在R。因为我必须解决列动态以及第二次输入，我无法找到答案。
这个想法是通过将所有值除以日期的值来索引某个日期的两个或多个系列，例如：

set.seed(132)
# simulate some data
dt <- data.table(date = seq(from = as.Date("2000-01-01"), by = "days", length.out = 10),
                 X1 = cumsum(rnorm(10)),
                 X2 = cumsum(rnorm(10)))

# set a date for the index
indexDate <- as.Date("2000-01-05")

# get the column names to be able to select the columns dynamically
cols <- colnames(dt)
cols <- cols[substr(cols, 1, 1) == "X"]

第1部分：简单的数据.框架/应用方法

df <- as.data.frame(dt)
# get the right rownumber for the indexDate
rownum <- max((1:nrow(df))*(df$date==indexDate))

# use apply to iterate over all columns
df[, cols] <- apply(df[, cols], 
                    2, 
                    function(x, i){x / x[i]}, i = rownum)

第2部分：（快速）data.table方法到目前为止，我的data.table方法看起来像这样：

for(nam in cols) {
  div <- as.numeric(dt[rownum, nam, with = FALSE])
  dt[ , 
     nam := dt[,nam, with = FALSE] / div,
     with=FALSE]
}

特别是所有的with = FALSE看起来不太像数据。
你知道有什么更快/更优雅的方法来执行此操作吗？
任何想法都非常赞赏！