r - 将数学符号从 R 数据框导出到 MS Word 表

Question

我已经在 R 中完成了大量计算，现在需要将我的 data.frame 转换为 MS Word 中的均值 +/- SD 表(这是必需的格式)。但是，我不知道如何获得“+/-”符号；似乎应该有一种方法可以做到这一点，而无需将符号手动插入到 Word 表格的每个单元格中。

这是一个使用 mtcars 数据的例子:

require(reshape2)
test_avg <- dcast(mtcars, cyl+gear ~ ., value.var = "mpg", fun.aggregate = mean)
test_sd <- dcast(mtcars, cyl+gear ~ ., value.var = "mpg", fun.aggregate = sd)
testtable <- cbind(test_avg[ , 1:2], paste(as.matrix(round(test_avg[3], 1)), as.matrix(round(test_sd[3], 1)), sep="+/-"))
write.csv(testable, file="Table.csv")

然后可以在 Excel 中打开“Table.csv”，复制并粘贴到 Word 中，得到一个漂亮的表格。这很好，但如果我能在“sep =”参数中添加一些东西，在 Word 中给我一个“+/-”符号，那就更好了。有什么想法吗？

谢谢!

Answer 1

使用 unicode 符号 00B1。

mysymbol <- "\u00B1"
foo <- cbind(test_avg[ , 1:2], paste(as.matrix(round(test_avg[3], 1)), 
          as.matrix(round(test_sd[3], 1)), sep= mysymbol))

> foo
  cyl gear      dev
1   4    3  21.5±NA
2   4    4 26.9±4.8
3   4    5 28.2±3.1
4   6    3 19.8±2.3
5   6    4 19.8±1.6
6   6    5  19.7±NA
7   8    3 15.1±2.8
8   8    5 15.4±0.6
>