x1<-c("2015-01-01","2015-01-02","2015-01-03","2015-01-04","2015-01-05","2015-01-06","2015-01-07","2015-01-08","2015-01-09","2015-01-10","2015-01-11")
x2<-c(1,5,8,9,8.1,10,11,7.4,6.2,4.8,12)
x3<-c(0.12,0.11,0.02,0.31,0.22,0.17,0.43,0.35,0.61,0.44, 0.29)
x<-data.frame(x1,x2,x3)
data.list<-list()
for(i in 6:10)
{
  data.list[[i-5]]<- filter(x,x2>=i)
}
data.list1<-list()
data.list1<-lapply(data.list,function(x) x$x3/sum(x$x3))
data.list[[1]]$x4<-data.list1[[1]]
但是这样的结果就是只有data.list[[1]]增添了一列，如果我想整个data.list都增添上x4,难道还要写个循环吗，有没有好一点的方法还有，如果再添加上
data.list2<-lapply(data.list,function(x) x$x2/sum(x$x2))data.listtemp<-list(data.list,data.list1)
data.listtemp<-list(data.listtemp,data.list2)
出来的结果是
[[1]]
[[1]][[1]]
[[1]][[1]][[1]]


[[1]][[2]]
[[1]][[2]][[1]]


[[2]]
[[2]][[1]]

可是我想要的格式是
[[1]]
[[1]][[1]]


[[2]]
[[2]][[1]]


[[3]]
[[3]][[1]]

这样的请问该如何改，如果每次出来的只是一个data.list,只能两个两个结合，而不能三个结合 list(data.list,data.list1,data.list2)