是否有将 p.value 转换为显着性代码的 R 函数？

Question

summary显示 p.values 的显着性代码。 是否有将 p.value 转换为显着性代码的 R 函数？ 例如： 0.02 --> '*'和 0.005 --> '**' ?

Answer 1

使用symnum如下所示。 ?symnum了解更多信息。

p.values <- c(9.5e-15, 0.02)
Signif <- symnum(p.values, corr = FALSE, na = FALSE, cutpoints = c(0, 
    0.001, 0.01, 0.05, 0.1, 1), symbols = c("***", "**", "*", ".", " "))

给予：

> str(Signif)
Class 'noquote'  atomic [1:2] *** *
  ..- attr(*, "legend")= chr "0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1"

上面的代码在 R 本身的stats::printCoefmat （见?printCoefmat ）中使用，它是从stats:::print.summary.lm 。 请注意，它生成了一个"noquote"类的对象，并且还在"legend"属性中提供了一个图例。

Answer 2

跟踪summary使用的代码，您可以在stats:::printCoefmat找到以下stats:::printCoefmat ：

Signif <- symnum(pv, corr = FALSE, na = FALSE, 
                 cutpoints = c(0, 0.001, 0.01, 0.05, 0.1, 1), 
                 symbols = c("***", "**", "*", ".", " "))

您可以创建自己的函数来执行此操作，例如

signif.num <- function(x) {
    symnum(x, corr = FALSE, na = FALSE, legend = FALSE,
           cutpoints = c(0, 0.001, 0.01, 0.05, 0.1, 1), 
           symbols = c("***", "**", "*", ".", " "))
}
signif.num(c(1e-8, 0.01, 0.05, 0.1, 0.2))

（注意最后一个值只是一个空格，在输出中不可见）