添加缺少的列的R表

Question

鑑於這種樣本數據：

x = 1:12; names(x) = LETTERS[1:length(x)] 
y = c('A','C','E','F','J','E','K','L','E','L','F','A','E') 

當我做table(y)我得到：

A C E F J K L 
2 1 4 2 1 1 2 

如何展開，包括所有其他列零個條目標題在x？換句話說，我後的輸出是：

A C E F J K L B D G H I 
2 1 4 2 1 1 2 0 0 0 0 0 

（未分類如圖中所示，或排序，我不介意。）

Answer 1

使用發ctor：

table(factor(y, levels = names(x))) 
# A B C D E F G H I J K L 
# 2 0 1 0 4 2 0 0 0 1 1 2 

Answer 2

我不能想辦法一起做table，但是這是一個非常簡單的一行不顧：

sapply(names(x), function(name) {sum(y == name)}) 

輸出：

A B C D E F G H I J K L 
2 0 1 0 4 2 0 0 0 1 1 2