dplyr :: case_when

@rensa_co Mar 21 dplyr :: case_when与geom_text（或ggrepel）相得益彰，因为当您想以编程方式标记#rstats图中的一些最有趣的功能时！ 标准可以像你想的那样复杂

library(tidyverse)
library(ggrepel)
mydata = data_frame(x = 1:10, y = rnorm(10), name = c("Apple", 
  "Banana", "Kiwi", "Orange", "Watermelon", "Grapes", "Pear", 
  "Cantelope", "Tomato", "Satsuma")) %>% 
  mutate(name_poor = case_when(y < 0 ~ name, TRUE ~ ""))

ggplot(mydata, aes(x = x, y = y)) + geom_point(size = 5) + 
  geom_text_repel(aes(label = name_poor), 
  point.padding = 2)