希望有人可以指出我的解决方案,以解决我的特定问题。
假设我有一个数据框,在A列中,我有格式为(YYYY-MM-DD,POSIXct)的日期,该日期介于某个起点和终点之间(即2017/01/01至2018/01/01)。在BI列中有一个项目列表,在CI列中有一个在A中给定日期的项目数量。此外,我想添加一个假设,即尽管A列中的日期介于已知的开始日期和结束日期之间,并且顺序上不一定要用相等的时间间隔分隔它们。一个示例可能看起来像这样:
+------------+-------+----------+
| Date | Item | Quantity |
+------------+-------+----------+
| 2017/01/01 | Beans | 2 |
| 2017/01/01 | Pens | 4 |
| 2017/01/04 | Beans | 3 |
| 2017/01/04 | Pens | 5 |
| 2017/02/01 | Tubes | 4 |
| 2017/02/03 | Beans | 9 |
+------------+-------+----------+
我想做的是添加一个列,该列将A列中的每个日期转换为一个正整数,该整数对应于给定开始日期以来的天数。例如,如果开始日期是2017/01/01,我想添加以下列
+------------+-------+----------+------+
| Date | Item | Quantity | Days |
+------------+-------+----------+------+
| 2017/01/01 | Beans | 2 | 1 |
| 2017/01/01 | Pens | 4 | 1 |
| 2017/01/04 | Beans | 3 | 4 |
| 2017/01/04 | Pens | 5 | 4 |
| 2017/01/08 | Tubes | 4 | 8 |
| 2017/01/09 | Beans | 9 | 9 |
+------------+-------+----------+------+
是否有一个简单的解决方案,利用R的内部日期/时间处理(尤其是月份//年中的天数等)
这是评论者要求的dput()
structure(list(date = structure(c(17167, 17167, 17170, 17170, 17174,
17175), class = "Date"), item = structure(c(1L, 2L, 1L, 2L, 3L, 1L),
.Label = c("Beans", "Pens", "Tubes"), class = "factor"), quantity =
c(2, 4, 3, 5, 4, 9)), class = "data.frame", row.names = c(NA, -6L))
在此先感谢您的帮助,希望我的问题可以理解。
答案 0 :(得分:4)
# Example data (please make it reproducible like this in future questions):
yourdata <-
data.frame(Quantity = c(2,4,3,5,4,9),
Item = c('Beans', 'Pens', 'Beans', 'Pens', 'Tubes', 'Beans'),
Date = c("2017/01/01", "2017/01/01","2017/01/04", "2017/01/04", '2017/01/01', "2017/01/09")
)
yourdata$difftime <- sapply(yourdata$Date, difftime, yourdata$Date[1]) + 1
Quantity Item Date difftime 1 2 Beans 2017/01/01 1 2 4 Pens 2017/01/01 1 3 3 Beans 2017/01/04 4 4 5 Pens 2017/01/04 4 5 4 Tubes 2017/01/08 8 6 9 Beans 2017/01/09 9
这也适用于您添加的dput()
数据:
yourdata <- structure(list(date = structure(c(17167, 17167, 17170, 17170, 17174,
17175), class = "Date"), item = structure(c(1L, 2L, 1L, 2L, 3L, 1L),
.Label = c("Beans", "Pens", "Tubes"), class = "factor"), quantity =
c(2, 4, 3, 5, 4, 9)), class = "data.frame", row.names = c(NA, -6L))
yourdata$difftime <- sapply(yourdata$date, difftime, yourdata$date[1]) + 1
yourdata
date item quantity difftime 1 2017-01-01 Beans 2 1 2 2017-01-01 Pens 4 1 3 2017-01-04 Beans 3 4 4 2017-01-04 Pens 5 4 5 2017-01-08 Tubes 4 8 6 2017-01-09 Beans 9 9
答案 1 :(得分:2)
只需减去最小值并加1。无论行顺序如何,它都将起作用。它确实假设您的数据属于Date
类(与您的dput
一样)。如果您的数据是POSIXct
类,我建议您先将其强制为Date
类,否则差异将以秒为单位。调用数据dd
:
dd$days = as.integer(dd$date - min(dd$date)) + 1
dd
# date item quantity days
# 1 2017-01-01 Beans 2 1
# 2 2017-01-01 Pens 4 1
# 3 2017-01-04 Beans 3 4
# 4 2017-01-04 Pens 5 4
# 5 2017-01-08 Tubes 4 8
# 6 2017-01-09 Beans 9 9
答案 2 :(得分:0)
transform(dat,dif=as.numeric(difftime(date,date[1],units = "days")+1))
date item quantity dif
1 2017-01-01 Beans 2 1
2 2017-01-01 Pens 4 1
3 2017-01-04 Beans 3 4
4 2017-01-04 Pens 5 4
5 2017-01-08 Tubes 4 8
6 2017-01-09 Beans 9 9