按列的創建基於組的數據幀的子集的矢量

假設我有此R數據幀：按列的創建基於組的數據幀的子集的矢量

   ts year month day 
1 1295234818000 2011  1 17 
2 1295234834000 2011  1 17 
3 1295248650000 2011  1 17 
4 1295775095000 2011  1 23 
5 1296014022000 2011  1 26 
6 1296098704000 2011  1 27 
7 1296528979000 2011  2 1 
8 1296528987000 2011  2 1 
9 1297037448000 2011  2 7 
10 1297037463000 2011  2 7 

dput(a) 
structure(list(ts = c(1295234818000, 1295234834000, 1295248650000, 
1295775095000, 1296014022000, 1296098704000, 1296528979000, 1296528987000, 
1297037448000, 1297037463000), year = c(2011, 2011, 2011, 2011, 
2011, 2011, 2011, 2011, 2011, 2011), month = c(1, 1, 1, 1, 1, 
1, 2, 2, 2, 2), day = c(17, 17, 17, 23, 26, 27, 1, 1, 7, 7)), .Names = c("ts", 
"year", "month", "day"), row.names = c(NA, 10L), class = "data.frame")

有一種方法來創建數據幀的向量，其中每一個是的一個子集獨特的年份，月份和日期組合的原創？理想情況下，我想找回數據幀DF1，DF2，DF3，DF4，DF5和DF6，按照這個順序，其中：

DF1：

   ts year month day 
1 1295234818000 2011  1 17 
2 1295234834000 2011  1 17 
3 1295248650000 2011  1 17

DF2：

4 1295775095000 2011  1 23

DF3：

5 1296014022000 2011  1 26

DF4：

6 1296098704000 2011  1 27

DF5：

7 1296528979000 2011  2 1 
8 1296528987000 2011  2 1

DF6：

9 1297037448000 2011  2 7 
10 1297037463000 2011  2 7

任何幫助，將不勝感激。

來源

2014-02-19 stackoverflowuser2010

使用當天的分裂功能。看看這篇文章：http://stackoverflow.com/a/16038343/3248346 –

此外，'互動'可能是有用的，如果我明白你想要的東西正確。像'split（a，交互（$ year，$ month，$ day，drop = T））''。 –

@alexis_laz - 'drop = TRUE'也可以作爲參數直接傳遞給'split'，所以這也可以工作：'with（a，split（a，list（year，month，day），drop = TRUE ））' – thelatemail

df <- df[order(df$year, df$month, df$day), ] 
df.list <- split(df, list(df$year, df$month, df$day), drop=TRUE) 
listnames <- setNames(paste0("DF", 1:length(df.list)), sort(names(df.list))) 
names(df.list) <- listnames[names(df.list)] 
list2env(df.list, envir=globalenv()) 

# > DF1 
#    ts year month day 
# 1 1.295235e+12 2011  1 17 
# 2 1.295235e+12 2011  1 17 
# 3 1.295249e+12 2011  1 17 
# > DF6 
#    ts year month day 
# 9 1.297037e+12 2011  2 7 
# 10 1.297037e+12 2011  2 7

編輯：

由於@thelatemail建議，同樣可以通過split正確排序來archieved簡單：

df.list <- with(df, split(df, list(day,month,year), drop=TRUE)) 
df.list <- setNames(df.list, paste0("DF",seq_along(df.list))) 
list2env(df.list, envir=globalenv())

來源

2014-02-19 23:58:02 lukeA

不需要所有的排序，只需改變'split' - 'df.list < - 用（a，split（a，list（day，month，year），drop = TRUE））'然後的順序按順序命名 - setNames（df.list，paste0（「DF」，seq_along（df.list）））' – thelatemail

@thelatemail好主意，謝謝。我做了一個編輯。 – lukeA

按列的創建基於組的數據幀的子集的矢量

回答

相關問題