从日期数据创建新变量答案

【问题标题】：create new variable from date data从日期数据创建新变量
【发布时间】：2012-07-13 14:34:10
【问题描述】：

现在我的数据框如下所示

输入（头部（t.zoo））

structure(c(85.92, 85.85, 85.83, 85.83, 85.85, 85.87, 1300, 1300, 
1299.75, 1299.75, 1299.75, 1300), .Dim = c(6L, 2L), .Dimnames = list(
NULL, c("cl", "es")), index = structure(list(sec = c(0.400000095367432, 
0.900000095367432, 1.40000009536743, 1.90000009536743, 2.40000009536743, 
2.90000009536743), min = c(30L, 30L, 30L, 30L, 30L, 30L), hour = c(10L, 
10L, 10L, 10L, 10L, 10L), mday = c(6L, 6L, 6L, 6L, 6L, 6L), mon = c(5L, 
5L, 5L, 5L, 5L, 5L), year = c(112L, 112L, 112L, 112L, 112L, 112L
), wday = c(3L, 3L, 3L, 3L, 3L, 3L), yday = c(157L, 157L, 157L, 
157L, 157L, 157L), isdst = c(1L, 1L, 1L, 1L, 1L, 1L)), .Names = c("sec", 
"min", "hour", "mday", "mon", "year", "wday", "yday", "isdst"
), class = c("POSIXlt", "POSIXt"), tzone = c("", "EST", "EDT"
)), class = "zoo")

我有两个问题，第一个是我想为第一列添加一个变量名，第二个是我想创建一个分类变量来帮助我指出 2010-06-06（因为有 3 天）

我应该如何处理日期数据？

【问题讨论】：

请使用dput 创建您的数据样本。并阅读：stackoverflow.com/questions/5963269/…
“第一列”看起来像行名或 xts/zoo 对象的索引。您确实需要提供来自 dput 的输出，以便任何人做的不仅仅是猜测解决方案。
感谢您的评论！我会放置 dput 并尝试使其工作
@user1489975，这两个答案对你有什么影响？如果两者都没有，请完善您的问题，以便其他人可以尝试帮助回答。

标签： r date

【解决方案1】：

我不熟悉动物园类，所以下面的代码不是很好，但似乎工作。

yourdata<-as.matrix(yourdata)  
justdate <- substr(rownames(yourdata), 1, 10)
justtime <- substr(rownames(yourdata), 11, 19)  
row.names(yourdata) <- NULL  
yourdata<-as.data.frame(yourdata)  
yourdata[,"justdate"]<-justdate  
yourdata[,"justtime"]<-justtime  
yourdata[yourdata$justdate=="2012-06-06","newvariable"]<-1  
> yourdata  
  cl      es   justdate  justtime newvariable  
1 85.92 1300.00 2012-06-06  10:30:00           1  
2 85.85 1300.00 2012-06-06  10:30:00           1  
3 85.83 1299.75 2012-06-06  10:30:01           1  
4 85.83 1299.75 2012-06-06  10:30:01           1  
5 85.85 1299.75 2012-06-06  10:30:02           1  
6 85.87 1300.00 2012-06-06  10:30:02           1

【讨论】：

【解决方案2】：

zoo 对象与data.frames 的处理方式略有不同。

“第一列”（如您所指）实际上不是列，而是对象的index。试试index(t.zoo) 看看它会返回什么。这个index 真的应该有独特的价值；在您的情况下，存在重复的值，这可能会影响您的计算。

转换为data.frame 可以通过如下方式完成。我根据来自t.zoo 的index 添加了单独的“日期”和“时间”变量。

require(zoo) # Load the `zoo` package if you haven't already done so
t.df = data.frame(Date = format(index(t.zoo), "%Y-%m-%d"), 
                  Time = format(index(t.zoo), "%H:%M:%S"),
                  data.frame(t.zoo))
t.df
#         Date     Time    cl      es
# 1 2012-06-06 10:30:00 85.92 1300.00
# 2 2012-06-06 10:30:00 85.85 1300.00
# 3 2012-06-06 10:30:01 85.83 1299.75
# 4 2012-06-06 10:30:01 85.83 1299.75
# 5 2012-06-06 10:30:02 85.85 1299.75
# 6 2012-06-06 10:30:02 85.87 1300.00

转换回 zoo 对象（保留新的“日期”和“时间”列，或您添加的任何其他列）可以这样完成：

zoo(t.df, order.by=index(t.zoo))

但是请注意，这会给您一个警告，因为您没有唯一的“order.by”值。

【讨论】：