R月份和日期兩位數的日期格式

Question

我需要將字符日期「2008-1-1」轉換爲數字20080101，但我得到的是200811，有沒有人可以幫助我呢？非常感謝你。這是我的代碼：

year <- c(2008:2012) 
mth <- c(1:5) 
day <- c(1:5) 
A <- data.frame(cbind(year,mth,day)) 
date.ch <- as.character(with(A, paste(year, mth, day, sep="-"))) 
date.n <- as.numeric(with(A, paste(year, mth, day, sep=""))) 

Answer 1

您可以使用as.numeric(format(as.Date(date.ch), '%Y%m%d'))

[1] 20080101 20090202 20100303 20110404 20120505 

Answer 2

正如@Andrie提到，sprintf是一個不錯的功能：

with(A, as.numeric(sprintf("%i%02i%02i", year, mth, day))) 
# [1] 20080101 20090202 20100303 20110404 20120505 

由於@mplourde在這點已經消失在乙醚，如果你只有一個意見指出date.ch對象，你可以

as.numeric(strftime(date.ch, format = "%Y%m%d")) 

Answer 3

簡單的乘法和加法如何？

A <- data.frame(cbind(year=rep(2008:2011,6),mth=rep(1:12,2),day=1:24)) 
with(A, year*1e4 + mth*1e2 + day)