‘scorecard’ version 0.3.2 about scorecard HOT 8 CLOSED

Dear Dr XIE：       data_xw is a normal dataframe, so I do believe there is a bug in scorecard::describe function.         best regrads

谢博士好：           今天才有空复盘，这个问题很简单： scorecard::describe function (dt)  {     dt = setDT(copy(dt))     sum_dt = data.table(variable = names(dt), class = dt[, sapply(.SD,          class)], count = dt[, .N], unique_count = dt[, sapply(.SD,          function(x) uniqueN(x, na.rm = TRUE))], identical_rate = dt[,          sapply(.SD, function(a) {             pt = prop.table(table(a))             max_rate = ifelse(length(pt) == 0, Inf, max(pt, na.rm = TRUE))             return(max_rate)         })], missing_rate = dt[, sapply(.SD, function(x) mean(is.na(x)))])     xnum = names(which(dt[, sapply(.SD, is.numeric)]))     dtnum = dt[, xnum, with = FALSE]     sum_dtnum = as.data.table(do.call(rbind, lapply(dtnum, summary)))[,          `:=`(variable = xnum, sd = dtnum[, sapply(.SD,              sd)])]     setnames(sum_dtnum, c("min", "p25", "p50",          "mean", "p75", "max", "variable",          "sd"))     sum_dtnum = sum_dtnum[, c("variable", "mean",          "sd", "min", "p25", "p50", "p75",          "max"), with = FALSE]     vardesc = merge(sum_dt, sum_dtnum, by = "variable",          all = TRUE, sort = FALSE)[, `:=`((c("identical_rate",          "missing_rate", "mean", "sd")), lapply(.SD,          function(x) round(x, 4))), .SDcols = c("identical_rate",          "missing_rate", "mean", "sd")][]     return(vardesc) } 问题出在： 下面这一句的summary里面实际建模中肯定有很多 NA's的情况，一共9列。 sum_dtnum = as.data.table(do.call(rbind, lapply(dtnum, summary)))[,                                                                    `:=`(variable = xnum, sd = dtnum[, sapply(.SD,                                                                                                              sd)])] 而下一句 setnames(sum_dtnum, c("min", "p25", "p50", "mean", "p75", "max", "variable", "sd")) 只给八个列赋名： 所以一发动全身，导致report函数也不能使用了。 我R语言一般，不太会去包里修改，麻烦您和您的团队尽快发布新的版本。 谢谢

scorecard::describe 函数里面这句：忽略了对缺失值的处理 setnames(sum_dtnum, c("min", "p25", "p50", "mean", "p75", "max", "variable", "sd"))