使用 dplyr：：select 排列列，无需硬编码

问：

我正在加载一个 csv 文件。我正在尝试根据我拥有的列名字符串来排列列。我有大约 50 列。我很好奇如何使用

  dplyr::select 

我看到它采用的参数是直接的列名，而不是将其引用为字符串。所以可能必须对名称进行硬编码。如果我使用

 [

下面是一个示例

table = data.frame(cnty=c(1,2,3), empcnt1=c(200,300,400), 
wage1=c(40,50,60),empcnt2=c(200,300,400),
wage2=c(40,50,60),empcnt3=c(200,300,400), wage3=c(40,50,60))

col.string <- c("empcnt1","wage1","empcnt2","wage2","empcnt3","wage3","cnty")
table1 <- table[col.string]

用

dplyr::select
table2 <- select(table,empcnt1,wage1,empdiff,empcnt2,wage2,empcnt3,wage3,cnty)
table2 <- select(table,empcnt1:wage3,cnty)

请注意，我无法利用我所拥有的事实

col.string

我有大约 50 列，因此在使用 dplyr：select 时尽量避免硬编码。