就是想把这四列改成一个日期比如2014-12-01-01，这样的，可以么

lubridate::make_datetime()

既然你只想要日期的 就先把年月日的数据合并
date<-paste("year","/","month","/",“day",sep="")
合并完以后再按行合并
aggregate(data$"你要合并的数据名"~date,FUN=mean)

可以使用unite(data, col, …, sep = “_”, remove = TRUE) 函数进行合并
data：为数据框 col：被组合的新列名称 …：指定哪些列需要被组合 sep：组合列之间的连接符，默认为下划线 remove：是否删除被组合的列 wideunite<-unite(widedata, information, person, grade, score, sep= \"-\") wideunite information 1 Alex-2-78 2 Bob-3-89 3 Cathy-4-88