使用sprintf格式化数据帧数据

Question

在阅读this 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