转换数据框字符串变量名称

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

（例如 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 可能有更聪明的东西 在适当的环境中。

如果我有一个可重现的例子，我可以测试一下。