我现在想2004.2005为一个新列，2006,2007为另一列不知道可以解一下

我有一下数据

我现在想2004.2005为一个新列，2006,2007为另一列不知道可以解一下吗

可以试试如下代码：

getwd()
library(reshape2)
library(tidyr)
a<-data.frame(frear=c(2004,2005,2006,2007,2006,2007),tic=c('ALO.2','ALO.2','ALO.2','ALO.2','ASA','ASA'),ni=c(-314.737,133.769,82.544,-13.581,NA,97.295))
a<-data.frame(t(a))
print(a)
b<-unite(a,"2004.2005",c('X1','X2'),sep=',',remove=T)
c<-unite(b,"2006.2007",c('X3','X4','X5','X6'),sep=',',remove=T)
print(c)