2013-02-08 106 views
3

如何添加美元符號並將其四捨五入至包裝gridExtragrid.draw所繪製的表中的兩位數?在grid.draw中顯示美元符號

我在繪製表格之前使用了round,但是我不知道如何將「$」加在一起並繪製表格。任何建議,將不勝感激。

<code>enter image description here</code>

這裏是我的數據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.9265

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

回答

3

使用plyr,您可以使用colwise功能超多列應用的功能。

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

enter image description here

+0

太謝謝你了! – 2013-02-09 19:59:19