library(gghighlight)
#> Loading required package: ggplot2

set.seed(1)

d <- data.frame(
  idx = c( 1, 1, 1, 2, 2, 2, 3, 3, 3),
  value = c( 1, 2, 3,10,11,12, 9,10,11),
  category = rep(c("a","b","c"), 3),
  cont_var = runif(9),
  stringsAsFactors = FALSE
)

ggplot(d, aes(x = idx, y = value, color = cont_var)) +
  geom_point() +
  scale_color_continuous()

ggplot(d, aes(x = idx, y = value, color = cont_var)) +
  geom_point() +
  scale_color_continuous() +
  gghighlight(cont_var < 0.5)

library(ggplot2)
library(gghighlight)

ggplot(iris, aes(Sepal.Width, fill = Species)) +
  geom_histogram() +
  geom_highlight(Species != "setosa") +
  facet_wrap(~Species)
#> Error in summarise_impl(.data, dots): Evaluation error: object 'Species' not found.

library(ggplot2)
library(gghighlight)

p <- ggplot(diamonds, aes(depth, colour = cut)) +
  geom_density() +
  xlim(55, 70)
p
#> Warning: Removed 45 rows containing non-finite values (stat_density).

p + geom_highlight(max(depth) > 65)
#> Warning: Removed 45 rows containing non-finite values (stat_density).

#> Warning: Removed 45 rows containing non-finite values (stat_density).

library(ggplot2)
library(gghighlight)

ggplot(mpg, aes(class, hwy, colour = cyl)) +
  geom_boxplot() +
  geom_highlight(cyl > 4)
#> Warning: You set use_group_by = TRUE, but grouped calculation failed.
#> Falling back to ungrouped filter operation...

ggplot(mpg, aes(class, hwy, colour = cyl, group = class)) +
  geom_boxplot() +
  geom_highlight(cyl > 4)
#> Warning: You set use_group_by = TRUE, but grouped calculation failed.
#> Falling back to ungrouped filter operation...
#> Don't know how to automatically pick scale for object of type function. Defaulting to continuous.
#> Error: Column `x` must be a 1d atomic vector or a list

ggplot() +
  geom_line(data = d1, aes(x, y), ...) + 
  geom_clone(data = d2) + 

ggplot(d, aes(foo, bar)) +
  geom_point() +
  geom_highlight(bar > 20 & baz == "A")

library(gghighlight)

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

gghighlight_line(d, aes(idx, value, colour = type), max(value) > 20)
#> Warning: package 'bindrcpp' was built under R version 3.4.4
#> Error in .subset2(x, i): no such index at level 1

library(gghighlight)
library(ggplot2)

d <- tibble::tribble(
  ~x, ~y, ~type, ~value,
  1,  2,   "a",     0,
  2,  3,   "a",     1,
  3,  4,   "a",     0,
  1,  3,   "b",     1,
  2,  2,   "b",     5,
  1,  4,   "c",    10,
  3,  3,   "c",    10
)
ggplot(d, aes(x, y, colour = type, fill = type)) +
  geom_line() +
  geom_point(shape = "circle filled") +
  geom_highlight(mean(value) > 1, use_direct_label = TRUE)
#> label_key: type

scale_highlight_colour(key = x *2 + y * 2, limit = 5)

library(ggplot2)
library(gghighlight)

ggplot(mpg, aes(displ)) +
  geom_histogram(aes(y = stat(count))) +
  geom_highlight()
#> Error in mutate_impl(.data, dots): Evaluation error: object 'count' not found.

ggplot(d) +
  geom_line(aes(idx, value, colour = type)) +
  scale_highlight_colour(max(value) > 20)

ggplot(d,aes(idx, value, colour = type)) +
  geom_line() +
  scale_highlight_colour(max(value) > 20)

library(ggplot2)
library(gghighlight)

ggplot(data.frame(x = 1, y = 1:10, text = letters[1:10]), aes(x = x, y = y)) +
  geom_point(position = position_jitter(seed = 1L)) +
  geom_highlight(label_key = text)

ggplot(data.frame(x = 1, y = 1:10, text = letters[1:10]), aes(x = x, y = y)) +
  geom_point(position = position_jitter(seed = 1L)) +
  geom_highlight(label_key = text, label_params = list(fill = "white", position = position_jitter(seed = 1L)))

d <- tibble::tibble(
  x = c(   1,    1,    2,    2),
  x_discrete = as.character(x),
  y = c(   1,    2,    4,    3),
  g = c("g1", "g2", "g1", "g2")
)

library(gghighlight)
#> Loading required package: ggplot2

# For continuous scale, it works.
p1 <- ggplot(d, aes(x, y, group = g, colour = g)) +
  geom_line() +
  theme_minimal()

egg::ggarrange(
  p1,
  p1 + gghighlight(g == "g1")
)
#> Warning: You set use_group_by = TRUE, but grouped calculation failed.
#> Falling back to ungrouped filter operation...
#> label_key: g

p2 <- p1 + aes(x_discrete, y, group = g, colour = g)

# For discrete scale, bleached layer fails to be rendered.
egg::ggarrange(
  p2,
  p2 + gghighlight(g == "g1")
)
#> label_key: x_discrete
#> geom_path: Each group consists of only one observation. Do you need to
#> adjust the group aesthetic?

library(glmnetUtils)
library(ggfortify)

model <- glmnet(medv ~ ., data = MASS::Boston)

g <- autoplot(model, xvar = "lambda")
g

library(gghighlight)

g + gghighlight(variable == "crim", use_group_by = FALSE)

head(g$data)
#>  Df   Lambda  dev.ratio    index variable value
#> 1  0 6.777654 0.00000000 1.913631     crim     0
#> 2  1 6.175546 0.09238648 1.820597     crim     0
#> 3  2 5.626927 0.17376616 1.727563     crim     0
#> 4  2 5.127046 0.25269182 1.634530     crim     0
#> 5  2 4.671574 0.31820575 1.541496     crim     0
#> 6  2 4.256564 0.37259654 1.448462     crim     0

ggplot(d) +
  geom_line(aes(idx, value, colour = type)) +
  scale_highlight_colour(max(value) > 20) +
  annotate_highlights(max(value) > 20, aes(idx, value, label = type, colour = type))

library(ggplot2)
library(gghighlight)

nc <- sf::st_read(system.file("shape/nc.shp", package = "sf"))
#> Reading layer `nc' from data source `C:\Users\user1\Documents\R\win-library\3.5\sf\shape\nc.shp' using driver `ESRI Shapefile'
#> Simple feature collection with 100 features and 14 fields
#> geometry type:  MULTIPOLYGON
#> dimension:      XY
#> bbox:           xmin: -84.32385 ymin: 33.88199 xmax: -75.45698 ymax: 36.58965
#> epsg (SRID):    4267
#> proj4string:    +proj=longlat +datum=NAD27 +no_defs

ggplot(nc) +
  geom_sf() +
  geom_highlight(AREA > 0.15, use_group_by = FALSE)
#> Error in arrange_impl(.data, dots): Argument 1 is of unsupported type list

library(gghighlight)
library(ggplot2)
nc <- sf::st_read(system.file("shape/nc.shp", package = "sf"), quiet = TRUE)

ggplot(nc) +
    geom_sf(aes(fill = AREA)) + gghighlight(grepl("^A", NAME)) +
    ggtitle("Polygons that starts with A")
#> Warning in bind_rows_(x, .id): Vectorizing 'sfc_MULTIPOLYGON' elements may
#> not preserve their attributes

library(ggplot2)
library(gghighlight)

ggplot(mpg, aes(cyl, hwy, colour = year)) +
  geom_jitter() + 
  geom_highlight(max(cyl) > 4, use_direct_label = FALSE)

ggplot(mpg, aes(cyl, hwy, colour = year)) +
  geom_jitter(position = position_jitter(seed = 1)) + 
  geom_highlight(max(cyl) > 4, use_direct_label = FALSE)

library(ggplot2)
library(gghighlight)

ggplot(economics_long, aes(date, value01, colour = variable)) +
  geom_line() +
  geom_highlight()

ggplot(economics_long, aes(date, value01, colour = factor(variable))) +
  geom_line() +
  geom_highlight()
#> Error in factor(variable): object 'variable' not found

library(gghighlight)
library(ggplot2)
library(patchwork)

d <- tibble::tribble(
  ~x, ~y, ~type, ~value,
  1,  2,   "a",     0,
  2,  3,   "a",     1,
  3,  4,   "a",     0,
  1,  3,   "b",     1,
  2,  2,   "b",     5,
  1,  4,   "c",    10,
  3,  3,   "c",    10
)
p <- ggplot(d, aes(x, y, colour = type)) +
  geom_line() +
  geom_point(shape = "circle filled")

p1 <- p + geom_highlight(mean(value) > 1)
#> label_key: type
p2 <- p + geom_highlight(mean(value) > 1, n = 1)
#> label_key: type

p1 / p2

(p1 + facet_wrap(~ type)) / (p2 + facet_wrap(~ type))

# What we want is...
p2$data <- d
p2

library(ggplot2)
library(gghighlight)

set.seed(2)
d <- purrr::map_dfr(
  letters,
  ~ data.frame(idx = 1:400,
               value = cumsum(runif(400, -1, 1)) * 10,
               type = .,
               stringsAsFactors = FALSE))

ggplot(d) +
  geom_point(aes(idx, value)) +
  geom_line(aes(idx, value, colour = type)) +
  geom_highlight(max(value) > 200, n = 1)

# Specify original `d` on the unhighlighted layer.

ggplot(d) +
  geom_point(aes(idx, value), d) +
  geom_line(aes(idx, value, colour = type)) +
  geom_highlight(max(value) > 200, n = 1)