将希腊字母从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 使桌面保存比特定用户更通用。