Question

我想使用R。

将包含希腊字母的字符串导出到Excel

例如，我想导出以下表达式：

β<子> 0 =α<子> 0 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使保存到桌面比特定用户更通用。

将希腊字母从R导出到Excel

1 个答案: