показать символ доллара в 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.9265

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,'$')