R语言dataframe转换 ？

Question

图1：我现在有一个dataframe记录的是人们（ID）出行时间(Date)和出发站（ORI); 我现在想检测每个人每天第一次出行的始发站是哪里（不管ID在一天之内出行多少次 只留下每天的第一次出行记录）（做成图2的样子）请问这个代码改怎么写？ 需要两次for循环么 或者有其他更简便的方法 谢谢 

Answer 1

setwd("E://xuexi//bishe//datasets")
options(stringsAsFactors=F)
data <- read.table("ant-1.7.csv",header=FALSE,sep=",")
#####################################################################
# CE: model evaluation criteria for cost-effectiveness ( 5%, 10%, 15%, 20%, ..., 100%)
#####################################################################
#建一个列REL，对于列bug中>0的则REL为1，这么写报错 参数长度为0
#data
data$REL <- data$bug
for(i in 1:length(data$REL)){
if(data$bug[i] > 0)
data$REl[i] <- 1#参数长度为0