如何改变整数日期[R

Question

嗨，我有一个快速的问题在R，

我们可以字符转换为日期，例如

v <- c(2008101, 20081202, 20081103) 
date <- as.Date(as.character(v), format("%Y%m%d"));date 

但我怎么能转换v<- c(200801, 200802)到2008-01和2008-02？

Answer 1

什么样简单的东西：

##Give each entry a date 
v = paste0(v, "01") 
##Convert as before 
date = as.Date(as.character(v), format("%Y%m%d")); 

你甚至可以写一个小功能来自动执行此操作：

to_date = function(v) { 
    v = as.character(v) 

    missing_day = nchar(v) < 7 
    v[missing_day] = paste0(v[missing_day], "01") 
    as.Date(v, format("%Y%m%d")) 
} 

##Last value is missing the date 
v = c(2008101, 20081202, 20081103, 200811) 
to_date(v) 

Answer 2

这里的另一种选择：

foo <- function(x){ 
    x <- as.Date(as.character(x), format("%Y%m%d")) 
    newDates <- lapply(strsplit(as.character(x), "-"), "[", -2) 
    sapply(newDates, function(x) paste(x[1],x[2], sep="-")) 
} 

> foo(v) 
[1] "2008-01" "2008-02" "2008-03"