导出到 Excel 时保持数字格式

Question

我有这个数据框

df <- data.frame(status=c('single', 'married', 'married', "fff"),
                 education=c(3456, 898989899, 23939004, NA),
                 income=c('34,5%', '88.456%', '92', NA))
 

我使用

对上述数字的格式进行了一些修改

my_numbers <- function(x) structure(x, class = c('my_numbers', 'numeric'))  
format.my_numbers <- function(x,...)NextMethod(sci = FALSE, big.mark='.')
print.my_numbers <- function(x,...) print(format(x), quote = FALSE)    
'[.my_numbers' <- function(x,...,drop = FALSE)  my_numbers(NextMethod('['))
 
x <- my_numbers(df)

df <- lapply(df, my_numbers)
df2<- bind_rows(df)



 df2
    A tibble: 4 × 3
      status     education   income    
      <my_nmbrs> <my_nmbrs>  <my_nmbrs>
    1 single           3.456 34,5%     
    2 married    898.989.899 88.456%   
    3 married     23.939.004 92   
     4 fff                 NA NA   

我想在将 df2 提取到 Excel 时保持这种格式。我试过了

library(xlsx) 

----
wb <- createWorkbook() 
CellStyle(wb) 
sheet <- createSheet(wb, sheetName = "Sheet1") 
  
addDataFrame(df2, sheet)
saveWorkbook(wb = wb, file = "New_df.xlsx")

但没有成功。有什么想法吗？

另一种方法如下

library(xlsx)
df1<-df %>%   mutate(across(where(is.numeric), ~formatC(., format="d", big.mark=".")))
df1[df1=='NA']<-NA

 
wb <- createWorkbook() 
CellStyle(wb) 
sheet <- createSheet(wb, sheetName = "Sheet1") 
addDataFrame(df1, sheet)
saveWorkbook(wb = wb, file = "New_df.xlsx")

这似乎有效，而且考虑到我拥有数百万个细胞，速度非常快。这有道理吗？

我有 300000 行和 900 列

Answer 1

同样的问题你已经问过好几次了。这是一个适合您的 xlsx 的解决方案。请注意，只有数字列受到影响

library(openxlsx)
df <- data.frame(status=c('single', 'married', 'married', "fff"),
                 education=c(3456, 898989899, 23939004, NA),
                 income=c('34,5%', '88.456%', '92', NA),
                 another_col = sample(200000, 4))

wb <- createWorkbook()
addWorksheet(wb, "Sheet1")
writeData(wb, "Sheet1", df)
numeric_style <- createStyle(numFmt = "#,##0.00")

addStyle(wb, "Sheet1", style = numeric_style, 
         rows = 2:(nrow(df) + 1), 
         cols = which(sapply(df, is.numeric)), gridExpand = TRUE)

saveWorkbook(wb, "numeric_formatted_numbers.xlsx", overwrite = TRUE)

请注意，列

B

和

D

都是数字，即使格式为

,