How to print the frequency table (produced by the command "table" to Excel

Hi,

   How could we print the frequency table (produced by "table") to an Excel
file?
   Is there an easy way to do so? Thanks,

Miao

df <- data.frame(x = 1:3, y = 3:1, z = letters[1:3])

table(df[,c("y","z")])

   z
y   a b c
  1 0 0 1
  2 0 1 0
  3 1 0 0

test<-table(df[,c("y","z")])
as.data.frame(test)

  y z Freq
1 1 a    0
2 2 a    0
3 3 a    1
4 1 b    0
5 2 b    1
6 3 b    0
7 1 c    1
8 2 c    0
9 3 c    0

as.matrix(test)

   z
y   a b c
  1 0 0 1
  2 0 1 0
  3 1 0 0

testm<-as.matrix(test)
testm

   z
y   a b c
  1 0 0 1
  2 0 1 0
  3 1 0 0

typeof(testm)

[1] "integer"

        [[alternative HTML version deleted]]

alphatab

alpha1<-sample(LETTERS[1:3],50,TRUE)
alpha2<-sample(LETTERS[1:2],50,TRUE)

alphas<-data.frame(alpha1,alpha2)
alphatab<-xtab(alpha1~alpha2,alphas)

delim.xtab(alphatab,pct=NA,interdigitate=TRUE)

sink("temp_table3.csv")
delim.xtab(alphatab,pct=NA,interdigitate=TRUE)
sink()
sink("temp_table3.csv", append=TRUE)
delim.table(alphatab)
sink()
sink("temp_table3.csv", append=TRUE)
delim.table(alphatab)
sink()
?delim.xtab

Hi jpm miao,
You can get CSV files that can be imported into Excel like this:

library(prettyR)
sink("excel_table1.csv")
delim.table(table(df[,c("y","z")]))
sink()
sink("excel_table2.csv")
delim.table(as.data.frame(table(df[,c("y","z")])),label="")
sink()
sink("excel_table3.csv")
delim.table(as.matrix(table(df[,c("y","z")])),label="")
sink()

Jim

On Wed, Apr 27, 2016 at 8:35 AM, jpm miao <miaojpm at gmail.com> wrote:

Hi,

   How could we print the frequency table (produced by "table") to an

Excel

file?
   Is there an easy way to do so? Thanks,

Miao

df <- data.frame(x = 1:3, y = 3:1, z = letters[1:3])

table(df[,c("y","z")])

   z
y   a b c
  1 0 0 1
  2 0 1 0
  3 1 0 0

test<-table(df[,c("y","z")])
as.data.frame(test)

  y z Freq
1 1 a    0
2 2 a    0
3 3 a    1
4 1 b    0
5 2 b    1
6 3 b    0
7 1 c    1
8 2 c    0
9 3 c    0

as.matrix(test)

   z
y   a b c
  1 0 0 1
  2 0 1 0
  3 1 0 0

testm<-as.matrix(test)
testm

   z
y   a b c
  1 0 0 1
  2 0 1 0
  3 1 0 0

typeof(testm)

[1] "integer"

        [[alternative HTML version deleted]]