r - Rのテーブルにレベルを強制的に含めるにはどうすればよいですか?

Question

R のtable関数に行または列がデータに含まれていない場合でも強制的に含める方法はありますか? 例えば、

data.1 <- c(1, 2, 1, 2, 1, 2, 4)
data.2 <- c(1, 4, 3, 3, 3, 1, 1)

table(data.1, data.2)

戻り値

      data.2
data.1  1 3 4
      1 1 2 0
      2 1 1 1
      4 1 0 0

行に 3 が欠落しており、列に 2 が欠落しています。これらはデータに表示されないためです。

追加の行とゼロの列を正しい場所に強制的に挿入し、代わりに次を返す簡単な方法はありますか?

      data.2
data.1  1 2 3 4
      1 1 0 2 0
      2 1 0 1 1
      3 0 0 0 0
      4 1 0 0 0