如何用Base R管道和within()通过变量指定新数据框列名？

问题背景 #

使用Base R的|>管道与within()函数创建新变量时，直接写死列名可以正常运行，但通过变量引用列名会触发错误。

可正常运行的代码 #

NEW_NAME <- "c"
df <- data.frame(a = 1:3, b = 4:6)

df |> within(c <- a + b)

输出：

a b c
1 1 4 5
2 2 5 7
3 3 6 9

报错的尝试 #

使用get()函数动态指定列名时失败：

df |> within(get(NEW_NAME) <- a + b)

错误信息：

Error in get(NEW_NAME) <- a + b : could not find function "get<-"

其他如within(.NEW_NAME <- a + b)、within(~NEW_NAME <- a + b)的写法也无法生效。

正确实现方式 #

方式1：使用assign()在within()环境中赋值 #

assign()可以将值绑定到动态指定的变量名，在within()的作用环境中执行即可：

df |> within(assign(NEW_NAME, a + b))

执行后会得到预期的带新列c的数据框。

方式2：通过.data对象的索引赋值 #

在within()的环境中，.data代表当前操作的数据框，用[[索引可以直接赋值给动态列名：

df |> within(.data[[NEW_NAME]] <- a + b)

方式3：替代方案（无需within()） #

如果不局限于within()，可以用with()配合cbind()生成新数据框：

df |> cbind(with(., setNames(list(a + b), NEW_NAME)))

内容的提问来源于stack exchange，提问作者Thomas Philips