作者celestialgod (天)
看板R_Language
标题Re: [问题] 去除重复值
时间Fri Mar 18 01:59:54 2016
※ 引述《tHEiPHoNe ( )》之铭言：
: 请问有一组资料
: 纪录user点击item纪录
: 同一个user想踢除相邻的重复值
: 如下
: id click
: 1 a
: 1 a ->重复
: 1 b
: 1 a
: 1 c
: 1 c ->重复
: 1 a
: 1 a ->重复
: 1 b
: 1 b ->重复
: 1 b ->重复
: 1 a
: 2 a
: 2 a ->重复
: 2 b
: 2 c
: 2 a
: 2 b
: 2 c
: 请问该如何处理呢？
: 谢谢
好读版：
http://pastebin.com/tC7U6MqT
library(data.table)
library(magrittr)
DT <- fread('
id click
1 a
1 a
1 b
1 a
1 c
1 c
1 a
1 a
1 b
1 b
1 b
1 a
2 a
2 a
2 b
2 c
2 a
2 b
2 c')
indx <- DT %$% paste0(id, click) %>% rle %$%
cumsum(c(1, lengths)) %>% .[1:(length(.)-1)]
DT[indx, ]
# id click
# 1: 1 a
# 2: 1 b
# 3: 1 a
# 4: 1 c
# 5: 1 a
# 6: 1 b
# 7: 1 a
# 8: 2 a
# 9: 2 b
# 10: 2 c
# 11: 2 a
# 12: 2 b
# 13: 2 c
--
R资料整理套件系列文：
magrittr #1LhSWhpH (R_Language) http://tinyurl.com/1LhSWhpH
data.table #1LhW7Tvj (R_Language) http://tinyurl.com/1LhW7Tvj
dplyr(上) #1LhpJCfB (R_Language) http://tinyurl.com/1LhpJCfB
dplyr(下) #1Lhw8b-s (R_Language)
tidyr #1Liqls1R (R_Language) http://tinyurl.com/1Liqls1R
--
※ 发信站: 批踢踢实业坊(ptt.cc), 来自: 180.218.152.118
※ 文章网址: https://webptt.com/cn.aspx?n=bbs/R_Language/M.1458237598.A.088.html
※ 编辑: celestialgod (180.218.152.118), 03/18/2016 02:02:24
1F：推 tHEiPHoNe: Useful, thanks 03/18 02:09
2F：推 Godkin: 实用! 03/18 11:04
3F：推 bongee: 赞 03/28 00:27
※ 编辑: celestialgod (223.140.244.75), 03/28/2016 23:11:39