如何在R中的给定位置给定变量字符，生成所有可能的字符串？

# 定义变量字符和位置
variables <- c("A", "B", "C")
positions <- c(1, 3, 4)

# 生成所有可能的字符串
all_strings <- c()
for (i in 1:length(variables)) {
  variable <- variables[i]
  position <- positions[i]
  
  # 在给定位置插入变量字符
  strings <- c()
  for (j in 1:position) {
    string <- paste(rep("_", position), collapse = "")
    string <- paste0(substr(string, 1, j-1), variable, substr(string, j, position))
    strings <- c(strings, string)
  }
  
  all_strings <- c(all_strings, strings)
}

# 打印所有可能的字符串
print(all_strings)