R: Format output of write.table

Question

Is it possible to format output with write.table?

I can left-align columns using tab, sep = '\t', and can increase spacing between columns using two tabs, sep = '\t\t'.

Ideally I would like to be able to right-align columns and use an intermediate amount of spacing than that provided by '\t' and '\t\t'. Using something like sep = '\t ' completely destroyes column alignment.

I must proof a large amount of data extracted from many different files that use numerous different table formats. Closely matching column spacing of R's output text files to that in the original pdf documents would substantially increase speed and accuracy of proofing.

# example data to write to text file

aa = matrix(c(1000,110,10,1, 
              0,2000,20,2, 
              30,300,3000,30000), nrow=3, byrow=TRUE,
         dimnames = list(NULL, c("C1", "C2", "C3","C4")))
aa

# left align columns using a tab

write.table(aa,file="c:/users/mark w miller/simple r programs/formatted_tablea.txt", na = 'NA', sep = '\t',
row.names = F, col.names = F)

#   1000    110 10  1
#   0   2000    20  2
#   30  300 3000    30000

# increase spacing between columns with two tabs

write.table(aa,file="c:/users/mark w miller/simple r programs/formatted_tableb.txt", na = 'NA', sep = '\t\t',
row.names = F, col.names = F)

#   1000        110     10      1
#   0       2000        20      2
#   30      300     3000        30000

# Here is an example of the desired right-aligned output 
# format with an intermediate amount of spacing 
# (3 spaces vs the 1 or 7 spaces used above):

#   1000    110     10       1
#      0   2000     20       2
#     30    300   3000   30000

# Maybe use cat somehow? 

cat(file="c:/users/mark w miller/simple r programs/formatted_tablec.txt", aa, sep=c(' ', ' ', '\n'))

Or must I write to a csv file and open the output file with Excel? I would prefer to avoid Excel. Or perhaps I must create the output data in the desired format using LaTex?

Sorry for all of the questions this week.

Could you expound on that notion of proofing data and what sort of operations that involves. I might have an alternate solution in mind depending upon the nature of proofing. — jxramos
– jxramos, Commented Dec 17, 2014 at 1:38

IRTFM · Accepted Answer · 2012-06-22 21:09:18Z

8

See if the combination of capture.output and the print.gap argument to print is enough:

capture.output( print(aa, print.gap=3), file="capture.txt")

         C1     C2     C3      C4
[1,]   1000    110     10       1
[2,]      0   2000     20       2
[3,]     30    300   3000   30000

An alternate strategy would be to use write.matrix with a sep=" " (3 spaces) argument. You will need to ignore the column headers which will not come out correctly:

require(MASS)
write.matrix(aa, file="capturemat.txt", sep="   ")

C1   C2   C3   C4
 1000     110      10       1
    0    2000      20       2
   30     300    3000   30000

edited Jun 22, 2012 at 21:09

answered Jun 22, 2012 at 21:01

IRTFM

264k22 gold badges381 silver badges503 bronze badges

Sign up to request clarification or add additional context in comments.

2 Comments

Emily Over a year ago

is there an equivalent of row.names = FALSE for capture.output? there doesn't appear to be

IRTFM Over a year ago

Not for capture.output, but you should try using it inside the print call.

drastega · Accepted Answer · 2015-03-27 18:32:11Z

4

write.fwf function from gdata library is very good for this.

answered Mar 27, 2015 at 18:32

drastega

1,7735 gold badges33 silver badges45 bronze badges

Collectives™ on Stack Overflow

R: Format output of write.table

2 Answers 2

2 Comments

Comments

Your Answer

Linked

Hot Network Questions

Collectives™ on Stack Overflow

2 Answers 2

2 Comments

Comments

Your Answer

Sign up or log in

Post as a guest

Linked

Related