r - 将 data.frame 中的数字转换为 R 中的重要性星星

Question

我正在寻找一个函数或库来转换 data.frame 中重要性星星中的数字。

使用pander package的函数add.significance.stars()我可以将数字转换为重要的星星。我希望构建一个函数来将数字转换为具有重要性的星星的数据框。示例

mydata <-  data.frame("Su1"=c(1,1,0.0004),"Su2"=c(NA,1,0.03),"Su3"=c(NA,NA,0.007))
rownames(mydata) <- c("Su2","Su3","Su4")


mydata
       Su1  Su2   Su3
Su2 1.0000   NA    NA
Su3 1.0000 1.0000   NA
Su4 0.0004 0.03 0.007

使用add.significance.stars()我希望有一个像这样的表格:

mydata
           Su1  Su2   Su3
    Su2 "_1.0000_"   NA    NA
    Su3 "_1.0000_" "_1.0000_"    NA
    Su4 "_0.0004_ * * *" "_0.03_ *" "_0.007_ * *"

Answer 1

这是一种不会丢失行名称并将其保留为数据框而不是将其转换为矩阵的方法(我发现了 [] here 的技巧):

mydata[] <- sapply(mydata, add.significance.stars)
mydata
#               Su1      Su2         Su3
# Su2           _1_   _NA_NA      _NA_NA
# Su3           _1_      _1_      _NA_NA
# Su4 _4e-04_ * * * _0.03_ * _0.007_ * *