我如何在R中创建一个函数来创建列的子集？

Question

我在R中有一个数据框，在列中有将近40年（从1980年到2019年），我需要一个函数来创建几个使用相同变量并重命名的子集，然后我必须在下面放入其他数据框。

X1980 <- subset(all_data,select=c("Pais","RubroId","X1980"))
names(X1980)[names(X1980) == 'X1980'] <- 'Valor'
X1980$ANIO <- 1980

X1981 <- subset(all_data,select=c("Pais","RubroId","X1981"))
names(X1981)[names(X1981) == 'X1981'] <- 'Valor'
X1981$ANIO <- 1981

X1982 <- subset(all_data,select=c("Pais","RubroId","X1982"))
names(X1982)[names(X1982) == 'X1982'] <- 'Valor'
X1982$ANIO <- 1982

final_data <- rbind(X1980,X1981,X1982)

Answer 1

[我们可以创建一个带有列的函数，以选择[cols_select]作为字符向量，names_to_change（“ Valor”或任何其他列名），通过select列对数据集（“ dat”）进行子集化，设置列名称并创建一个新列'ANIO'