[R] Extending my code

Sun Feb 17 02:41:29 CET 2019

Dear Jeff,
My error please and sorry about that.

 Not "1960-05-04 09:00:00".
I meant to write as.Date("2005-03-13"),-9,"b") and "2005-03-13 09:00:00".
My problem is the additional time factor.

I can text anywhere on my plot when dealing with yyyy/mm/dd but I can't
handle the new yyyy/mm/dd/hh/mm/ss.

Thank you for your patience.

Best regards
Ogbos.

I have no idea how text(as.Date("2005-03-13"),-9,"b") would mark your plot
> anywhere near 1960-05-04 09:00:00. Perhaps someone else does. Or perhaps
> you can provide an actual minimal working example of what you had working
> before you changed to POSIXct.
>
> On February 16, 2019 1:08:38 PM PST, Ogbos Okike <giftedlife2014 using gmail.com>
> wrote:
> >Dear Jeff,
> >One more problem please.
> >
> >When I used as.Date(ISOdate(dta$year, dta$month, dta$day,dta$hour)) to
> >handle date, I could use text(as.Date("2005-03-13"),-9,"b") to label
> >my plot.
> >
> >Now that I am using as.POSIXct(ISOdatetime(year,
> >month,day,hour,0,0))), can you please tell me how to text "b" on the
> >point corresponding with 1960-05-04 09:00:00 on my plot.
> >
> >Many thanks for your extra time.
> >
> >Best wishes
> >Ogbos
> >
> >On Fri, Feb 15, 2019 at 8:25 AM Ogbos Okike <giftedlife2014 using gmail.com>
> >wrote:
> >>
> >> Dear Jeff,
> >>
> >> Please hold.
> >> It is begging to work. There was an error somewhere. One ")" is
> >> missing and as I went back to check the lines one by one with cursor,
> >> I stubbed on non matching bracket.
> >>
> >> I completed, run the code again and got some result.
> >>
> >> Will get back to you once I am through.
> >>
> >> Thanks in a hurry.
> >> Best regards
> >> Ogbos
> >>
> >>
> >> On Fri, Feb 15, 2019 at 8:15 AM Ogbos Okike
> ><giftedlife2014 using gmail.com> wrote:
> >> >
> >> > Dear Jeff,
> >> >
> >> > Thank you so much.
> >> >
> >> > I ran the code but got an error message. I then try to  run them
> >line by line.
> >> >
> >> > The problem is in:
> >> > dta$datetime <- with( dta, as.POSIXct(ISOdatetime(year,
> >month,day,hour,0,0)))
> >> > Error in with(dta, as.POSIXct(ISOdatetime(year, month, day, hour,
> >0, 0))) :
> >> >   object 'dta' not found
> >> >
> >> > Thanks for another time.
> >> > Best
> >> > Ogbos
> >> >
> >> > On Fri, Feb 15, 2019 at 7:51 AM Jeff Newmiller
> ><jdnewmil using dcn.davis.ca.us> wrote:
> >> > >
> >> > > The Date class is not designed to handle time... you need to use
> >the ISOdatetime function and convert to POSIXct instead of Date. Just
> >be sure to set your timezone to some appropriate value before you
> >convert any times into datetime types.
> >> > >
> >> > > Sys.setenv( TZ="GMT" )
> >> > > # avoid using `data` as that is the name of a base R function
> >> > > dta <- read.table("CALG.txt", col.names = c("year", "month",
> >"day", "hour", "counts"))
> >> > > dta$year <- with( dta, ifelse(year < 50, year + 2000, year +
> >1900)
> >> > > dta$datetime <- with( dta, as.POSIXct(ISOdatetime(year,
> >month,day,hour,0,0)))
> >> > >
> >> > > I don't see why you feel obliged to copy the timestamp out of the
> >data frame into x, but that is your business.
> >> > >
> >> > > Appropriate timezone values can be reviewed with the OlsonNames()
> >function.
> >> > >
> >> > >
> >> > > On February 14, 2019 10:29:58 PM PST, Ogbos Okike
> ><giftedlife2014 using gmail.com> wrote:
> >> > > >Dear List,
> >> > > >I have a simple code with which I convert year, month, and day
> >to a
> >> > > >date format.
> >> > > >My data looks like:
> >> > > >67 01 26    18464
> >> > > >67 01 26    18472
> >> > > >67 01 26    18408
> >> > > >67 01 26    18360
> >> > > >67 01 26    18328
> >> > > >67 01 26    18320
> >> > > >67 01 26    18296
> >> > > >
> >> > > >while my code is:
> >> > > >
> >> > > >
> >> > > >data <- read.table("CALG.txt", col.names = c("year", "month",
> >"day",
> >> > > >"counts"))
> >> > > > new.century <- data$year < 50
> >> > > >data$year <- ifelse(new.century, data$year + 2000, data$year +
> >1900)
> >> > > >data$date <- as.Date(ISOdate(data$year, data$month, data$day))
> >> > > >x = data$date
> >> > > > y = data$counts
> >> > > >
> >> > > >I now wish to extend this code to be able to include hour for
> >another
> >> > > >data of the format:
> >> > > >05 01 01 00    4009
> >> > > >05 01 01 01    3969
> >> > > >05 01 01 02    3946
> >> > > >05 01 01 03    3975
> >> > > >05 01 01 04    3960
> >> > > >05 01 01 05    3974
> >> > > >05 01 01 06    3971
> >> > > >05 01 01 07    3970
> >> > > >That is, I now would like to include hour in:
> >> > > >data <- read.table("CALG.txt", col.names = c("year", "month",
> >"day",
> >> > > >"counts")).
> >> > > >
> >> > > >I am aware there are many other way of conversion but I have a
> >> > > >specific interest here. This code is a preamble to a larger code
> >and
> >> > > >changing it to another format other than what I have will not be
> >> > > >compatible with the general code. Or will rather be difficult
> >for me
> >> > > >to get another format fit into my main code.
> >> > > >
> >> > > >So if you would be kind enough to assist me to run the
> >read.table in
> >> > > >the format:
> >> > > >
> >> > > >data <- read.table("CALG.txt", col.names = c("year", "month",
> >> > > >"day","hour", "counts"))
> >> > > >
> >> > > >and then run the rest as:
> >> > > >
> >> > > >new.century <- data$year < 50
> >> > > >data$year <- ifelse(new.century, data$year + 2000, data$year +
> >1900)
> >> > > >data$date <- as.Date(ISOdate(data$year, data$month,
> >> > > >data$day,data$hour))
> >> > > >x = data$date
> >> > > >
> >> > > >such that year, month, day and hour will be stored in x,
> >> > > >
> >> > > >I will be very thankful.
> >> > > >
> >> > > >Thank you so much for your kind assistance.
> >> > > >Best regards
> >> > > >Ogbos
> >> > > >
> >> > > >______________________________________________
> >> > > >R-help using r-project.org mailing list -- To UNSUBSCRIBE and more,
> >see
> >> > > >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.
> >> > >
> >> > > --
> >> > > Sent from my phone. Please excuse my brevity.
>
> --
> Sent from my phone. Please excuse my brevity.
>

	[[alternative HTML version deleted]]