一个关于filter的问题，求大神解答

s.m<-s%>%
  group_by(date)%>%
  arrange(ep1)%>%
  filter(row_number()<length(ep1)*0.7&row_number()>length(ep1)*0.3)

如果我的目的是将S数据按列date分组，去ep1列30%-70%的数据。这个代码对么

测试代码：
test <- tibble(x = c(1:50,50:1),
               date = rep.int(c("2018-10-11","2018-10-12"),c(50,50)))

test %>%
  group_by(date) %>%
  mutate(idx = row_number(x)) %>%
  filter(idx < length(x)*0.7, idx > length(x) * 0.3) %>%
  View()

row_number 本身就是排序的操作，所以不需要排序

可以通过debug的方式来了解dplyr的group_by原理
test %>%
  group_by(date) %>%
  mutate(idx = row_number(x)) %>%
  do(browser())

进入debug模式，然后输入 mutate(., len = length(x))  看看结果

更多请参考： https://wush.ghost.io/dplyr_group_by/

测试代码：
test <- tibble(x = c(1:50,50:1),
               date = rep.int(c("2018-10-11","2018-10-12"),c(50,50)))

test %>%
  group_by(date) %>%
  mutate(idx = row_number(x)) %>%
  filter(idx < length(x)*0.7, idx > length(x) * 0.3) %>%
  View()

row_number 本身就是排序的操作，所以不需要排序

可以通过debug的方式来了解dplyr的group_by原理
test %>%
  group_by(date) %>%
  mutate(idx = row_number(x)) %>%
  do(browser())

进入debug模式，然后输入 mutate(., len = length(x))  看看结果

更多请参考： https://wush.ghost.io/dplyr_group_by/

R很有用 发表于 2018-11-25 15:30
测试代码：
test %
  group_by(date) %>%

如果我一个数据库有多列数据，row_number 会按哪列排序呢，还是要先排一下的把

R很有用 发表于 2018-11-25 19:46
测试代码：
test %
  group_by(date) %>%

我明白了，谢谢