Преобразование символа в дату в R

Question

Я относительно новичок в R, но это первый раз, когда мне приходилось иметь дело с преобразованиями даты. Я прочитал свои данные из CSV (используя read.table()), но я выделил данные, чтобы выделить мою проблему. При чтении в R поле Date является символом.

Просто, большинство моих дат заворачиваются правильно, за исключением нескольких случаев. Пример ниже, мы надеемся, покажет вам, что происходит.

# my attempt to coerce the date -- uses the stringr package 
prods.all$Date2 <- as.Date(str_sub(prods.all$Date, 1, 
       str_locate(prods.all$Date, " ")[1]-1), 
       "%m/%d/%Y") 

# grab two rows to highlight my issue 
temp <- prods.all[c(1925:1926), c(1,8)] 

> temp 
        Date  Date2 
1925 10/9/2009 0:00:00 2009-10-09 
1926 10/15/2009 0:00:00 0200-10-15 

Как вы можете видеть, год некоторых из дат неточно. Образец, кажется, возникает, когда день двойной цифры.

Я просмотрел несколько книг и попытался Google лучше, но все кажется, что мои данные не корректно отформатированы на входе.

Учитывая, насколько силен R, я считаю, что есть очень простой способ заставить мою колонку быть действительными датами и что я не замечаю очень очевидного решения.

Любая помощь, которую вы можете предоставить, будет принята с благодарностью.

Answer 1

Возможно, вы можете быть слишком сложными, есть ли причина, по которой вам нужен пакет stringr?

df <- data.frame(Date = c("10/9/2009 0:00:00", "10/15/2009 0:00:00")) 
as.Date(df$Date, "%m/%d/%Y %H:%M:%S") 

[1] "2009-10-09" "2009-10-15"

В более общем плане, и если вам нужен компонент времени, а также, использование strptime:

strptime(df$Date, "%m/%d/%Y %H:%M:%S") 

Я предполагаю, что ваши фактические данные могут смотреть на частичные результаты, которые вы даете.

Answer 2

Самый простой способ заключается в использовании lubridate:

library(lubridate) 
prods.all$Date2 <- mdy(prods.all$Date2) 

Эта функция автоматически возвращает объекты класса POSIXct и будет работать либо с факторами или символами.

Answer 3

library(lubridate) если ваш формат даты, как это '04/24/2017 05: 35: 00'then изменить его, как показано ниже prods.all$Date2<-gsub("/","-",prods.all$Date2) затем изменить формат даты parse_date_time(prods.all$Date2, orders="mdy hms")