R：根据日期提取数据，“如果日期小于”答案

【问题标题】：R: Extract data based on date, "if date lesser than"R：根据日期提取数据，“如果日期小于”
【发布时间】：2014-10-30 14:55:19
【问题描述】：

我有一个数据集，每个 date 有两个值，如下所示：

    date        x   y
1   2013-05-01  1   2
2   2013-05-02  2   2
3   2013-05-03  3   2

date 的格式为as.Date，使用包lubridate。

现在我想要两个值的mean，除了某个时间跨度，我想使用x的值。

我尝试了以下方法：

mean=(x+y)/2

newdata=ifelse((data$date < 2013-10-01 | date$date > 2014-04-09), mean, x)

但如果所有日期都使用mean。

是否可以对日期使用大于/小于关系？关于如何使这项工作的任何建议？

提前致谢

【问题讨论】：

你能使用像你输入data()时看到的那样的可重现数据集吗？顺便说一句，您所说的“格式”是什么意思……您是指关于班级的事情吗？如果我理解正确，as.Date 是一个基本函数，但它不是一个类，格式由origin 语句给出...
我用：date=c("2013-05-01", "2013-05-02", "2013-05-03", "2013-05-04") x=c(1,2,3,4) y=c(2,2,2,2) library(lubridate) date=as.Date(as.character(date), format="%Y-%m-%d") data=data.frame(date, x,y) 生成了示例数据，例如上面将更改为：mean=(x+y)/2 newdata=ifelse((date < 2013-05-02 | date > 2013-05-03), mean, x)
是的，我的意思是上课。还是 R 新手，抱歉 :) 输入 class(date) 会导致 Date
好的，谢谢。当我们可以快速复制您的步骤时，这总是有帮助的。看起来您还有其他几个人在积极提供解决方案，所以我将把它留给他们。不用担心类/格式混乱。欢迎来到 R :) 干杯。

标签： r date if-statement as.date

【解决方案1】：

这样的事情怎么样：

library(lubridate)
library(data.table)
##
set.seed(123)
Data <- data.frame(
  date=as.Date(ymd(20130904))+0:364,
  x=as.numeric(sample(1:3,365,replace=TRUE)),
  y=as.numeric(sample(1:3,365,replace=TRUE)))
setDT(Data)
##
xSpan <- seq.Date(
  from=as.Date("2013-10-01"),
  to=as.Date("2014-04-09"),
  by="day")
##

已编辑 - 忘记按date 分组

Data[,z:=ifelse(
  date %in% xSpan,
  x,
  mean(c(x,y))),
  by=date]
##
> head(Data)
         date x y   z
1: 2013-09-04 1 3 2.0
2: 2013-09-05 3 1 2.0
3: 2013-09-06 2 1 1.5
4: 2013-09-07 3 2 2.5
5: 2013-09-08 3 2 2.5
6: 2013-09-09 1 2 1.5
> head(subset(Data, date %in% xSpan))
         date x y z
1: 2013-10-01 2 3 2
2: 2013-10-02 1 3 1
3: 2013-10-03 1 1 1
4: 2013-10-04 3 1 3
5: 2013-10-05 3 1 3
6: 2013-10-06 3 1 3

我刚刚将xSpan 定义为使用其中一个函数的连续天数（在您的示例中，只是x 的标识函数）。未包含在此时间跨度内的日期将使用mean 来确定它们的值z。

【讨论】：

lubridate 不是必需的，但我将它包含在 ymd 功能中，以防您将其用于其他目的。

【解决方案2】：

您似乎没有将比较值转换为日期。此外，您用于比较的日期不排除您提供的数据框中的任何日期，因此我希望每次都选择平均值。

date <- as.Date(c('2013-05-01', '2013-05-02', '2013-05-03'))
x    <- c(1, 2, 3)
y    <- c(2, 2, 2)
mean <- (x + y)/2
df   <- data.frame(date = date, x = x, y = y)
newdata <- ifelse((df$date < as.Date('2013-05-02') | df$date > as.Date('2014-04-09')), mean, x)

newdata

我将条件中的日期更改为更具选择性，我得到了1.5 2.0 3.0。它从mean 中选择第一个值，从x 中选择其他值，这与我在ifelse() 中使用的条件一致。

【讨论】：

您在我的代码中发现了错误。选择这个作为答案，因为它纠正了我已经做过的事情，而且它很好而且很短。谢谢！
@HenrySteere lubridate 到底在哪里起作用？