将数字格式的值从R导出到Excel

Question

在使用R将数据保存到excel中之前，我曾使用melt，gather和as.numeric函数转换值的格式。但是它们都没有看到提供数字输出的功能。所有这些都产生文本格式。在检查值class时，R显示factor。

#To convert from wide to long
long <- melt(dd, id.vars = "date")
long$value <- as.numeric(long$value)
long_gather <- gather(dd, "variable", "value", -date, convert = TRUE) 

write.xlsx(dd, "ddf.xlsx",sheetName="wide", col.names=T, 
showNA = F; Append = TRUE)

使用melt和as.numeric会完全更改值（第4列），而gather函数将返回值，但以文本格式（第4列）保存在excel中。

有人可以帮助我如何在excel中获得正确的格式吗？