You could try rbind
(see ?rbind
for details):
## create example data
set.seed(1)
s <- list(sample(LETTERS[1:4], size=20, replace=T), sample(LETTERS[1:4], size=20, replace=T))
## call table for each item in the list
l <- lapply(s, table)
l
#[[1]]
#A B C D
#4 5 5 6
#[[2]]
#A B C D
#5 7 4 4
## using rbind to create a matrix
d <- do.call(rbind, l)
d
# A B C D
#[1,] 4 5 5 6
#[2,] 5 7 4 4
## write it into a file
write.table(d, "file.txt")