如何解析符号的值而不是符号的名称答案

【问题标题】：how to parse symbol's value instead of symbol' name如何解析符号的值而不是符号的名称
【发布时间】：2020-04-02 09:14:06
【问题描述】：

第一季度：

sorting = function (table, column) {
  # mtcars[order(mpg),]
  return(table[order(column),])
}

sorting(mtcars, "mpg") 等价于mtcars[order("mpg"),] 但不等于我想要得到的结果mtcars[order(mpg),]，如何将其从字符串转换为列名。

第二季度：

类似的：

library(tidyr)
comb = function(table, colNNN, arr, sep) {
  return(unite(table, colNNN, all_of(arr), sep = sep))
}

我愿意

comb(mtcars,"gearCarb",c("gear","carb"), "-")

我得到了colNNN 作为最后的列名，

那么如何将符号转换为字符串呢？

【问题讨论】：

请参阅here 以获取有关 Q1 的信息，我建议您在那里使用table[[column]]。对于 #2，请参阅 here 以了解 tidyverse 中的编程以及有关该主题的众多 SO posts 之一，特别是您的确切问题。

标签： r rlang

【解决方案1】：

Q1 可以在不使用来自dplyr 的arrange_at 的非标准评估的情况下解决。

library(dplyr)
library(tidyr)
library(rlang)

sorting = function (table, column) {
   return(table %>% arrange_at(column))
}

sorting(mtcars, "mpg")

#    mpg cyl  disp  hp drat    wt  qsec vs am gear carb
#1  10.4   8 472.0 205 2.93 5.250 17.98  0  0    3    4
#2  10.4   8 460.0 215 3.00 5.424 17.82  0  0    3    4
#3  13.3   8 350.0 245 3.73 3.840 15.41  0  0    3    4
#4  14.3   8 360.0 245 3.21 3.570 15.84  0  0    3    4
#5  14.7   8 440.0 230 3.23 5.345 17.42  0  0    3    4
#6  15.0   8 301.0 335 3.54 3.570 14.60  0  1    5    8
#...

对于第二季度，我们可以使用{{}}

comb = function(table, colNNN, arr, sep) {
  return(unite(table, {{colNNN}}, arr, sep = sep))
}

comb(mtcars,"gearCarb",c("gear","carb"), "-")

#                     mpg cyl  disp  hp drat    wt  qsec vs am gearCarb
#Mazda RX4           21.0   6 160.0 110 3.90 2.620 16.46  0  1      4-4
#Mazda RX4 Wag       21.0   6 160.0 110 3.90 2.875 17.02  0  1      4-4
#Datsun 710          22.8   4 108.0  93 3.85 2.320 18.61  1  1      4-1
#Hornet 4 Drive      21.4   6 258.0 110 3.08 3.215 19.44  1  0      3-1
#Hornet Sportabout   18.7   8 360.0 175 3.15 3.440 17.02  0  0      3-2
#Valiant             18.1   6 225.0 105 2.76 3.460 20.22  1  0      3-1
#...

【讨论】：