代码之家 › 专栏 › 技术社区 › Zmnako Awrahman beloncfy

基于GroupBy筛选天数

filter r

Zmnako Awrahman beloncfy · 技术社区 · 8 年前

我有一个df,我想根据分组筛选出一列。我想按组合分组(( cc , odd , tree1 和 tree2 )如果是第4天,请保留,否则将其删除。

df <- data_frame(
cc = c('BB', 'BB', 'BB', 'BB','BB', 'BB','BB', 'BB', 'DD', 'DD', 'DD', 'DD', 'DD', 'DD', 'DD', 'DD', 
     'ZZ', 'ZZ', 'ZZ', 'ZZ', 'ZZ', 'ZZ', 'ZZ', 'ZZ'),
odd = c(3434, 3434, 3434, 3434, 3435, 3435, 3435, 3435, 3434, 3434, 3434, 3434, 3435, 3435, 3435, 3435, 3434, 3434, 3434, 3434, 3435, 3435, 3435, 3435),
tree1 = c('ASP', 'ASP', 'ASP', 'ASP', 'SAP', 'SAP', 'SAP', 'SAP', 'ASP', 'ASP', 'ASP', 'ASP', 'SAP', 'SAP', 'SAP', 'SAP', 'ASP', 'ASP', 'ASP', 'ASP', 'SAP', 'SAP', 'SAP', 'SAP'),
tree2 = c('ATK', 'ATK','ATK','ATK','ATK','ATK','ATK','ATK', 'ATK', 'ATK','ATK','ATK','ATK','ATK','ATK','ATK', 'ATK', 'ATK','ATK','ATK','ATK','ATK','ATK','ATK'),
day = c(1, 2, 3, 4, 3, 4, 5, 6, 2, 3, 4, 5, 1, 3, 5, 7, 1, 2, 6, 8, 2, 4, 6, 8)
)

我试过了,但这会让你 day 值小于4

df1 <- df %>%
  arrange(cc, odd, tree1, tree2, day) %>% 
  group_by(cc, odd, tree1, tree2) %>% 
  filter(day > 4)

我想得到一个df,如下所示。

df2 <- data_frame(
  cc = c('BB', 'BB','BB', 'BB', 'DD', 'DD', 'DD', 'DD', 'DD', 'DD', 'DD', 'DD', 
     'ZZ', 'ZZ', 'ZZ', 'ZZ', 'ZZ', 'ZZ', 'ZZ', 'ZZ'),
  odd = c(3435, 3435, 3435, 3435, 3434, 3434, 3434, 3434, 3435, 3435, 3435, 3435, 3434, 3434, 3434, 3434, 3435, 3435, 3435, 3435),
  tree1 = c('SAP', 'SAP', 'SAP', 'SAP', 'ASP', 'ASP', 'ASP', 'ASP', 'SAP', 'SAP', 'SAP', 'SAP', 'ASP', 'ASP', 'ASP', 'ASP', 'SAP', 'SAP', 'SAP', 'SAP'),
  tree2 = c('ATK','ATK','ATK','ATK', 'ATK', 'ATK','ATK','ATK','ATK','ATK','ATK','ATK', 'ATK', 'ATK','ATK','ATK','ATK','ATK','ATK','ATK'),
  day = c(3, 4, 5, 6, 2, 3, 4, 5, 1, 3, 5, 7, 1, 2, 6, 8, 2, 4, 6, 8)
)

1 回复 | 直到 8 年前

Roman 8 年前

你可以试试

df %>%
  group_by(cc, odd, tree1, tree2) %>% 
  filter(any(day > 4)) 
# A tibble: 20 x 5
   cc      odd tree1 tree2   day
   <chr> <dbl> <chr> <chr> <dbl>
 1 BB     3435 SAP   ATK       3
 2 BB     3435 SAP   ATK       4
 3 BB     3435 SAP   ATK       5
 4 BB     3435 SAP   ATK       6
 5 DD     3434 ASP   ATK       2
 6 DD     3434 ASP   ATK       3
 7 DD     3434 ASP   ATK       4
 8 DD     3434 ASP   ATK       5
 9 DD     3435 SAP   ATK       1
10 DD     3435 SAP   ATK       3
11 DD     3435 SAP   ATK       5
12 DD     3435 SAP   ATK       7
13 ZZ     3434 ASP   ATK       1
14 ZZ     3434 ASP   ATK       2
15 ZZ     3434 ASP   ATK       6
16 ZZ     3434 ASP   ATK       8
17 ZZ     3435 SAP   ATK       2
18 ZZ     3435 SAP   ATK       4
19 ZZ     3435 SAP   ATK       6
20 ZZ     3435 SAP   ATK       8

推荐文章

Amp · 使用R ggplot2删除geom_radial中axis.line和panel.border之间的空格

1 年前

Hard_Course · 用另一列中的值替换行的最后一个非NA条目

1 年前

Mark R · 使用geom_sf()删除地球仪上不需要的网格线

1 年前

Joe · 根据对工作日和本周早些时候的日期的了解,找到一个日期

1 年前

Ben · 统计向量中的单词在字符串中出现的频率

1 年前

TheCodeNovice · R中符号格式的尾随零和其他问题[重复]

1 年前

katefull06 · 在R中使用terra修改范围时,会为单独的SpatRaster重写范围

1 年前

dez93_2000 · 在R管道子功能中引用管道对象的当前状态

1 年前

accibio · 在ggplot2中为同一变量创建两个连续的颜色渐变比例

1 年前

Mankka · 如何在Ggplot2中绘制均匀的径向图

1 年前