※ 引述《piggood (成为有品味的男人)》之铭言：
: ※ 引述《ntpuisbest (阿龙)》之铭言：
: : library(COUNT)
: : data(rwm5yr)
: : medical<-rwm5yr
: : https://imgur.com/xLr3I5j
: : 我的目的是像这样
: : 同个id是同个人
: : 我想要把资料整理成
: : 去计算同个人的 总共 的看病次数
: : 其他的column 就用 同个id最后的 资讯
: : 最后要整理成
: : id docvis age
: : 1 1 56
: : 2 4 48
: : 3 13 62
: : 请问有套件可以做到这件事情吗
: : 还是怎么写这个循环呢
: 目前想到的方式
: 但也不是很简洁
: 不过还能用
: # 先建立一个 medical1 ，除了 docvis 和 hhninc 之外，都取最后一笔观察值的资料
: medical1 <- medical %>%
: group_by(id) %>%
: summarise_at(vars(-docvis,-hhninc), last)
: # 再建 medical2 专门处理 docvis 跟 hhninc 的各别需求
: medical2 <- medical %>%
: group_by(id) %>%
: summarise(sum(docvis), mean(hhninc))
: # 合并在一起
: medical3 <- data.frame(medical2,medical1)
我都比较建议用data.table的方式，简洁又快。
library(data.table)
setDT(medical)
medical <- medical[,docvis.sum:=sum(docvis), by = "id"][,hhninc.mean:=mean(hhninc), by =
"id"][, .SD[.N], by = "id"]
上面是data.table特殊chaining方式，若要考虑易读性可以分3行。
medical[,docvis.sum:=sum(docvis), by = "id"]
medical[,hhninc.mean:=mean(hhninc), by = "id"]
medical <- medical[, .SD[.N], by = "id"]
或是pipe的方式。
medical <- medical[,docvis.sum:=sum(docvis), by = "id"] %>%
.[,hhninc.mean:=mean(hhninc), by = "id"] %>%
.[, .SD[.N], by = "id"]