是否有一个R函数将p.value转换为重要性代码？

Question

summary显示p.values的重要性代码.是否有一个R函数将p.value转换为重要性代码？例如:0.02 - > '*'和0.005 - > '**'？

Answer 1

试试这个.没有使用包裹.尝试?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(try ?printCoefmat)中,它被调用stats:::print.summary.lm.请注意,它会生成类的对象,"noquote"并在"legend"属性中提供图例.

Answer 2

跟踪 使用的代码summary，您可以在 中找到以下内容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))

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