向数据框添加日期

Question

数据框为：

head(HSC)

       Date    Y1      M1  Location Year Quarter Month
2010-01-04   0.115   0.245 Chicago 2010      Q1    01
2010-01-05   0.111   0.210 Chicago 2010      Q1    01
2010-01-06   0.113   0.185 Chicago 2010      Q1    01

然后我得到 Y1 和 M1 的月平均值

HSCnew<-aggregate(cbind(Y1,M1)~Month+Year,data=HSC,mean)

Month Year     Y1       M1
  01 2010 -0.11935294 -0.04017647
  02 2010 -0.09776471 -0.05600000
  03 2010 -0.06785714  0.01271429
  04 2010 -0.07315789 -0.02457895

年月都是字符。有没有办法在右边加上日期，比如date=01-01-2010

Answer 1

我不知道一个月中的哪一天是相关的，但你可以这样做：

date <- paste(Year, Month, sep = "-")

require(zoo)
as.yearmon(date)
[1] "Jan 2010"

Answer 2

您可以使用以下方法将日期列添加为日期类型：

HSCnew$Date <- as.Date(paste(HSCnew$Year, HSCnew$Month, '01', sep='/'))

或者只是

HSCnew$Date <- paste('01', HSCnew$Month, HSCnew$Year, sep='-')

如果您想要格式为 dd-mm-yyyy 的字符串。

向数据框添加日期

add a date to the dataframe

average

aggregate

r

date