R语言根据ID合并数据行

如上图所示，想要合并 相同 visid_high 的pagename，顺序则是根据时间排列，该怎么实现呢

pagename<-c('A','B')
visid_high<-c(123,123)
data=data.frame(pagename,visid_high,stringsAsFactors = F)
names(data)<-c('a','b')

n = length(unique(data$b))
mydata = matrix(0,nrow=n,ncol=2)
for (i in (1:n)){
  dd = data[data$b==unique(data$b)[i],]
  aa = dd[1,]$a
  if (nrow(dd)>1) {
    for (j in (2:nrow(dd))) {
      aa=paste(aa,dd[j,]$a,sep='_')
    }
  }
  mydata[i,]=c(aa,unique(data$b)[i])
}

同求，不知道怎么解决

xuxinpeng45 发表于 2017-11-9 16:55
同求，不知道怎么解决

这个回答也想拿200币啊

zq19900310 发表于 2017-11-9 17:04
pagename

这个回答我给满分