如何在R中的範圍上投射聚合值並用零填充缺失的範圍值

Question

如何在R中的範圍上投射聚合值並用零填充缺失的範圍值。

df <- data.frame (year = sample(c(2014:2016), 100, replace=T), 
        month = sample(c(1:5,8:12), 100, replace=T), 
        int = 1) 

# install.packages("reshape") 
library(reshape) 
month <- cast(df, year ~ month, sum, value = 'int') 
month 

輸出：

# output 
    year 1 2 3 4 5 8 9 10 11 12 
1 2014 6 5 4 3 4 4 3 3 9 2 
2 2015 4 9 1 3 1 4 3 3 2 3 
3 2016 0 3 3 4 4 1 4 1 3 1 

如何設置缺少個月零？結果應該是這樣的：

# output 
    year 1 2 3 4 5 >6< >7< 8 9 10 11 12 
1 2014 6 5 4 3 4 0 0 4 3 3 9 2 
2 2015 4 9 1 3 1 0 0 4 3 3 2 3 
3 2016 0 3 3 4 4 0 0 1 4 1 3 1 

有沒有辦法通過強制轉換功能來做到這一點？

Answer 1

我們可以使用tidyverse到「月」轉換爲factor指定爲1:12 levels，獲得由「年」，「月」進行分組「廉政」的sum和spread以「寬」格式drop=FALSE

library(tidyverse) 
df %>% 
    group_by(year, month = factor(month, levels = 1:12)) %>% 
    summarise(int = sum(int)) %>% 
    spread(month, int, drop = FALSE, fill = 0) 
#  year `1` `2` `3` `4` `5` `6` `7` `8` `9` `10` `11` `12` 
#* <int> <dbl> <dbl> <dbl> <dbl> <dbl> <dbl> <dbl> <dbl> <dbl> <dbl> <dbl> <dbl> 
#1 2014  3  2  2  1  2  0  0  4  1  5  5  6 
#2 2015  2  7  5  2  4  0  0  5  3  3  4  5 
#3 2016  0  4  5  5  2  0  0  3  2  1  5  2 

---

或者在一個單一的線路

library(data.table) 
dcast(setDT(df), year ~ factor(month, levels = 1:12), sum, drop = FALSE) 
# year 1 2 3 4 5 6 7 8 9 10 11 12 
#1: 2014 3 2 2 1 2 0 0 4 1 5 5 6 
#2: 2015 2 7 5 2 4 0 0 5 3 3 4 5 
#3: 2016 0 4 5 5 2 0 0 3 2 1 5 2 

使用

或者與xtabs從base R

xtabs(int~year+factor(month, levels = 1:12), df)