R语言，data.frame/matrix数据重新组织

原始数据格式：

目标数据格式：

关键点：

1. 时间相关字段的生成，原始数据格式中一天只有一行，现在需要八行
2. 将变量从行转换为列

p.s 

Wind.data为上述原始数据

new.force.data为上述目标数据

key1:

new.force.data<-apply(Wind.data[,1:3],2,function(x){
    rep(x,each = 8)
  })

解释：

rep()函数的功能在于重复，each属性表示对每个元素重复each次，而times属性表示重复整个vector。区别如下：

rep(c(1,2,3), each = 2)  ## 1,1,2,2,3,3
rep(c(1,2,3), times = 2) ## 1,2,3,1,2,3

但是，rep()是针对向量的，此处原始数据为matrix or data.frame，因为其数据组织方式问题（...具体未知），得不到想要的结果，此处使用apply()函数:

apply(data,margin,fun,...)，margin可选为1（行）或者2（列）

key2: