r - 将数据框的名称提取为 R tidyverse 中的字符串

Question

我想向数据框中添加一列，其中包含自己的名称作为字符串。 (这是为了包含在一个将它们中的几个绑定(bind)在一起的函数中......)

基于此old SO post以及我对magrittr pipes的理解我认为这会起作用:

data(iris)
iris %>%
  mutate(df = deparse(substitute(.))

但这只是添加了一个名为“df”的列，其中填充了句点!所需的输出是 df 列每一行中的字符串“iris”。任何人都可以纠正我吗？

Answer 1

如果我们有一个函数，就可以做到

library(dplyr)
fun1 <- function(data) {
       datanm <- deparse(substitute(data))
       data %>%
         mutate(df = datanm)
}

-测试

> fun1(iris)
 Sepal.Length Sepal.Width Petal.Length Petal.Width    Species   df
1            5.1         3.5          1.4         0.2     setosa iris
2            4.9         3.0          1.4         0.2     setosa iris
3            4.7         3.2          1.3         0.2     setosa iris
4            4.6         3.1          1.5         0.2     setosa iris
5            5.0         3.6          1.4         0.2     setosa iris
6            5.4         3.9          1.7         0.4     setosa iris
7            4.6         3.4          1.4         0.3     setosa iris
...