如何迭代函数中的条目以创建两个新的字符向量

iterate_vector <- function(input_vector) {
  result_vector <- c()  # 创建空的结果向量
  
  for (item in input_vector) {
    # 拆分当前条目为两个新的字符向量
    new_vector1 <- paste0(item, "_1")
    new_vector2 <- paste0(item, "_2")
    
    # 将新的字符向量添加到结果向量中
    result_vector <- c(result_vector, new_vector1, new_vector2)
  }
  
  return(result_vector)  # 返回最终的结果向量
}

# 示例用法
input <- c("a", "b", "c")
output <- iterate_vector(input)
print(output)