R语言提取每天每人最早的那条记录

相似文件 换一批

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

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

立即领取

感谢您参与论坛问题回答

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

+2 论坛币

2.xls (17.5 KB)

2016-8-25 11:12:57 上传

目的：1.去掉验证方式为2的数据记录；2.R语言提取每天每人最早的那条记录出来，最终形成一个EXCEL
R语言初学者，好久不用，脑袋又生锈了，感谢各位大神。

扫码加我 拉你入群

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

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

分享0 收藏0 回帖

关键词：R语言 R语言初学者 EXCEL exce 数据记录 初学者 记录

假设数据变量是df
library(dplyr)
df %>% tbl_df() %>%
       filter(验证方式 != 2) %>%
       mutate(date = as.Date(时间)) %>%
       group_by(姓名, date) %>%
       arrange(时间) %>%
       slice(1) %>%
       write.csv(file = "out.csv")

cheetahfly 发表于 2016-8-25 14:57
假设数据变量是df
library(dplyr)
df %>% tbl_df() %>%

group_by中好像要把姓名去掉吧。好像中文的变量名我的也无法识别。

1. df<-import("c:/Users/Johnmy/Desktop/2.xls")
   
2. names(df)<-c("time","no","name","vi","inout","event")
   
3. df %>% tbl_df() %>%
   
4.   filter(vi != 2) %>%
   
5.   mutate(date = as.Date(time)) %>%
   
6.   group_by(date) %>%
   
7.   top_n(-1,time)%>%write.csv(file="out.csv")

复制代码