在grid.draw中显示美元符号

Question

如何添加美元符号并将其四舍五入到由grid.draw包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,'$')