Re: [R] more dates and data frames

From: <Bill.Venables_at_csiro.au>
Date: Wed, 09 Jun 2010 08:39:57 +1000

Here is one way

...

DF4 <- cast(formula=Date~V2,data=DF3,value="X1",fill=0)

d <- with(DF4, seq(min(Date), max(Date), by = 1)) ### full set

m <- as.Date(setdiff(d, DF4$Date))                 ### missing dates
if(length(m) > 0) {
	extras <- cbind(data.frame(Date = m), cat = 0, dog = 0, tree = 0)
	DF4 <- rbind(DF4, extras)
	rm(extras)
	DF4 <- DF4[order(DF4$Date), ]

}
rm(d, m) ### clean up
...

Bill.

-----Original Message-----
From: r-help-bounces_at_r-project.org [mailto:r-help-bounces_at_r-project.org] On Behalf Of Erin Hodgess Sent: Wednesday, 9 June 2010 5:52 AM
To: R help
Subject: [R] more dates and data frames

Dear R People:

So thanks to your help, I have the following:

> dog3.df <- read.delim("c:/Users/erin/Documents/dog1.txt",header=FALSE,sep="\t")
> dog3.df

         V1 V2

1  1/1/2000  dog
2  1/1/2000  cat
3  1/1/2000 tree
4  1/1/2000  dog
5  1/2/2000  cat
6  1/2/2000  cat
7  1/2/2000  cat
8  1/2/2000 tree
9  1/3/2000  dog
10 1/3/2000 tree
11 1/6/2000  dog
12 1/6/2000  cat

> dog3.df$V1 <- as.Date(dog3.df$V1,"%m/%d/%Y")
> DF3 <- with(dog3.df,data.frame(Date=V1,V2,1))
> library(reshape)
> cast(formula=Date~V2,data=DF3,value="X1",fill=0)
Aggregation requires fun.aggregate: length used as default

        Date cat dog tree

1 2000-01-01   1   2    1
2 2000-01-02   3   0    1
3 2000-01-03   0   1    1
4 2000-01-06   1   1    0

>

So far, so good. My new question: Can I fill in the days which are "missing"; i.e., 2000-01-04 and 2000-01-05, with zeros for each set, please?

thanks,
Erin

-- 
Erin Hodgess
Associate Professor
Department of Computer and Mathematical Sciences
University of Houston - Downtown
mailto: erinm.hodgess_at_gmail.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.

______________________________________________
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.
Received on Tue 08 Jun 2010 - 22:43:14 GMT

Archive maintained by Robert King, hosted by the discipline of statistics at the University of Newcastle, Australia.
Archive generated by hypermail 2.2.0, at Tue 08 Jun 2010 - 22:50:28 GMT.

Mailing list information is available at https://stat.ethz.ch/mailman/listinfo/r-help. Please read the posting guide before posting to the list.

list of date sections of archive