R 将数据帧列作为参数传递给mutate函数

我有一个表，有五列，分别是年份、GDP、收入、收入和工资。我用下面的代码计算了这个表

library(dplyr)

#DATA
TEST<-data.frame(
  Year= c(2000,2001,2002,2003,2004,2005,2006,2007,2008,2009,2010,2011,2012,2013,2014,2015,2016,2017,2018,2019,2020,2021),
  GDP =c(8634,5798,6022,6002,6266,6478,6732,7224,6956,6968,7098,7620,7642,8203,9856,20328,22364,22222,23250,25250,26250,27250),
  Revenue =c(8734,5798,7011,7002,7177,7478,7731,7114,7957,7978,7098,7710,7742,8203,9857,10328,11374,12211,13150,15150,17150,17150),
  Income =c(8834,5898,6033,6002,6366,6488,6833,8334,6956,6968,8098,8630,8642,8203,9856,30328,33364,32233,33350,35350,36350,38350),
  Wages =c(8834,5598,8044,8002,8488,8458,8534,5444,8958,8988,5098,5840,5842,8203,9858,40328,44384,42244,43450,45450,48450,45450)
   )

#CALCULATION
    ESTIMATION_0<-data.frame(mutate(TEST,
                     ETR_Revenue=(Revenue/GDP),
                     ETR_Income=(Income/GDP),
                     ETR_Wages=(Wages/GDP)
              ))

View(ESTIMATION_0)

库（dplyr）
#资料
使用类似于此的整洁评估方法进行测试

库（rlang）
图书馆（tidyverse）
我的估计年度GDP收入收入工资ETR收入ETR收入ETR收入ETR工资
#>                             
#>  1  2000  8634    8734   8834  8834       1.01        1.02     1.02 
#>  2  2001  5798    5798   5898  5598       1           1.02     0.966
#>  3  2002  6022    7011   6033  8044       1.16        1.00     1.34 
#>  4  2003  6002    7002   6002  8002       1.17        1        1.33 
#>  5  2004  6266    7177   6366  8488       1.15        1.02     1.35 
#>  6  2005  6478    7478   6488  8458       1.15        1.00     1.31 
#>  7  2006  6732    7731   6833  8534       1.15        1.02     1.27 
#>  8  2007  7224    7114   8334  5444       0.985       1.15     0.754
#>  9  2008  6956    7957   6956  8958       1.14        1        1.29 
#> 10  2009  6968    7978   6968  8988       1.14        1        1.29 
#> # ... 还有12排

由（v0.2.1.9000）于2019-03-01创建的您的意思是编写类似于
fun2的内容也很有用：&