[R] column of dates into time series
DispersionMap
frenchcr at btinternet.com
Sun Nov 29 17:59:27 CET 2009
? like this do you mean...
> dput(Weeks)
structure(c(370L, 342L, 333L, 317L, 308L, 298L, 289L, 269L, 265L,
257L, 254L, 253L, 252L, 249L, 243L, 243L, 239L, 239L, 236L, 234L,
233L, 232L, 230L, 230L, 229L, 229L, 229L, 228L, 227L, 226L, 225L,
222L, 218L, 217L, 216L, 215L, 215L, 214L, 214L, 214L, 212L, 211L,
209L, 209L, 208L, 207L, 205L, 205L, 204L, 204L, 203L, 202L, 202L,
201L, 200L, 199L, 197L, 197L, 197L, 197L, 195L, 194L, 194L, 194L,
193L, 193L, 193L, 193L, 192L, 191L, 190L, 190L, 190L, 189L, 189L,
189L, 189L, 189L, 189L, 188L, 188L, 187L, 187L, 186L, 183L, 182L,
182L, 181L, 180L, 180L, 180L, 179L, 179L, 179L, 178L, 178L, 177L,
177L, 177L, 13091L), .Names = c("2007-12-17", "2009-01-05", "2008-06-09",
"2008-12-08", "2009-02-09", "2008-12-01", "2008-05-12", "2009-02-16",
"2007-01-22", "2008-06-02", "2007-01-29", "2008-05-19", "2007-06-11",
"2008-06-16", "2008-05-26", "2008-06-23", "2008-11-03", "2009-01-12",
"2008-07-21", "2007-02-05", "2008-02-18", "2008-07-14", "2008-01-14",
"2008-10-27", "2007-12-10", "2008-03-17", "2008-08-04", "2008-11-24",
"2006-12-18", "2007-11-26", "2007-11-12", "2006-11-06", "2007-06-25",
"2006-04-03", "2008-01-07", "2006-04-10", "2008-07-28", "2006-05-08",
"2006-06-05", "2009-02-23", "2007-10-22", "2007-02-19", "2008-06-30",
"2009-02-02", "2007-06-04", "2007-12-03", "2006-11-13", "2007-09-03",
"2006-08-28", "2008-07-07", "2007-05-14", "2006-08-14", "2007-04-16",
"2006-07-31", "2008-12-15", "2006-09-11", "2006-06-12", "2008-01-21",
"2008-04-07", "2009-01-26", "2008-02-11", "2007-04-02", "2007-04-09",
"2008-04-21", "2006-08-07", "2007-11-19", "2008-04-14", "2008-05-05",
"2006-07-24", "2007-05-21", "2006-06-19", "2006-10-09", "2007-02-12",
"2007-03-26", "2007-07-09", "2007-11-05", "2008-02-25", "2008-09-08",
"2009-08-10", "2008-09-15", "2009-06-08", "2006-05-15", "2007-07-02",
"2009-06-01", "2008-11-17", "2006-06-26", "2009-06-29", "2007-08-06",
"2007-08-13", "2009-01-19", "2009-07-13", "2006-04-17", "2007-03-05",
"2007-12-24", "2006-10-16", "2008-08-11", "2006-05-29", "2006-11-27",
"2007-10-29", "(Other)"))
David Winsemius wrote:
>
> How about a representation of the data that one could so something
> with? By that I mean either by the "dump" method described in the
> Posting Guide or by using dput:
> > ttt <- c(1,2)
>
> > dput(ttt)
> c(1, 2)
>
> > dump("ttt", stdout() )
> ttt <-
> c(1, 2)
>
> Did you honestly expect anyone in their right mind to reassemble that
> data from the console text output???
>
> On Nov 29, 2009, at 10:46 AM, DispersionMap wrote:
>
>>
>> Thanks again David,
>>
>> Heres what happened:
>>
>>> Weeks<-summary(cut(data$Raised.Date, breaks="weeks"))
>>> Weeks
>> 2007-12-17 2009-01-05 2008-06-09 2008-12-08 2009-02-09 2008-12-01
>> 370 342 333 317 308 298
>> 2008-05-12 2009-02-16 2007-01-22 2008-06-02 2007-01-29 2008-05-19
>> 289 269 265 257 254 253
>> 2007-06-11 2008-06-16 2008-05-26 2008-06-23 2008-11-03 2009-01-12
>> 252 249 243 243 239 239
>> 2008-07-21 2007-02-05 2008-02-18 2008-07-14 2008-01-14 2008-10-27
>> 236 234 233 232 230 230
>> 2007-12-10 2008-03-17 2008-08-04 2008-11-24 2006-12-18 2007-11-26
>> 229 229 229 228 227 226
>> 2007-11-12 2006-11-06 2007-06-25 2006-04-03 2008-01-07 2006-04-10
>> 225 222 218 217 216 215
>> 2008-07-28 2006-05-08 2006-06-05 2009-02-23 2007-10-22 2007-02-19
>> 215 214 214 214 212 211
>> 2008-06-30 2009-02-02 2007-06-04 2007-12-03 2006-11-13 2007-09-03
>> 209 209 208 207 205 205
>> 2006-08-28 2008-07-07 2007-05-14 2006-08-14 2007-04-16 2006-07-31
>> 204 204 203 202 202 201
>> 2008-12-15 2006-09-11 2006-06-12 2008-01-21 2008-04-07 2009-01-26
>> 200 199 197 197 197 197
>> 2008-02-11 2007-04-02 2007-04-09 2008-04-21 2006-08-07 2007-11-19
>> 195 194 194 194 193 193
>> 2008-04-14 2008-05-05 2006-07-24 2007-05-21 2006-06-19 2006-10-09
>> 193 193 192 191 190 190
>> 2007-02-12 2007-03-26 2007-07-09 2007-11-05 2008-02-25 2008-09-08
>> 190 189 189 189 189 189
>> 2009-08-10 2008-09-15 2009-06-08 2006-05-15 2007-07-02 2009-06-01
>> 189 188 188 187 187 186
>> 2008-11-17 2006-06-26 2009-06-29 2007-08-06 2007-08-13 2009-01-19
>> 183 182 182 181 180 180
>> 2009-07-13 2006-04-17 2007-03-05 2007-12-24 2006-10-16 2008-08-11
>> 180 179 179 179 178 178
>> 2006-05-29 2006-11-27 2007-10-29 (Other)
>> 177 177 177 13091
>>
>>
>> As you can see its come out a little disorderly though.
>> I have to plot the number of events under each date in a time series.
>>
>> How do i order the dates and their counts?
>
> Well, you don't really have dates anymore, do you? You have week
> numbers with labels that look like dates. So ordering them is a piece
> of cake given the laws of mathematics.
>
> Weeks[order(Weeks)] #untested... no reproducible data
>
> Aggregating them into counts can be done with various functions,
> the most basic of which is table:
>
> table(Weeks)
>
> --
> David.
>
>>
>>
>>
>>
>>
>>
>> David Winsemius wrote:
>>>
>>>
>>> On Nov 29, 2009, at 7:52 AM, Linlin Yan wrote:
>>>
>>>> There is no year() function. Maybe you can try format() instead.
>>>>
>>>> On Sun, Nov 29, 2009 at 8:44 PM, DispersionMap <frenchcr at btinternet.com
>>>>> wrote:
>>>>>
>>>>> i have a column of dates in this format:
>>>>>
>>>>> data[,"Raised.Date"] <- as.Date(data[,"Raised.Date"], "%d/%m/%Y");
>>>>> data[1:10,"Raised.Date"]
>>>>> [1] "2006-07-07" "2006-07-07" "2006-04-03" "2006-04-03"
>>>>> "2006-04-03"
>>>>> "2006-04-03" "2006-04-03" "2006-04-03" "2006-04-03" "2006-04-03"
>>>>>
>>>>> I can turn them into months like this...
>>>>>
>>>>> Month<-months(data[,"Raised.Date"])
>>>>> Month[1:10]
>>>>> [1] "July" "July" "April" "April" "April" "April" "April" "April"
>>>>> "April"
>>>>> "April"
>>>>>
>>>>>
>>>>> But i also want to turn them into years (and also weeks later on),
>>>>> so tried
>>>>> this...
>>>
>>> library(chron)
>>> ?cut.dates
>>>
>>> The argument breaks has several options including one of c("days",
>>> "weeks", "months", "year")
>>>
>>>> dts <- Sys.Date() - 1:20
>>>
>>>> cut(dts, breaks="weeks")
>>> [1] 2009-11-23 2009-11-23 2009-11-23 2009-11-23 2009-11-23
>>> 2009-11-23 2009-11-16 2009-11-16 2009-11-16 2009-11-16
>>> [11] 2009-11-16 2009-11-16 2009-11-16 2009-11-09 2009-11-09
>>> 2009-11-09
>>> 2009-11-09 2009-11-09 2009-11-09 2009-11-09
>>> Levels: 2009-11-09 2009-11-16 2009-11-23
>>>
>>> I was a bit puzzled when I tried cut.dates as the function which
>>> throws a function not found error.
>>>
>>>
>>>>>
>>>>> Year<-year(data[,"Raised.Date"])
>>>>> Error: could not find function "year"
>>>>
>>>
>>>
>>> David Winsemius, MD
>>> Heritage Laboratories
>>> West Hartford, CT
>>>
>>> ______________________________________________
>>> R-help at r-project.org mailing list
>>> https://stat.ethz.ch/mailman/listinfo/r-help
>>> PLEASE do read the posting guide
>>> http://www.R-project.org/posting-guide.html
>>> and provide commented, minimal, self-contained, reproducible code.
>>>
>>>
>>
>> --
>> View this message in context:
>> http://n4.nabble.com/column-of-dates-into-time-series-tp930699p930744.html
>> Sent from the R help mailing list archive at Nabble.com.
>>
>> ______________________________________________
>> R-help at r-project.org mailing list
>> https://stat.ethz.ch/mailman/listinfo/r-help
>> PLEASE do read the posting guide
>> http://www.R-project.org/posting-guide.html
>> and provide commented, minimal, self-contained, reproducible code.
>
> David Winsemius, MD
> Heritage Laboratories
> West Hartford, CT
>
> ______________________________________________
> R-help at r-project.org mailing list
> https://stat.ethz.ch/mailman/listinfo/r-help
> PLEASE do read the posting guide
> http://www.R-project.org/posting-guide.html
> and provide commented, minimal, self-contained, reproducible code.
>
>
--
View this message in context: http://n4.nabble.com/column-of-dates-into-time-series-tp930699p930777.html
Sent from the R help mailing list archive at Nabble.com.
More information about the R-help
mailing list