Skip to content
Prev 378614 / 398502 Next

Extending my code

Hi Ogbos,
It may be easier to use strptime:

dta<-data.frame(year=rep(2005,5),month=rep("05",5),
 day=c("01","06","11","16","21"),
 hour=c(2,4,6,8,10),minute=rep(0,5),second=rep(0,5),value=1:5)
dta$Ptime<-strptime(paste(paste(dta$year,dta$month,dta$day,sep="-"),
 paste(dta$hour,dta$minute,dta$second,sep=":")),"%Y-%m-%d %H:%M:%S")
plot(dta$Ptime,dta$value)
text(strptime("2005-05-04 09:00:00","%Y-%m-%d %H:%M:%S"),4,"b")

Jim