ctrl + y 可以删除一整行，请将不需要的内容删除
文章分类提示:
- 问题: 当你想要问问题时，请使用这个类别
[问题类型]:
程式咨询(我想用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 出现三次
该如何改写?
[程式范例]:
张贴能够重现错误的程式码，可以帮助版友更快的帮你解决问题
[环境叙述]:
[关键字]:
plyr
选择性，也许未来有用