作者fifish89 (OMG)
看板R_Language
标题[问题] 长度不同判断天数
时间Sat Aug 8 12:03:36 2015
[问题类型]:
程式谘询(我想用R 做某件事情，但是我不知道要怎麽用R 写出来)
[软体熟悉度]:
使用者(已经有用R 做过不少作品)
[问题叙述]:
a,b 都是天数
想知道以a的长度为基础,是否有找到一个b是落在a的前2天
每个人都有不同的a和b, 且a,b长度每个人也都不同
以一个人为例：
set.seed(200)
a <- sort(sample(1:30,6))
a
# 17 18 19 21 29 30
b <- sort(sample(1:80,15))
b
# 8 10 12 19 22 28 31 35 40 41 44 48 49 57 63
比如说:
a[1] = 17,但在b中找不到落在a前两天者(没有15或16) ---> d[1] = 0
a[2] = 18,但在b中找不到落在a前两天者(没有16或17) ---> d[2] = 0
a[3] = 19,但在b中找不到落在a前两天者(没有17或18) ---> d[3] = 0
a[4] = 21,但在b中有找到落在a前两天者( 有19或20) ---> d[4] = 1
a[5] = 29,但在b中有找到落在a前两天者( 有27或28) ---> d[5] = 1
a[6] = 30,但在b中有找到落在a前两天者( 有28或29) ---> d[6] = 1
希望输出 :
ID a d
1 17 0
1 18 0
1 19 0
1 21 1
1 29 1
1 30 1
2 . .
2 . .
想了很久不知道要怎麽写@@
--
※ 发信站: 批踢踢实业坊(ptt.cc), 来自: 219.85.167.10
※ 文章网址: https://webptt.com/cn.aspx?n=bbs/R_Language/M.1439006618.A.9B3.html
1F：→ celestialgod: d = a %in% c(b+1,b+2) 08/08 12:23
2F：→ celestialgod: 应该用group_by(ID)配上面用mutate就可用成你要的 08/08 12:26