下面是一个示例代码，展示如何按总结数据筛选一个tibble：

library(dplyr)

# 创建一个示例数据框
df <- tibble(
  group = c("A", "A", "B", "B", "C", "C"),
  value = c(10, 20, 15, 25, 8, 12)
)

# 根据分组变量（group）计算总结数据
summary_data <- df %>%
  group_by(group) %>%
  summarize(total_value = sum(value))

# 输出总结数据
print(summary_data)

# 筛选总结数据中 total_value 大于 20 的行
filtered_data <- summary_data %>%
  filter(total_value > 20)

# 输出筛选后的数据
print(filtered_data)

运行以上代码，可以得到以下输出：

# A tibble: 3 x 2
  group total_value
         
1 A              30
2 B              40
3 C              20

# A tibble: 2 x 2
  group total_value
         
1 A              30
2 B              40

在这个示例中，我们首先创建了一个包含分组和数值的tibble。然后，使用group_by()函数按分组变量（group）对数据进行分组，再用summarize()函数计算每个组的总和。接下来，我们打印出总结数据。然后，使用filter()函数筛选出总和大于20的行，并打印出筛选后的数据。