使用變量名稱來定義與發生變異

Question

我有以這種方式定義的數據幀列內容：

dfB <- data.frame("_ID0" = c("z1", "z2", "z3"), check.names = FALSE) 

我想增加一列如下所示：

dfB %>% mutate(fk_table = "dfB") 

代替硬編碼"dfB"，我該如何動態計算它？

我在這裏找到一個例子，它用mutate動態計算列名，但是不使用傳遞變量的名字。

R: Add new column to dataframe using function

Answer 1

我們可能會使用substitute在函數內部

f1 <- function(dat) { 
      name <- deparse(substitute(dat)) 
      #or 
      #name <- as.character(match.call()[-1]) 

      dat %>% 
       mutate(fk_table = name) 
} 

f1(dfB) 
# _ID0 fk_table 
#1 z1  dfB 
#2 z2  dfB 
#3 z3  dfB