从R导出希腊字母到Excel

Question

我想使用R导出包含希腊字母的字符串到Excel中。例如，我想导出以下表达式：

β₀=α₀+1

我正在使用XLConnectJars和XLConnect库将表达式从R导出到Excel。

是否有任何方法可以将这样的表达式从R导出到Excel？例如，下面的代码在桌面上创建一个名为"example"的Excel文件。该文件有一个“Expression”工作表，在该工作表中，下面的表达式被打印到B3单元格中：

B0=A0+1

library(XLConnectJars)
library(XLConnect)
wb<-loadWorkbook("data.xlsx", create = TRUE)
createSheet(wb,"Expression")
writeWorksheet(wb,"B0=A0+1", "Expression",startRow = 3,startCol = 2,header=FALSE)
saveWorkbook(wb, file="C:/Users/ozgur/Desktop/example.xlsx")

我想要同样的东西，但是希望使用希腊字母。

非常感谢任何帮助。谢谢！

- oercim

---

我有一个类似的问题。我找到的最好的解决方法是将数据导出为CSV文件。 - GerasimosPanagiotakopoulos

Answer 1

您可以使用Unicode字符来表示任何希腊字母的表达式。在下面的示例代码中，我还使用了Unicode将0更改为下标0。对于这个特定的表达式，Beta是Unicode U+03B2，在R中写作"\U03B2"。

library(XLConnectJars)
library(XLConnect)
wb<-loadWorkbook("data.xlsx", create = TRUE)
createSheet(wb,"Expression")
ex <- "\U03B2\U2080=\U03B1\U2080+1"
writeWorksheet(wb,ex, "Expression",startRow = 3,startCol = 2,header=FALSE)
saveWorkbook(wb, file=paste0(Sys.getenv(c("USERPROFILE")),"\\Desktop\\example.xlsx"))

我还使用了Sys.getenv函数，使得保存到桌面的过程比只适用于特定用户更加普遍化。

- Kerry Jackson

---

不错。在我的设置中，“0”下标没有显示在“RStudio”绘图区域中。但是使用“cairo”设备正确地打印到PDF中，方法是“ggsave（“filename.pdf”，device = cairo_pdf）”。 - PatrickT