[R] more dates and data frames

[Bill.Venables at csiro.au]

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.