Rのtable関数の結果をjsonに出力したい

Question

今、次のデータフレームにtable関数を実行し、クロス集計表を取得します。

sample.df <- data.frame(X = c("A", "A", "A", "A", "B", "B", "B"),
                        Y = c("a", "a", "a", "a", "a", "a", "b"))
(sample.table <- table(sample.df))

   Y
X   a b
  A 4 0
  B 2 1

この表から、次のようなラベルと出現数のペアを取得したいです。

X	Y	出現数
A	a	4
A	b	0
B	a	2
B	b	1

行の順番が入れ替わってもかまいません。

あわよくば、この表がjsonになってくれると嬉しいです。

[{X:A, Y:a, value:4},
 {...},
 ...
]

皆さんに伺いたいのは、次の3点です。

1. sample.tableから「ラベルと出現数のペア」をRで取得する方法
2. 「ラベルと出現数のペア」から上記のjsonをRで取得する方法
3. 上の(1)(2)をRでいっぺんに実行できる方法があれば、その方法

よろしくお願いします。

Answer 1

sample.tableから「ラベルと出現数のペア」をRで取得する方法

> as.data.frame(table(sample.df))
  X Y Freq
1 A a    4
2 B a    2
3 A b    0
4 B b    1

「ラベルと出現数のペア」から上記のjsonをRで取得する方法

Rで「こういうことが簡単にできるレディメイドなパッケージはないかな」と思ったときは、CRANを漁るのが定番です。

Comments

[YamadaMasahiro]

30 分も経たない内にご回答を頂いていたんですね。
どうもありがとうございました。

そうか、そういう風にすれば良かったんですね。
重ねて、ありがとうございます。