使用 xlsx package 从 r 导出到 excel 时如何格式化千位分隔符？

Question

I am exporting some dataframes from r to excel using the xlsx and rJava packages, which works well. However, I want the numbers in excel to be separated by thousands using dots, ie 1.000.000,00 . Can anybody provide some example code to achieve this?

Answer 1

Here is a simple example.

library(xlsx)

wb <- createWorkbook()
sheet <- createSheet(wb, "Sheet1")
rows  <- createRow(sheet, rowIndex=1)
cell.1 <- createCell(rows, colIndex=1)[[1,1]]
setCellValue(cell.1, 1234567.89)

cs = CellStyle(wb) +
    DataFormat("#,##0.00")
setCellStyle(cell.1, cs)
saveWorkbook(wb, 'EuroFormatNumbers.xlsx')