r - 是否有将 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"

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