R语言打标签问题

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

送您一个全额奖学金名额~ !

立即领取

感谢您参与论坛问题回答

经管之家送您两个论坛币！

+2 论坛币

需要给这份数据分类并打标签，所有前后两项相减值小于50归为一类，标签打在数据后面可为1，在大于50的两个数据中间分类，然后再进行上述操作，标签为2，以此类推。我一直想不出有什么好的方法，麻烦各位了

扫码加我 拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

分享0 收藏0 回帖

不清楚你想实现什么，能不能举个例子

skyfx 发表于 2019-12-4 17:06
不清楚你想实现什么，能不能举个例子

例：数据：2,3,4,6,7,9,10,61,63,64,67,120,121,122,123  (数据前后两个数相减小于50分为一类）
      标签：1,1, 1,1,1,1,1,  2, 2,  2,  2,  3,    3,    3,   3

tianyidai 发表于 2019-12-5 09:13
例：数据：2,3,4,6,7,9,10,61,63,64,67,120,121,122,123  (数据前后两个数相减小于50分为一类）
      标 ...

1. library(dplyr)
   
2. 
   
3. input <- c(2,3,4,6,7,9,10,61,63,64,67,120,121,122,123)
   
4. 
   
5. output <- data.frame(x = input) %>%
   
6.   tbl_df() %>%
   
7.   mutate(dif = c(0, diff(x))) %>%
   
8.   mutate(check = ifelse(dif >= 50, 1, 0)) %>%
   
9.   mutate(groups = cumsum(check) + 1) %>%
   
10.   select(x, groups)

复制代码

skyfx 发表于 2019-12-5 09:32

非常感谢