ggplot2展示图中部分数据的小例子

安装

install.packages("gghighlight")
# install.packages("devtools")
devtools::install_github("yutannihilation/gghighlight")

加载R包

library(tidyverse)
library(gghighlight)

构建数据

d <- purrr::map_dfr(
  letters,
  ~ data.frame(
    idx = 1:400,
    value = cumsum(runif(400, -1, 1)),
    type = .,
    flag = sample(c(TRUE, FALSE), size = 400, replace = TRUE),
    stringsAsFactors = FALSE
  )
)

ggplot(d) +
  geom_line(aes(idx, value, colour = type))+
  theme_minimal()

ggplot(d) +
  geom_line(aes(idx, value, colour = type)) +
  gghighlight(max(value) > 12)

ggplot(d) +
  geom_line(aes(idx, value, colour = type)) +
  gghighlight(max(value) > 12) +
  theme_minimal() +
  facet_wrap(~ type)

p <- ggplot(mtcars, aes(wt, mpg, colour = factor(cyl))) +
  geom_point(size=4)
p

p + gghighlight(cyl == 6)

p + gghighlight(cyl == 6, keep_scales = TRUE) + 
  ggtitle("keep_scales = TRUE")

d2 <- dplyr::sample_n(d, 20)

ggplot(d2, aes(idx, value)) +
  geom_point() +
  gghighlight(value > 0, label_key = type)

d <- data.frame(
  idx =   c(1, 2, 3, 4, 1, 2, 3, 4),
  value = c(10, 11, 12, 13, 4, 8, 16, 32),
  cat1 =  rep(c("a", "b"), each = 4),
  cat2 =  rep(rep(c("1-2", "3-4"), each = 2), 2),
  stringsAsFactors = FALSE
)

p <- ggplot(d, aes(idx, value, colour = cat1)) +
  geom_line() +
  facet_wrap(vars(cat2))
p

p + gghighlight(max(value) > 10)

p +
  gghighlight(max(value) > 10, calculate_per_facet = TRUE) +
  ggtitle("calculate_per_facet = TRUE")

p <- ggplot(iris, aes(Sepal.Length, fill = Species)) +
  geom_bar()+
  gghighlight()
p

p + facet_wrap(~ Species)

set.seed(10)
d2 <- dplyr::sample_n(d, 20)

ggplot(d2, aes(idx, value)) +
geom_point() +
gghighlight(value > 0, label_key = type)