總結一個排序因子

Question

我在包含排序因子的數據框中有一列。我通過對數據進行融合，然後投射，總結每個因子列中的條目數量。到現在爲止還挺好。但是我需要包含沒有行的因素，以便彙總的數據顯示所有可能的因素，而不僅僅是所利用的因素。

數據幀：

> str(instats) 
'data.frame': 75 obs. of 5 variables: 
$ incident  : Factor w/ 75 levels "INC000000503771",..: 1 2 3 4 5 6 7 8 9 10 ... 
$ submit.date :Class 'Date' num [1:75] 14907 14907 14907 14907 14907 ... 
$ resolved.date:Class 'Date' num [1:75] 14910 14907 14910 14907 14907 ... 
$ closed.date :Class 'Date' num [1:75] 14913 14910 14913 14910 14910 ... 
$ status  : Ord.factor w/ 6 levels "Opened"<"Resolved Pending Customer Action"<..: 5 5 5 5 5 5 5 5 5 5 ... 
> 

什麼我迄今所做的：

> df.melt <- melt(instats,id=c('status'),measure=c('incident')) 
> cast(df.melt, status ~ .,length) 

，我也得到：

      status (all) 
1 Resolved Pending Customer Action 11 
2    Pending xxx Action  3 
3    Pending yyy Action  7 
4       Closed 54 

我要的是：

      status (all) 
1       Opened  0 
2 Resolved Pending Customer Action 11 
3    Pending xxx Action  3 
4    Pending yyy Action  7 
5       Closed 54 
6       Canceled  0 

我明白爲什麼熔化/鑄造會給我它所做的結果。但我怎麼能做到這一點，以獲得我想要的結果？

Answer 1

你可以只使用table

instats <- data.frame(status=sample(letters[1:5],75,TRUE)) 
instats$status <- factor(instats$status,levels=letters[1:6]) 

table(instats$status) 
as.data.frame(table(instats$status)) 

# or summary 
summary(instats$status)