write.table output

[mellino]

Hello,
I am tring to save a txt file using write.table() but if I have a number with a 0 after the decimal separetor this is omissed in the output, for example if the data is 18.20 in the stored txt I got 18.2. I hope that this is clear.
Any help?

[clausp]

Instead of just giving write.table() a data frame you can format it:

write.table(format(df, digits=2), [all your other options])

[mellino]

Thank you for your reply, using format, the output data becomes characters (they appear in this format in the txt "18.20")

[clausp]

Is text not what you want if you write to a text file? Maybe if you provide a reproducible example, including what you expect the final output to be, it will be easier to help.

FAQ: What's a reproducible example (`reprex`) and how do I create one?

Why reprex? Getting unstuck is hard. Your first step here is usually to create a reprex, or reproducible example. The goal of a reprex is to package your code, and information about your problem so that others can run it and feel your pain. Then, hopefully, folks can more easily provide a solution. What's in a Reproducible Example? Parts of a reproducible example: background information - Describe what you are trying to do. What have you already done? complete set up - include any library() calls and data to reproduce your issue. data for a reprex: Here's a discussion on setting up data for a reprex make it run - include the minimal code required to reproduce your error on the data…

[mellino]

This is my script, on the right what I want and on the left what I got...

[nirgrahamuk]

if you want a table for visually representing to humans (rather than to machines)
then perhaps use a formatting library and save to html.

(randnums <- data.frame(randnums=c(1,2,round(runif(10,0,1000),digits=2)))

library
ft <- flextable(randnums)

ft <- colformat_num(ft,
                    col_keys = "randnums",
                     digits=2)

save_as_html(ft,"mytable.html") 

[clausp]

If you still wants to use write.table(), this would do the trick. Note that this code sets the minimum number of digits to 2 rather than cutting them off at two. Pick which one you like best.

# write.table example

write.table(format(mtcars, nsmall = 2), quote = FALSE)
#> mpg cyl disp hp drat wt qsec vs am gear carb
#> Mazda RX4 21.00 6.00 160.00 110.00 3.90 2.620 16.46 0.00 1.00 4.00 4.00
#> Mazda RX4 Wag 21.00 6.00 160.00 110.00 3.90 2.875 17.02 0.00 1.00 4.00 4.00
#> Datsun 710 22.80 4.00 108.00  93.00 3.85 2.320 18.61 1.00 1.00 4.00 1.00
#> Hornet 4 Drive 21.40 6.00 258.00 110.00 3.08 3.215 19.44 1.00 0.00 3.00 1.00
#> Hornet Sportabout 18.70 8.00 360.00 175.00 3.15 3.440 17.02 0.00 0.00 3.00 2.00
#> Valiant 18.10 6.00 225.00 105.00 2.76 3.460 20.22 1.00 0.00 3.00 1.00
#> Duster 360 14.30 8.00 360.00 245.00 3.21 3.570 15.84 0.00 0.00 3.00 4.00
#> Merc 240D 24.40 4.00 146.70  62.00 3.69 3.190 20.00 1.00 0.00 4.00 2.00
#> Merc 230 22.80 4.00 140.80  95.00 3.92 3.150 22.90 1.00 0.00 4.00 2.00
#> Merc 280 19.20 6.00 167.60 123.00 3.92 3.440 18.30 1.00 0.00 4.00 4.00
#> Merc 280C 17.80 6.00 167.60 123.00 3.92 3.440 18.90 1.00 0.00 4.00 4.00
#> Merc 450SE 16.40 8.00 275.80 180.00 3.07 4.070 17.40 0.00 0.00 3.00 3.00
#> Merc 450SL 17.30 8.00 275.80 180.00 3.07 3.730 17.60 0.00 0.00 3.00 3.00
#> Merc 450SLC 15.20 8.00 275.80 180.00 3.07 3.780 18.00 0.00 0.00 3.00 3.00
#> Cadillac Fleetwood 10.40 8.00 472.00 205.00 2.93 5.250 17.98 0.00 0.00 3.00 4.00
#> Lincoln Continental 10.40 8.00 460.00 215.00 3.00 5.424 17.82 0.00 0.00 3.00 4.00
#> Chrysler Imperial 14.70 8.00 440.00 230.00 3.23 5.345 17.42 0.00 0.00 3.00 4.00
#> Fiat 128 32.40 4.00  78.70  66.00 4.08 2.200 19.47 1.00 1.00 4.00 1.00
#> Honda Civic 30.40 4.00  75.70  52.00 4.93 1.615 18.52 1.00 1.00 4.00 2.00
#> Toyota Corolla 33.90 4.00  71.10  65.00 4.22 1.835 19.90 1.00 1.00 4.00 1.00
#> Toyota Corona 21.50 4.00 120.10  97.00 3.70 2.465 20.01 1.00 0.00 3.00 1.00
#> Dodge Challenger 15.50 8.00 318.00 150.00 2.76 3.520 16.87 0.00 0.00 3.00 2.00
#> AMC Javelin 15.20 8.00 304.00 150.00 3.15 3.435 17.30 0.00 0.00 3.00 2.00
#> Camaro Z28 13.30 8.00 350.00 245.00 3.73 3.840 15.41 0.00 0.00 3.00 4.00
#> Pontiac Firebird 19.20 8.00 400.00 175.00 3.08 3.845 17.05 0.00 0.00 3.00 2.00
#> Fiat X1-9 27.30 4.00  79.00  66.00 4.08 1.935 18.90 1.00 1.00 4.00 1.00
#> Porsche 914-2 26.00 4.00 120.30  91.00 4.43 2.140 16.70 0.00 1.00 5.00 2.00
#> Lotus Europa 30.40 4.00  95.10 113.00 3.77 1.513 16.90 1.00 1.00 5.00 2.00
#> Ford Pantera L 15.80 8.00 351.00 264.00 4.22 3.170 14.50 0.00 1.00 5.00 4.00
#> Ferrari Dino 19.70 6.00 145.00 175.00 3.62 2.770 15.50 0.00 1.00 5.00 6.00
#> Maserati Bora 15.00 8.00 301.00 335.00 3.54 3.570 14.60 0.00 1.00 5.00 8.00
#> Volvo 142E 21.40 4.00 121.00 109.00 4.11 2.780 18.60 1.00 1.00 4.00 2.00

^{Created on 2020-05-15 by the reprex package (v0.3.0)}

Also, make sure you use the reprex package rather than a screenshot for your next question. The less work you make other people do, the more likely you are to get an answer.