####以package:plyr中的三维数据ozone为例说明
###################
library(plyr)
library(tidyr)
data(ozone)
#####
adFun<-function(mx) {
mxda<-as.data.frame(mx)
mxda$lat<-rownames(mx)
mxda<-gather(mxda,key=long,value=ozvalue,-lat)
mxda
}
####
myda<-adply(ozone,3,.fun=adFun)
myda<-transform(myda,time=as.character(time)
####