※ 引述《psinqoo (零度空間)》之銘言：
: 延伸問題
: 原始資料
: id year cost
: D 2012 120
: E 2013 300
: F 2014 200
: A 2015 155
: E 2011 200
: F 2014 160
: B 2013 165
: B 2015 185
: C 2012 350
: A 2014 310
: E 2014 225
: F 2015 175
: 想變成這樣子
: ID 12計數 13計數 14計數 15計數 2012金額 2013金額 2014金額 2015金額 總計數 總金額
: A
: B
: C
: D
: E
: F
: 雖然 資料量少 EXCEL 可以計算
: 我想知道R 是否也能用少量語法做到
# functions for packages
library(reshape2) # dcast
library(data.table) # fread, dcast.data.table
library(dplyr) # summarise, group_by, n, tbl_dt
library(magrittr) # %>%
data_dt = fread("
id year cost
D 2012 120
E 2013 300
F 2014 200
A 2015 155
E 2011 200
F 2014 160
B 2013 165
B 2015 185
C 2012 350
A 2014 310
E 2014 225
F 2015 175") %>% tbl_dt(FALSE)
data_dt %>% dcast.data.table(id ~ year, sum, value.var = "cost") %>%
left_join(
data_dt %>% group_by(id) %>%
summarise(total = sum(cost), num = n())
,"id")
# id 2011 2012 2013 2014 2015 total num
# 1 A 0 0 0 310 155 465 2
# 2 B 0 0 165 0 185 350 2
# 3 C 0 350 0 0 0 350 1
# 4 D 0 120 0 0 0 120 1
# 5 E 200 0 300 225 0 725 3
# 6 F 0 0 0 360 175 535 3
value.var可以不指定，他可以自動選擇，注意要用字串，別跟其他dplyr的function搞混
如果fun.aggregate(第三個input)沒指定就會用length
dcast.data.table 是data.table的method，data.frame直接用dcast就好，input是一樣