R 语法中的替换/占位符变量

Question

我有以下问题：

对于不同的变量集，我需要一遍又一遍地使用相同的语法。 它们都具有相同的“核心”名称（例如：variable_1）和不同的后缀，例如：

variable_1_a,   variable_1_b,   variable_1_c,   variable_1_d,   variable_1_e, ...

由于语法很大，我需要为（示例）变量 _2、_3、_4、_5 等运行它，我想知道是否有某种形式的占位符表达式可以定义我每次都想用它运行它的“核心”名称，而不是复制粘贴整个语法并用下一个核心名称替换每个“variable_1”。

例如，将核心名称保存为 !XY! （“！”只是表示它是非典型的）并且在整个语法中带有该术语，并附有“_a”，“_b”，“_c”

!XY!_a, !XY!_b, !XY!_c, !XY!_d, !XY!_e, ...

我尝试将核心名称保存在一个名为 XY 的元素中并将其粘贴到结尾：

XY <- "variable_1"
paste0(as.character(XY),"_a") 
"variable_1_a"

或

as.symbol(paste0(as.character(XY),"_a")) 
variable_1_a

当然，这看起来很长，但如果它也可以用作表达式，我可以像变量一样使用它，我会接受：例如读取或写入它会导致错误。

as.symbol(paste0(as.character(XY),"_a")) <- "test"
Error in as.symbol(paste0(as.character(XY),"_a")) <- "test" : 
could not find function "as.symbol<-"

如果有机会编写一种语法来适应所有程序，那将是一个巨大的节省时间！ 非常感谢您的想法！

Answer 1

假设您有 5 个变量（“variable_1”、“variable_2”等）和 4 个字母（“_a”、“_b”等）。

我们可以使用outer 喜欢：

n <- 1:5
l <- letters[1:4]

c(outer(n, l, function(x, y) paste("variable", x, y, sep = "_")))
#Or a bit shorter : 
#paste0("variable_", c(outer(n, l, paste, sep = "_")))

#[1] "variable_1_a" "variable_2_a" "variable_3_a" "variable_4_a"
#[5] "variable_5_a" "variable_1_b" "variable_2_b" "variable_3_b"
#[9] "variable_4_b" "variable_5_b" "variable_1_c" "variable_2_c"
#[13] "variable_3_c" "variable_4_c" "variable_5_c" "variable_1_d"
#[17] "variable_2_d" "variable_3_d" "variable_4_d" "variable_5_d"