R语言把重复字段分组统计

相似文件 换一批

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

送您一个全额奖学金名额~ !

立即领取

感谢您参与论坛问题回答

经管之家送您两个论坛币！

+2 论坛币

如图，想要把userID一列按1，2，3，4的形式存储，然后date一列只保存每一个用户最后一个日期与该用户第一个日期的差值，如右图的形式，请问这个怎么做？

扫码加我 拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

分享0 收藏0 回帖

关键词：R语言 UserID 最后一个 User seri 统计

刚好发了个类似的问题，用我那个思路应该可以做出来，但是看起来方法有点蠢，看别人有没有更好的办法吧

1. library(plyr)
   
2. df[,'date']<-as.Date(df[,'date'])
   
3. df<-split(df,df$userID)
   
4. date1<-lapply(df,function(date) tail(date,1))
   
5. date2<-lapply(df,function(date) head(date,1))
   
6. date1<-ldply(date1)
   
7. date2<-ldply(date2)
   
8. diff<-as.numeric(date1[,3]-date2[,3])

复制代码

diff就是你要的差值，然后随便与date1，date2中的一个合并，再去掉那些不要的列就行了

1. library(dplyr)
   
2. data<- data.frame(userid=c(1,1,1,1,2,2,2),date=as.Date(c("2013/1/13","2013/2/14","2013/1/25","2013/1/16","2013/4/17","2013/1/28","2013/1/11")))
   
3. result<- data %>% group_by(userid) %>% summarise(date=max(date)-min(date))

复制代码

如果只要数字
可以把最后一个改成

1. result<- data %>% group_by(userid) %>% summarise(date= as.numeric(max(date)-min(date)))

复制代码