如何使用变量在 gather function 中设置“关键”参数？

Question

如何使用变量在 gather function 中设置“关键”参数？ as.character() 和 get() 也不起作用

library(tidyr)
library(dplyr)
path = "C:/Users/lukas/Documents/Projekt/Data/"
files <- list.files(path = path, pattern = "*.csv")

dane <- list()
for (file in files){
  temp_name <- file
 file <- tibble(read.csv(paste(path,file,sep = ""))) %>%
   gather("year", key = temp_name , -country)
 dane <- append(dane,list(file))
}

Error in `ensym2()`:
! Must supply a symbol or a string as argument

Answer 1

我们可以逃脱!!

dane <- list()
for (file in files){
  temp_name <- file
 file <- tibble(read.csv(paste(path,file,sep = ""))) %>%
   gather("year", key = !!temp_name , -country)
 dane <- append(dane,list(file))
}