Удалите метки в gghighlight_line R - PullRequest
Новая
       14

Удалите метки в gghighlight_line R

0 голосов
/ 26 сентября 2018

Я строю временные ряды нескольких стран с gghighlight_line.Мне удалось нарисовать граненый график с трендом каждой страны, используя следующий код: 

oecd %>%
  filter(country %in% c("Germany", "France", "United Kingdom", "United States", "Canada", "Japan", "Italy", "Netherlands", "Spain")) %>%
gghighlight_line(., aes(year, pop_65, colour = country, group= country), predicate = max(pop_65) > 0, label_key = " ") +
  scale_x_discrete( breaks = c(2000, 2005, 2010, 2015)) +
   facet_wrap(~ country) +
  theme_minimal()

И получив следующий график:

enter image description here

Теперь я пытаюсь удалить метку, связанную с каждой строкой, и мне интересно, есть ли такая опция в gghighlight_line.Большое спасибо заранее

1 Ответ

0 голосов
/ 26 сентября 2018

Вы можете добавить аргумент use_direct_label = FALSE для удаления меток из линий. 

gghighlight_line(., aes(year, pop_65, colour = country, group= country), predicate = 
                   max(pop_65) > 0, label_key = " ", use_direct_label = FALSE)

Обратите внимание, что это не только удаляет их из строк;он также размещает ваши ярлыки прямо на легенде сюжета.Если по какой-то причине вы хотите полностью их скрыть, вы можете просто добавить в конце: 

oecd %>%
  filter(country %in% c("Germany", "France", "United Kingdom", "United States", 
"Canada", "Japan", "Italy", "Netherlands", "Spain")) %>%
gghighlight_line(., aes(year, pop_65, colour = country, group= country), predicate = 
max(pop_65) > 0, label_key = " ") +
  scale_x_discrete( breaks = c(2000, 2005, 2010, 2015)) +
   facet_wrap(~ country) +
  theme_minimal() +
  theme(legend.position = "none")  # remove legend
...