1970 년 1 월 1 일 이전의 날짜를 R

Question

으로 변환 중 날짜 열을 R의 Date 개체로 변환하려고했지만 원하는 결과를 얻지 못했습니다. 이 개인은 1970 년 1 월 1 일 이전의 생년월일이 있으므로 as.Date R은 1/12/54와 같은 날짜를 2054-01-12로 변환합니다. 이 문제를 어떻게 해결할 수 있습니까? 정말 고마워.

Answer 1

모든 것이 1900 년대라면, 한 줄짜리 - 시작시 두 자리 연도로 포맷하고 앞면에 19를 치고 날짜로 변환하십시오. 다시. 사람이 몇 %> % 물건을 냉각 보일 것이다

s = c("1/12/54","1/12/74") 
as.Date(format(as.Date(s,format="%d/%m/%y"), "19%y%m%d"), "%Y%m%d") 
# [1] "1954-12-01" "1974-12-01" 

이 "69"에서 년에 "99"은 여기에 또 한 줄의, 1800 있습니다 : 철저 그래서 테스트하지

library(dplyr) # for pipe operator: 
s %>% as.Date(format="%d/%m/%y") %>% 
    format("%y%m%d") %>% 
    (function(d){ 
     paste0(ifelse(d>700101,"18","19"),d) 
     }) %>% 
    as.Date("%Y%m%d") 

## [1] "1954-12-01" "1874-12-01" 

참고 하나씩 오류가 있거나 몇 달이나 며칠이 섞여있어 야합니다. ISO8601 Compliant

Answer 2

내가 할 것 :

library(lubridate) 

x <- as.Date("1/12/54", format = "%m/%d/%y") 
year(x) <- 1900 + year(x) %% 100 

> x 
[1] "1954-01-12" 

Answer 3

필요가 없습니다를 추가 기능 패키지, 기본 R은 괜찮습니다. 당신이 기본이 아닌 포맷을해야하는 경우

R> as.Date("1954-01-12") 
[1] "1954-01-12" 
R> 

, 그냥 그들을 지정 :하지만 당신은 세기를 지정해야

R> as.Date("19540112", "%Y%m%d") 
[1] "1954-01-12" 
R> 

편집 : 데이터가 정말 %y% 형식을 사용하여 온 경우,

R> d <- as.Date("540112", "%y%m%d") 
R> dlt <- as.POSIXlt(d) 
R> dlt$year <- dlt$year - 100 
R> as.Date(dlt) 
[1] "1954-01-12" 
R> 

: 및 당신이 19 세기가 을 필요로하는 정책 결정을하는 일이 여기 그것을하는 하나의 기본 R의 방법입니다