@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)
网友评论