如何使用ggplot2绘制匹配数据的行

Question

plot increase_rate包含abs(increase_rate) > 0.05。
但在代码下，丢弃-0.05到0.05之间的数据。

我还绘制了从-0.05到0.05范围的数据。

library(tidyverse)
data(population, package="tidyr")

population %>%
  arrange(country, year) %>%
  group_by(country) %>%
  mutate(population_nextY = lead(population)) %>%
  mutate(increase_rate = (population_nextY - population)/population_nextY) %>%
  filter(abs(increase_rate) > 0.05) %>%
  ungroup %>%
  ggplot()+
  geom_line(aes(x = year, y = increase_rate, color = country)) 

我想得到这样的最终情节。

d <- 
  population %>%
  arrange(country, year) %>%
  group_by(country) %>%
  mutate(population_nextY = lead(population)) %>%
  mutate(increase_rate = (population_nextY - population)/population_nextY) %>%
  ungroup

select_country <- 
  d %>% filter(!between(increase_rate, -0.05, 0.05)) %>%
  select(country) %>% distinct %>% unlist

d %>%
  filter(country %in% select_country) %>%
  ggplot()+
  geom_line(aes(x = year, y = increase_rate, color = country))

Answer 1

使用between：

filter(!between(increase_rate, -0.05, 0.05))

Answer 2

使用mutate（）函数添加列

population %>%
  arrange(country, year) %>%
  group_by(country) %>%
  mutate(population_nextY = lead(population)) %>%
  mutate(increase_rate = (population_nextY - population)/population_nextY) %>%
  mutate(judge = max(abs(increase_rate), na.rm=T)) %>%
  filter(judge > 0.05) %>%
  ungroup %>%
  ggplot() + 
  geom_line(aes(x = year, y = increase_rate, color = country))