转换数据框字符串变量名

Question

我有一个包含日期和 ID 的数据框。我需要根据每个日期向此数据框添加多列。我使用ddply 这样做如下：

ddply(df, "dt", transform, new_column1 = myfun(column_name_1))

但是，我有一堆列名，想添加多个新列。有没有办法可以传递一个字符串来转换而不是 new_column1？例如我试过：

ddply(df, "dt", transform, get("some_column_name")=myfun(column_name_1))

但这不起作用。另外，如果我将column_name_1 作为字符串传递给myfun，我可以在myfun 中使用get("column_name_1") 来引用该列吗？

更新： 不知道如何更好地格式化这个

input:
id    date    val
id1   d1      1
id2   d1      2
id3   d1      3
id4   d1      4
id1   d2      10
id2   d2      20
id3   d2      30
id4   d2      40

out（例如 2 个桶）

id    date    val     bucket
id1   d1      1         1
id2   d1      2         1
id3   d1      3         2
id4   d1      4         2
id1   d2      10        1
id2   d2      20        1
id3   d2      30        2
id4   d2      40        2

Answer 1

用transform 做这件事很巧妙，但为什么不做一些更基本的事情，比如

tmpf <- function(x) {
   x[[new_column_name_1]] <- myfun(x[[column_name_1]])
   x[[new_column_name_2]] <- myfun(x[[column_name_2]])
   ...
   x
}
ddply(df,"dt",tmpf)

或者你可以有一个列名的向量来修改，或者即时修改：

tmpf <- function(x,cols=c("column_name_1","column_name_2")) {
   newcols <- paste("new",cols,sep="_")
   for (i in seq_along(cols)) {
      x[[newcols[i]]] <- myfun(x[[cols[i]]])
   }
}

在适当的环境中使用assign 可能会更聪明。

如果我有一个可重现的示例，我可以对此进行测试。