如何在向量中除一个元素之外的所有元素上循环函数，并将结果存储在数据帧的单独列中

# 创建一个向量
vec <- c(1, 2, 3, 4, 5)

# 创建空的数据帧
result_df <- data.frame(result = numeric(0))

# 遍历向量中的元素
for (i in seq_along(vec)) {
  # 判断当前元素是否是需要排除的元素
  if (vec[i] != 3) {
    # 对当前元素进行操作，并将结果存储到数据帧中
    result_df <- rbind(result_df, data.frame(result = vec[i] * 2))
  }
}

# 输出结果
print(result_df)

# 创建一个向量
vec <- c(1, 2, 3, 4, 5)

# 使用向量化操作将函数应用于向量的所有元素，并排除指定元素
result <- vec[vec != 3] * 2

# 创建包含结果的数据帧
result_df <- data.frame(result = result)

# 输出结果
print(result_df)