R语言中如何逐列排查非零值，按行名匹配规则删除对应矩阵列

直接贴可运行的完整代码，完全匹配你描述的执行规则：

# 初始化你提供的测试矩阵，对齐行名与列名匹配逻辑
newt <- matrix(c(0,1,0,0,1,0,0,1,0,0,0,1,0,1,0,1), nrow = 4, ncol = 4)
colnames(newt) <- c("1", "2", "3", "4")
rownames(newt) <- colnames(newt)

# 按规则执行筛选
initial_col_order <- colnames(newt)
surviving_cols <- initial_col_order  # 初始状态下列全部保留

for (current_col in initial_col_order) {
  # 已经被删掉的列直接跳过
  if (!current_col %in% surviving_cols) next
  # 提取当前列所有非零元素对应的行名
  non_zero_row_idx <- newt[, current_col] != 0
  linked_cols <- rownames(newt)[non_zero_row_idx]
  # 删除所有和这些行名同名的列
  surviving_cols <- setdiff(surviving_cols, linked_cols)
}

# 生成最终筛选结果
result <- newt[, surviving_cols, drop = FALSE]

运行后result的输出和你预期完全一致，仅保留列1、列3，矩阵内容为：

1 3
1 0 0
2 1 0
3 0 0
4 0 1

• 执行流程和规则的对应关系：
  • 按原始列顺序从左到右遍历，不会因为列被提前删除就打乱后续遍历顺序
  • 遇到已被标记删除的列直接跳过，不会重复执行删除逻辑
  • 每检查一个现存列，就提取该列所有非零值对应的行名，把矩阵中和这些行名重名的列从保留列表里移除
• 小提示：代码里特意加了rownames(newt) <- colnames(newt)的对齐步骤，因为规则要求删除“与非零值对应行名同名的列”，如果行名和列名的标识规则不统一，会直接导致匹配逻辑失效。

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