将R数据框中的数学符号导出到MS Word表格

Question

我在R中进行了一些计算，现在需要将我的数据框转换为MS Word中的平均值±标准差表格（那是必需的格式）。但是，我不知道如何获得一个“±”符号；似乎应该有一种方法可以在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中就可以得到一个"+/-"符号，这将更加出色。有什么想法吗？

谢谢！

- phosphorelated

---

我会把整个表格制作成JPG格式，然后将其粘贴到Word文件中，告诉需要Word（.doc*）格式的人自己去完蛋。 - Carl Witthoft

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
> 

- SlowLearner

---

谢谢！这让我的生活变得轻松多了。 - phosphorelated