延伸问题
原始资料
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 是否也能用少量语法做到
※ 引述《celestialgod (攸蓝)》之铭言：
: library(plyr)
: library(dplyr)
: set.seed(1)
: d <- data.frame(year = rep(2000:2002, each = 3),
: count = round(runif(9, 0, 20)))
: ddply(d, "year", summarise, tol = sum(count), count_year = n())
: # year tol count_year
: # 1 2000 23 3
: # 2 2001 40 3
: # 3 2002 45 3
: # 单纯用plyr做
: set.seed(1)
: d <- data.frame(year = rep(2000:2002, each = 3),
: count = round(runif(9, 0, 20)))
: d$ones = 1
: ddply(d, "year", summarise, tol = sum(count), count_year = sum(ones))
: # 用dplyr + magrittr
: library(dplyr)
: library(magrittr)
: set.seed(1)
: d <- data.frame(year = rep(2000:2002, each = 3),
: count = round(runif(9, 0, 20)))
: d %>% group_by(year) %>% summarise(tol = sum(count), count_year = n())
: ※ 引述《psinqoo (零度空间)》之铭言：
: : [问题类型]::
: : 程式咨询(我想用R 做某件事情，但是我不知道要怎么用R 写出来)
: : [软件熟悉度]:
: : 请把以下不需要的部份删除
: : 使用者(已经有用R 做过不少作品)
: : [问题叙述]:
: : 请简略描述你所要做的事情，或是这个程式的目的
: : set.seed(1)
: : d<- data.frame(year = rep(2000:2002, each = 3),3+ count = round(runif(9, 0, 20)))
: : print(d)
: : 资料长这样
: : year count
: : 1 2000 5
: : 2 2000 7
: : 3 2000 11
: : 4 2001 18
: : 5 2001 4
: : 6 2001 18
: : 7 2002 19
: : 8 2002 13
: : 9 2002 13
: : ddply(d, "year", summarise, tol = sum(count))
: : 会变这样子
: : year tol
: : 1 2000 23
: : 2 2001 40
: : 3 2002 45
: : 但我想让它变
: : year tol 计数
: : 1 2000 23 3
: : 2 2001 40 3
: : 3 2002 45 3
: : 3<-代表 2000 出现三次
: : 该如何改写?

dcast(data.fr, id~year)类似那样， 应该可以自己从例子延伸忘记推library(reshape2)， data.table有专用的function在data.table里面