为什么write.fwf()没有按照定宽设置

Question

我想将一组随机生成的数字写入一个固定格式的文本文件。但由于某些原因，write.fwf只写对了第一列，所有其他列都多了一个数字。我该如何解决？谢谢！

    set.seed(1899)

    library(sensitivity)
    library(randtoolbox)

    par_lower <- c( 0.12,  0.13, 0.038, 0.017)
    par_upper <- c(12.00, 13.00, 3.800, 1.700)

    sample_size <- 5

    lim_para8 <- c(par_lower[1], par_upper[1])
    lim_para9 <- c(par_lower[2], par_upper[2])
    lim_parb8 <- c(par_lower[3], par_upper[3])
    lim_parb9 <- c(par_lower[4], par_upper[4])

    par_rand <- parameterSets(par.ranges = list(lim_para8, lim_para9,
                                                lim_parb8, lim_parb9),
                              samples = sample_size, method = "sobol")

    par_rand

    # write to file
    library(gdata)
    file2write <- paste("par.txt", sep = "")
    write.fwf(par_rand, file = file2write, width = c(10, 10, 10, 10), colnames = FALSE)

结果：

     6.060    6.56500    1.91900   0.858500
     9.030    3.34750    2.85950   0.437750
     3.090    9.78250    0.97850   1.279250
     4.575    4.95625    2.38925   0.227375
    10.515   11.39125    0.50825   1.068875

如果我改成

    write.fwf(par_rand, file = file2write, width = c(10, 9, 9, 9), 
              colnames = FALSE, quote = FALSE, rownames = FALSE)

我遇到了这个错误

    Error in write.fwf(par_rand, file = file2write, width = c(10, 9, 9, 9),  : 
      'width' (9) was too small for columns: V4
     'width' should be at least (10)

Answer 1

请尝试下面的代码，它适用于我。我测试了几种格式并且都有效。两个代码段 return 宽度为 4 x 10.

的固定格式文件

这当然意味着在 file2write 的定义中设置 sep 无法使用 write.fwf

获得所需的输出

write.fwf(par_rand, file = "par2.txt", width = c(10, 10, 10, 10), colnames = FALSE, sep = "")

write.fwf(par_rand, file = file2write, width = c(10, 10, 10, 10), colnames = FALSE, sep = "")

以下生成相同但具有 1x10 和 3x9，正如我认为您想要的那样

write.fwf(par_rand, file = "par3.txt", width = c(10, 9, 9, 9), colnames = FALSE, sep = "")

请告诉我这是否是您想要的。

为什么write.fwf()没有按照定宽设置

Why write.fwf() did not follow the fixed width set

r

fwrite

fixed-width