将%symbol添加到r中表格中的数据

我想将一个表保存为图形（使用gridExtra包中的“tableGrob”）。这项工作没有任何问题

但在此之前，我需要在表中的所有值处添加“%”符号。但是，将符号粘贴到表格会将表格转换为向量

my.table <- table(diamonds$cut, diamonds$color)

str(my.table)
'table' int [1:5, 1:7] 163 662 1513 1603 2834 224 933 2400 2337 3903 ...
- attr(*, "dimnames")=List of 2
..$ : chr [1:5] "Fair" "Good" "Very Good" "Premium" ...
..$ : chr [1:7] "D" "E" "F" "G" ...

my.table <- format(100*my.table, 2)

          D        E        F        G        H        I        J      
Fair      "16300"  "22400"  "31200"  "31400"  "30300"  "17500"  "11900"
Good      "66200"  "93300"  "90900"  "87100"  "70200"  "52200"  "30700"
Very Good "151300" "240000" "216400" "229900" "182400" "120400" "67800"
Premium   "160300" "233700" "233100" "292400" "236000" "142800" "80800"
Ideal     "283400" "390300" "382600" "488400" "311500" "209300" "89600"

---

my.table您可以做的一件事就是重建表：

m <- paste(my.table, '%')
matrix(m,5,7,dimnames = dimnames(my.table))

m您可以做的一件事就是简单地重建表：

m <- paste(my.table, '%')
matrix(m,5,7,dimnames = dimnames(my.table))

m另一种方式：

replace(my.table, TRUE, sprintf('%d%%', my.table))

我同意@joran的观点，R不是用来排版漂亮的表格的。
另一种方式：

replace(my.table, TRUE, sprintf('%d%%', my.table))

我同意@joran的说法，R不用于排版漂亮的表格。
您可以复制属性以恢复表格格式：

my.table2 <- paste(my.table, '%')
attributes(my.table2) <- attributes(my.table)
my.table <- my.table2

my.table2您可以复制属性以还原表格：

my.table2 <- paste(my.table, '%')
attributes(my.table2) <- attributes(my.table)
my.table <- my.table2

my.table2实际上，将表导出到LaTeX时需要“\%”。但是我只知道“xtable”函数，我不认为它在导出时提供了一个转换表的选项。此外，我的目标实际上是在Powerpoint演示文稿中使用此表。您建议将表格从R导出到Powerpoint（或同等格式）的最直接方式是什么？@fstevens我不能说。我避免像瘟疫一样使用PowerPoint，并且通常建议其他人也这样做。除了Beamer，还有其他幻灯片类，但是是的，LaTeX+Beamer非常好。不过，我不会撒谎，LaTeX有一个相当陡峭的学习曲线。事实上，当将表导出到LaTeX时，“\%”是必要的。但是我只知道“xtable”函数，我不认为它在导出时提供了一个转换表的选项。此外，我的目标实际上是在Powerpoint演示文稿中使用此表。您建议将表格从R导出到Powerpoint（或同等格式）的最直接方式是什么？@fstevens我不能说。我避免像瘟疫一样使用PowerPoint，并且通常建议其他人也这样做。除了Beamer，还有其他幻灯片类，但是是的，LaTeX+Beamer非常好。不过，我不会撒谎，LaTeX的学习曲线相当陡峭。