R生成情商得分差值后导出Excel并高亮≥10分差值的方法问询

问题背景 #

我从事情商得分解读工作，分析时需要重点关注得分间差值≥10分的情况。自己编写了R函数计算差值，但无法将输出结果复制或导出到Excel，试过write_clip、write.table等函数，也尝试转成表格、矩阵、数据框，写入CSV都没成功。接触R仅2个月，需要可行的解决方法，包括优化现有函数。

现有函数代码：

eqi_function <- function(x) {
  for(i in x) {
    i <- abs(i - x[1:15])
      print(i) 
    }
}

测试用得分向量：

test.scores <- c(112,122,122,98,101,106,106,116,100,123,123,122,122,115,115)

优化后的解决方法 #

1. 优化函数：生成可导出的差值矩阵 #

原函数仅循环打印结果，无法直接存储。可以直接生成对称差值矩阵，每个元素对应两个得分的绝对差值：

eqi_function_optimized <- function(x) {
  # 生成所有得分对的绝对差值矩阵
  diff_matrix <- outer(x, x, FUN = function(a, b) abs(a - b))
  # 给矩阵行/列命名，对应原始得分位置
  rownames(diff_matrix) <- paste0("得分", 1:length(x))
  colnames(diff_matrix) <- paste0("得分", 1:length(x))
  return(diff_matrix)
}

调用函数并存储结果：

result_matrix <- eqi_function_optimized(test.scores)

2. 导出到Excel或CSV #

方法1：导出为CSV文件

用write.csv直接导出，可直接用Excel打开：

write.csv(result_matrix, file = "情商得分差值矩阵.csv", row.names = TRUE)

方法2：直接生成带条件格式的Excel文件（需openxlsx包）

一步到位生成带高亮的Excel文件，无需后续手动设置：
先安装加载包：

install.packages("openxlsx")
library(openxlsx)

创建并格式化工作簿：

# 创建工作簿
wb <- createWorkbook()
# 添加工作表
addWorksheet(wb, sheetName = "得分差值")
# 写入差值矩阵
writeData(wb, sheet = "得分差值", x = result_matrix)
# 设置高亮格式：差值≥10时用浅红色填充
highlight_style <- createStyle(fgFill = "#FFC7CE")
conditionalFormatting(wb, sheet = "得分差值", 
                      cols = 2:ncol(result_matrix)+1, # 跳过第一列行名
                      rows = 2:nrow(result_matrix)+1, # 跳过第一行列名
                      rule = ">=10",
                      style = highlight_style)
# 保存文件
saveWorkbook(wb, file = "情商得分差值分析.xlsx", overwrite = TRUE)

3. 直接复制到剪贴板 #

如果只需快速复制到Excel，Windows系统可用以下命令：

write.table(result_matrix, "clipboard", sep = "\t", row.names = TRUE)

之后直接在Excel中粘贴，再手动设置条件格式高亮≥10的单元格即可。

内容的提问来源于stack exchange，提问作者Tamara Kellam-Washington