Use 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("***", "**", "*", ".", " "))
giving:
> str(Signif)
Class 'noquote' atomic [1:2] *** *
..- attr(*, "legend")= chr "0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1"
上面的代码是在R本身中使用的stats::printCoefmat
(see ?printCoefmat
) 是从调用的stats:::print.summary.lm
。请注意,它生成一个类的对象"noquote"
也提供了一个传说"legend"
属性。