At one time (version 1.7), the code below used to work for converting and
extracting based on the Date Time. In version 1.8.1, something changed I
know, but I cannot for the life of me figure out what...
Data:
UserName,RequestDate,PO,OrderDate,ExpDelivDate,Vendor,Total
"Woody, Jim",12/19/2002,AP15063,1/7/2003,2/10/2003,Ames ,8570
"Harrold, Paul",12/31/2002,AP15083,1/9/2003,1/10/2003,Ryan ,1039.5
"Vo, Hoang",12/27/2002,AP15055,1/6/2003,1/13/2003,TIDEA,1005.36
"Way, Shawn",1/2/2003,AP15043,1/2/2003,1/9/2003,JS ,1000
"Vo, Hoang",1/7/2003,SO17440,1/8/2003,12/31/2003,USFi-,3705
"Harrold, Paul",1/10/2003,AP15122,1/13/2003,1/14/2003,FishM,65.06
Old Code:
library(lattice)
data <- read.csv("h:\\list3.csv",header=TRUE)
data2 <-
data.frame(Name=data$UserName,Date=data$RequestDate,Vendor=data$Vendor,Cost=
data$Total)
data2$Date <- strptime(as.character(data2$Date),format="%m/%d/%Y")
start <- strptime(c("1/01/2003"),format="%m/%d/%Y")
end <- strptime(c("12/31/2003"),format="%m/%d/%Y")
data3 <- data2[data2$Date >= start & data2$Date <= end,]
lset(col.whitebg())
xyplot(Cost~as.POSIXct(Date)|Name,data=data3,
xlab="Date",
ylab="PO Cost($)",
ylim=c(0,10000),
panel= function(x,y){
a <- mean(y)
panel.grid(h=-1,v=2)
panel.xyplot(x,y)
panel.abline(h=a,col="red")
}
)
The error I get is from line 4,
> data2$Date <- strptime(as.character(data2$Date),format="%m/%d/%Y")
Error in "$<-.data.frame"(`*tmp*`, "Date", value =
strptime(as.character(data2$Date), :
replacement has 9 rows, data has 230
This used to work for replacing the dates with POSIX values...
Also of interest is the extraction for data3, is this the correct method for
extraction?
What I'm looking at is the spending habits of individuals...
Thanks for your help...
_____
"Don't rush me, you rush a miracle, you get a rotten miracle."
-Miracle Max, The Princess Bride
_____
Shawn Way, PE Tanox, Inc.
Engineering Manager 10301 Stella Link
[EMAIL PROTECTED] Houston, TX 77025
______________________________________________
[EMAIL PROTECTED] mailing list
https://www.stat.math.ethz.ch/mailman/listinfo/r-help
PLEASE do read the posting guide! http://www.R-project.org/posting-guide.html
