# Subset, period of days like one after another in a group

4 messages
Open this post in threaded view
|

## Subset, period of days like one after another in a group

 CONTENTS DELETED The author has deleted this message.
Open this post in threaded view
|

## Re: Subset, period of days like one after another in a group

 Hi, #if 'dat` is the dataset May be this helps. lst1 <- setNames(split(dat, cumsum(c(TRUE,diff(dat\$date)!=1))),LETTERS[1:4]) A.K. On Tuesday, May 20, 2014 12:17 PM, Christoph Schlächter <[hidden email]> wrote: Dear all, I have a subset of a data frame with 3 columns and a few rows. The columns are “date” [%Y %m %d], “mon” [%b]  and “wea” for type of weather with “dw” dry weather “rw” rainy weather. Here it is as a list: structure(list(date = structure(c(15765, 15766, 15767, 15768, 15769, 15770, 15771, 15772, 15773, 15780, 15781, 15782, 15788, 15789, 15790, 15791, 15792, 15795), class = "Date"), mon = c("Mrz", "Mrz", "Mrz", "Mrz", "Mrz", "Mrz", "Mrz", "Mrz", "Mrz", "Mrz", "Mrz", "Mrz", "Mrz", "Mrz", "Mrz", "Mrz", "Mrz", "Mrz"), wea = structure(c(1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L), .Label = c("dw", "rw"), class = "factor")), .Names = c("date", "mon", "wea"), row.names = c(1156L, 1157L, 1158L, 1159L, 1160L, 1161L, 1162L, 1163L, 1164L, 1171L, 1172L, 1173L, 1179L, 1180L, 1181L, 1182L, 1183L, 1186L), class = "data.frame") I want to get a period of days when it is dry weather and the difference between days should be not more than one day. For this example I need something to get: Maybe as Group: A: 2013-03-01 Mrz  dw 2013-03-02 Mrz  dw 2013-03-03 Mrz  dw 2013-03-04 Mrz  dw 2013-03-05 Mrz  dw 2013-03-06 Mrz  dw 2013-03-07 Mrz  dw 2013-03-08 Mrz  dw 2013-03-09 Mrz  dw B 2013-03-16 Mrz  dw 2013-03-17 Mrz  dw 2013-03-18 Mrz  dw C 2013-03-24 Mrz  dw 2013-03-25 Mrz  dw 2013-03-26 Mrz  dw 2013-03-27 Mrz  dw 2013-03-28 Mrz  dw D 2013-03-31 Mrz  dw How can I achive this. I really have only very few ideas like cast() or melt() or both but i have trouble with the date format. Thanks in advance. <[hidden email]> <[hidden email]>     [[alternative HTML version deleted]] ______________________________________________ [hidden email] mailing list https://stat.ethz.ch/mailman/listinfo/r-helpPLEASE do read the posting guide http://www.R-project.org/posting-guide.htmland provide commented, minimal, self-contained, reproducible code. ______________________________________________ [hidden email] mailing list https://stat.ethz.ch/mailman/listinfo/r-helpPLEASE do read the posting guide http://www.R-project.org/posting-guide.htmland provide commented, minimal, self-contained, reproducible code.