R语言：如何高亮或处理数组/表格中绝对值大于10的元素？

方案一：将非目标值替换为0 #

这种方式简单直接，仅保留绝对值大于10的数值，其余替换为0，能快速聚焦目标单元格。无论处理普通矩阵还是chisq.test()输出的.stdres，逻辑完全一致：

# 假设你的数据对象是d（替换为你的.stdres对象即可）
d_modified <- d
# 把绝对值≤10的元素替换为0
d_modified[abs(d_modified) <= 10] <- 0

方案二：用xtable生成带高亮的表格（支持HTML/PDF输出） #

如果需要生成可视化的表格报告，可以用xtable给目标单元格添加高亮样式，以下分两种输出场景说明：

1. 输出HTML表格 #

library(xtable)

# 生成xtable对象（替换d为你的.stdres）
xt_obj <- xtable(d)

# 定位绝对值大于10的单元格坐标
highlight_pos <- which(abs(d) > 10, arr.ind = TRUE)
# 转换为xtable的行号（xtable表头占1行，数据行从第2行开始）
highlight_rows <- highlight_pos[, 1] + 1
highlight_cols <- highlight_pos[, 2]

# 构建高亮样式（这里用黄色背景）
highlight_cmds <- lapply(seq(nrow(highlight_pos)), function(i) {
  list(pos = c(highlight_rows[i]-1, highlight_cols[i]),
       command = '\\cellcolor{yellow}')
})

# 输出带高亮的HTML表格
print(xt_obj, type = "html", add.to.row = highlight_cmds, 
      include.rownames = TRUE, include.colnames = TRUE)

2. 输出PDF/LaTeX表格 #

输出PDF需要依赖LaTeX的colortbl包，在你的LaTeX文档开头需添加\usepackage{colortbl}，代码如下：

print(xt_obj, type = "latex", add.to.row = highlight_cmds, 
      include.rownames = TRUE, include.colnames = TRUE,
      sanitize.text.function = identity)

适配chisq.test的.stdres #

.stdres本质是矩阵类型，直接将上述代码中的d替换为你的卡方检验结果对象即可，示例：

# 先获取标准化残差
chisq_out <- chisq.test(your_dataset)
std_res <- chisq_out$stdres

# 执行替换或高亮操作（参考上面的方案代码）

内容的提问来源于stack exchange，提问作者Théodore Targerian