Thank you all for your help.
My data has mixed format such as
%m/%d/%y,%d/%m/%y,%m-%d-%y,%d-%m-%y etc. and
the library (anytime) handles it very well!!
Thank you again.
On Tue, Jan 21, 2020 at 5:28 AM Rui Barradas <ruipbarra...@sapo.pt> wrote:
>
> Hello,
>
> Inline.
>
> Às 09:22 de 21/01/20, Chris Evans escreveu:
> > I think that might risk giving the wrong date for a date like 1/3/1990
> > which I think in Val's data is mdy data not dmy.
> >
> > As I read the data, where the separator is "/" the format is mdy and where
> > the separator is "-" it's dmy.
>
> Maybe you're right. But I really don't know, in my country (Portugal) we
> use "/" and dmy. Anyway, what's important is that the OP must have a
> much better understanding of the data, the way it is posted is likely to
> cause errors. See, for instance, the expected output with numbers
> greater than 12 in the 1st and 2nd places, depending on the row.
>
>
> So I would
> > go for:
> >
> > library(lubridate)
> > DFX$dnew[grep("-", DFX$ddate, fixed = TRUE)] <- dmy(DFX$ddate[grep("-",
> > DFX$ddate, fixed = TRUE)])
> > DFX$dnew[grep("/", DFX$ddate, fixed = TRUE)] <- mdy(DFX$ddate[grep("/",
> > DFX$ddate, fixed = TRUE)])
> > DFX <- DFX[!is.na(DFX$dnew),]
> > DFX
> >
> > name ddate dnew
> > 1 A 19-10-02 2002-10-19
> > 2 B 22-11-20 2020-11-22
> > 3 C 19-01-15 2015-01-19
> > 4 D 11/19/2006 2006-11-19
> > 5 F 9/9/2011 2011-09-09
> > 6 G 12/29/2010 2010-12-29
> >
> > But I am so much in awe of Rui's skills with R, and that of most of the
> > regular commentators here, that I submit
> > this a little nervously!
>
> Thanks!
>
> Rui Barradas
> >
> > Many thanks to all who teach me so much here, lovely, if I am correct, to
> > contribute for a change!
> >
> > Chris
> >
> >
> > ----- Original Message -----
> >> From: "Rui Barradas" <ruipbarra...@sapo.pt>
> >> To: "Val" <valkr...@gmail.com>, "r-help@R-project.org
> >> (r-help@r-project.org)" <r-help@r-project.org>
> >> Sent: Tuesday, 21 January, 2020 00:40:29
> >> Subject: Re: [R] Mixed format
> >
> >> Hello,
> >>
> >> The following strategy works with your data.
> >> It uses the fact that most dates are in one of 3 formats, dmy, mdy, ymd.
> >> It tries those formats one by one, after each try looks for NA's in the
> >> new column.
> >>
> >>
> >> # first round, format is dmy
> >> DFX$dnew <- lubridate::dmy(DFX$ddate)
> >> na <- is.na(DFX$dnew)
> >>
> >> # second round, format is mdy
> >> DFX$dnew[na] <- lubridate::mdy(DFX$ddate[na])
> >> na <- is.na(DFX$dnew)
> >>
> >> # last round, format is ymd
> >> DFX$dnew[na] <- lubridate::ymd(DFX$ddate[na])
> >>
> >> # remove what didn't fit any format
> >> DFX <- DFX[!is.na(DFX$dnew), ]
> >> DFX
> >>
> >>
> >> Hope this helps,
> >>
> >> Rui Barradas
> >>
> >> Às 22:58 de 20/01/20, Val escreveu:
> >>> Hi All,
> >>>
> >>> I have a data frame where one column is a mixed date format,
> >>> a date in the form "%m-%d-%y" and "%m/%d/%Y", also some are not in date
> >>> format.
> >>>
> >>> Is there a way to delete the rows that contain non-dates and
> >>> standardize the dates in one date format like %m-%d-%Y?
> >>> Please see my sample data and desired output
> >>>
> >>> DFX<-read.table(text="name ddate
> >>> A 19-10-02
> >>> B 22-11-20u
> >>> C 19-01-15
> >>> D 11/19/2006
> >>> F 9/9/2011
> >>> G 12/29/2010
> >>> H DEX",header=TRUE)
> >>>
> >>> Desired output
> >>> name ddate
> >>> A 19-10-2002
> >>> B 22-11-2020
> >>> C 19-01-2015
> >>> D 11-19-2006
> >>> F 09-09-2011
> >>> G 12-29-2010
> >>>
> >>> Thank you
> >>>
> >>> ______________________________________________
> >>> R-help@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.
> >>>
> >>
> >> ______________________________________________
> >> R-help@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.
> >
______________________________________________
R-help@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.
