数据库代码公开：将XSum打分矫正-1至1之间

 
library(dplyr)  
XSum <- XSum %>%  
  mutate(  
    max_pos = if_else(any(score > 0), max(score[score > 0]), NA_real_),  
    min_neg = if_else(any(score < 0), min(score[score < 0]), NA_real_),  
    score_pos = if_else(score > 0, score / max_pos, NA_real_),  
    score_neg = if_else(score < 0, score / min_neg * -1, NA_real_)  
  ) %>%  
  mutate(score = if_else(is.na(score_pos), if_else(is.na(score_neg), score, score_neg), score_pos)) %>%  
  select(-max_pos, -min_neg, -score_pos, -score_neg)