r - 在 grid.draw 中显示美元符号

Question

如何在grid.drawpackage绘制的表格中添加美元符号并将其四舍五入为两位数gridExtra？

我round在绘制表格之前正在使用，但我不知道如何四舍五入并将“$”加在一起并绘制表格。任何建议将不胜感激。

这是我的数据 df

           A          B
    aa 13.143733 0.09038618
    bb  1.459788 0.14159621
    cc  0.000000 0.00000000
    dd  4.884422 0.69697260
    ee 10.633865 2.92650123

grid.draw(tableGrob(df,show.csep=TRUE, show.rsep=TRUE, 
                          show.box=TRUE, separator="black", 
                          name="test",gp=gpar(fontsize=6, lwd=2)))

Answer 1

使用plyr，您可以使用该colwise函数将函数应用于多列。

library(plyr)
dat <- numcolwise(round_any)(dat,0.01)
dat <- colwise(paste)(dat,'$')