Как преобразовать числовое значение в значение даты

Question

Итак, у меня есть data.frame со столбцом с именем Date.birth, но у меня есть эти значения в числовом формате:

Date.birth
43067
43060

Возможно, это проблемный формат. Но мне нужно в формате даты, как эти:

Date.birth
11/28/17
11/21/17

На самом деле приведенный выше формат является правильным. Я попробовал эту команду:

as.Date(levels(data$Date.birth), format="%d.%m.%Y")

но не сработало. У кого-нибудь есть предложение?

Спасибо.

Answer 1

Если это числовая дата в формате Excel, janitor предлагает отличное решение:

library(janitor)

excel_numeric_to_date(data$Date.birth)

Answer 2

Нам нужно указать источник, если это numeric значение

as.Date(data$Date.birth, origin = "1899-12-30")

например,

as.Date(43067, origin = "1899-12-30")
#[1] "2017-11-28"

После преобразования в класс Date, если оно должно быть впользовательский формат, используйте format

format(as.Date(43067, origin = "1899-12-30"), "%m/%d/%y")
#[1] "11/28/17"

Answer 3

Это можно сделать просто с помощью lubridate package-

lubridate::as_date(as.numeric(dt$Date.birth),origin="1899-12-30")  
[1] "2017-11-28" "2017-11-21"

Sample Data-

dt <- read.table(text="Date.birth
43067
43060",header=T)

Answer 4

попробуйте

VariableName <- dt %>% 
mutate(Date.birth = format(excel_numeric_to_date(as.numeric(Date.birth)),"%m/%d/%y"))
#[1] "11/28/17"