vlambda博客
学习文章列表

> data <- read.table(text="X Y Z+ ID12 2012-06 566+ ID1 2012-06 10239+ ID6 2012-06 524+ ID12 2012-07 2360+ ID1 2012-07 13853+ ID6 2012-07 2352+ ID12 2012-08 3950+ ID1 2012-08 14738+ ID6 2012-08 4104",header=TRUE)

## X Y Z## 1 ID12 2012-06 566## 2 ID1 2012-06 10239## 3   ID6   2012-06  524## 4  ID12   2012-07  2360## 5 ID1 2012-07 13853## 6 ID6 2012-07 2352## 7 ID12 2012-08 3950## 8 ID1 2012-08 14738## 9 ID6 2012-08 4104

> mydt2 = split(data, data$Y)

> mydt2[[1]]

## X Y Z## 1 ID12 2012-06 566## 2 ID1 2012-06 10239## 3 ID6 2012-06 524

> mydt2[["2012-06"]]

## X Y Z## 1 ID12 2012-06 566## 2 ID1 2012-06 10239## 3 ID6 2012-06 524

> mydt2[["2012-07"]]

## X Y Z## 4 ID12 2012-07 2360## 5 ID1 2012-07 13853## 6 ID6 2012-07 2352

> mydt2[["2012-08"]]

##     X       Y     Z## 7 ID12 2012-08 3950## 8 ID1 2012-08 14738## 9 ID6 2012-08 4104

> sapply(mydt2 , function(x) mean(x$Z))

## 2012-06 2012-07 2012-08 ## 3776.333 6188.333 7597.333

> for(i in 1:length(mydt2)) {+ assign(paste0("t.", i), mydt2[[i]])