如何在R中用apply函数批量处理矩阵列生成目标向量

首先把单列的处理逻辑封装成可复用的函数：

generate_vector <- function(x) {
  times <- tabulate(x, 4)
  # 按照你的规则生成目标向量：每个次数对应两个值，依次拼接
  vector <- c(
    1/times[1], 1 - 1/times[1],
    1/times[2], 1 - 1/times[2],
    1/times[3], 1 - 1/times[3],
    1/times[4], 1 - 1/times[4]
  )
  return(vector)
}

接下来修改原矩阵的变量名（避免和R内置函数matrix()冲突），再用apply()批量处理第2到7列：

# 替换原变量名，避免内置函数命名冲突
my_matrix <- matrix(1, 16, 7)

# 验证第一列的处理结果（和你原代码输出一致）
vectorW1 <- generate_vector(my_matrix[,1])

# 批量处理第2-7列：返回8行6列的矩阵，每列对应原矩阵一列的处理结果
all_vectors_matrix <- apply(my_matrix[,2:7], MARGIN = 2, FUN = generate_vector)

# 若需要列表形式的结果（每个元素对应一列的向量），用lapply更直观
all_vectors_list <- lapply(my_matrix[,2:7], generate_vector)

关键说明 #

• generate_vector()函数完全复用了你原有的计算逻辑，输入任意一列数据就能输出对应的目标向量。
• apply()的MARGIN=2参数指定按列处理，FUN传入我们定义的函数即可完成批量操作。
• 如果你的实际数据中存在times为0的情况（比如某列没有出现2、3、4这类值），会产生Inf或NaN，可以在函数里添加ifelse这类判断逻辑处理异常值。

内容的提问来源于stack exchange，提问作者doloresafwat