将日期添加到由Po-6 To函数生成的空数据dates

Question

我用这个脚本创建了一个日期序列：

dates<-seq(
  from=as.POSIXct("2015-1-1 0","%Y-%m-%d %H", tz="UTC"),
  to=as.POSIXct("2015-12-31 24", "%Y-%m-%d %H", tz="UTC"),
  by="hour"
)

现在，我想将结果存储到空dataframe的第一列：

df<-data.frame(Date=as.POSIXct(character()),Area=character(), Application=character(),  Type= character(),
               Reading=double())

使用此代码

df$Date<-dates

但这给了我一个错误：

Error in `$<-.data.frame`(`*tmp*`, "Date", value = c(1420070400, 1420074000,  : 
  replacement has 8761 rows, data has 0

有人能帮我解决这个问题吗？

Answer 1

data.frame需要长度相等的列，不能有包含8761观测值的列，其余的列为0。解决方法是用data.frame填充数据，用正确的维度初始化一个NA；然后分配列。

# Initialize df
df <- data.frame(matrix(NA, nrow = length(dates), ncol = 5)) 
# Define names of cols and add column
names(df) <- c("Date", "Area", "Application", "Type", "Reading")
df$Date <- dates