小编ssa*_*san的帖子

我有一个类似下面的数据.

id   from data   to date
1   2015-03-09   2015-03-14
2   2015-02-22   2015-02-24
2   2015-05-06   2015-05-17
3   2015-02-12   2015-02-16
4   2015-03-10   2015-03-16
4   2015-03-22  2015-04-07
4   2015-06-07  2015-07-07
4   2015-07-06   2015-07-07
4   2015-08-02   2015-08-07

我想创建一个单独的变量,它是按ID分组的日期和下一个日期之间的差异.所以id的第一次将是NA.我尝试了基于stackoverflow中的另一个答案的以下方法,我无法实现.

library(data.table)
chf1 = data.table(id = chf$id,from date = chf$f.date,to_date = chf$t.date)
setkey(chf1,id)
chf1[,diff:=c(NA,difftime(from_date, to_date, units = "days")),by=id]

输出看起来像

id   from_date   to_date      difference
1   2015-03-09   2015-03-14     NA
2   2015-02-22   2015-02-24     NA
2   2015-05-06   2015-05-17     71
3   2015-02-12   2015-02-16     NA
4   2015-03-10   2015-03-16     NA
4   2015-03-22  2015-04-07      6 …

我有一个数据框(x)和一个因子变量,其值由逗号分隔.我有另一个数据框(y),其中包含相同值的描述.现在我想用数据框(y)中的描述替换数据框(x)中的值.任何帮助将受到高度赞赏.

例如,两个数据框如下所示

data frame (x)
    s.no    x
    1       2,5,45
    2       35,5
    3       45

data fram (y)
s.no    x   description
1       2      a
2       5      b
3       45     c
4       35     d

我需要输出如下

s.no    x
1      a,b,c
2      d,b
c       c