r - 将希腊字母从 R 导出到 Excel

Question

我想使用 R 将包含希腊字母的字符串导出到 Excel。

例如我想导出以下表达式:

β₀=α₀+1

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

有没有办法将这样的表达式从 R 导出到 Excel？

例如，下面的代码在我的桌面上创建一个名为“example”的 Excel 文件。该文件有一个“表达式”工作表，在该工作表中，以下表达式被打印到 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")

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

我会很高兴得到任何帮助？非常感谢。

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 使桌面保存比特定用户更通用。