使用sprintf格式数据框架数据

Question

阅读此问题后，我尝试使用我的数据框架进行同样的操作：

x <- c(1,2,3,4)
y <- c(5,6,7,8)
my.df <- data.frame(x, y)
do.call("sprintf", c("%14.7E", my.df))

，但这仅适用于第一列：

[1] " 1.0000000E+00" " 2.0000000E+00" " 3.0000000E+00" " 4.0000000E+00"

我想要的是：

 1.0000000E+00 5.0000000E+00
 2.0000000E+00 6.0000000E+00
 3.0000000E+00 7.0000000E+00
 4.0000000E+00 8.0000000E+00

这样我就可以将其写入将由Fortran代码读取的文件。

Answer 1

我们需要循环遍历列并单独应用sprintf

my.df[] <- lapply(my.df, sprintf, fmt = "%14.7E")
my.df
#              x              y
#1  1.0000000E+00  5.0000000E+00
#2  2.0000000E+00  6.0000000E+00
#3  3.0000000E+00  7.0000000E+00
#4  4.0000000E+00  8.0000000E+00