https://github.com/yutannihilation/gghighlight

Highlight points and lines in ggplot2
https://github.com/yutannihilation/gghighlight

Last synced: 3 months ago
JSON representation

Highlight points and lines in ggplot2

• Host: GitHub
• URL: https://github.com/yutannihilation/gghighlight
• Owner: yutannihilation
• License: other
• Created: 2017-05-27T13:19:16.000Z (about 7 years ago)
• Default Branch: main
• Last Pushed: 2023-12-16T01:06:42.000Z (7 months ago)
• Last Synced: 2024-03-24T15:33:49.125Z (3 months ago)
• Language: R
• Homepage: https://yutannihilation.github.io/gghighlight/
• Size: 40.1 MB
• Stars: 512
• Watchers: 11
• Forks: 27
• Open Issues: 17
• Metadata Files:
  • Readme: README.Rmd
  • License: LICENSE

Lists

• awesome-r-dataviz - gghighlight - Highlight points and lines in ggplot2. (ggplot / Miscellaneous)
• awesome-stars - yutannihilation/gghighlight - Highlight points and lines in ggplot2 (R)
• awesome-stars - yutannihilation/gghighlight - Highlight points and lines in ggplot2 (R)

README

        
---

output: github_document

---

```{r, echo = FALSE}

knitr::opts_chunk$set(

  collapse = TRUE,

  comment = "#>",

  fig.path = "man/figures/README-"

)

# if ragg is installed, use it.

if (requireNamespace("ragg", quietly = TRUE)) {

  knitr::opts_chunk$set(

    dev = "ragg_png"

  )

}

```

# gghighlight

[![R build status](https://github.com/yutannihilation/gghighlight/workflows/R-CMD-check/badge.svg)](https://github.com/yutannihilation/gghighlight/actions)

[![CRAN_Status_Badge](https://www.r-pkg.org/badges/version/gghighlight)](https://cran.r-project.org/package=gghighlight)

Highlight geoms in ggplot2.

## Installation

```{r gh-installation, eval = FALSE}

install.packages("gghighlight")

# Or the development version from GitHub:

# install.packages("devtools")

devtools::install_github("yutannihilation/gghighlight")

```

## Example

(For the full version, please refer to [Introduction to gghighlight](https://yutannihilation.github.io/gghighlight/articles/gghighlight.html)).

Suppose we have a data that has so many series that it is hard to identify them by their colours as the differences are so subtle.

```{r data, include=FALSE}

set.seed(2)

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

    )

)

```

```{r ggplot2-simple}

library(ggplot2)

ggplot(d) +

  geom_line(aes(idx, value, colour = type))

```

With `gghighlight()`, we can highlight the lines whose max values are larger than 20:

```{r gghighlight-simple}

library(gghighlight)

p <- ggplot(d) +

  geom_line(aes(idx, value, colour = type)) +

  gghighlight(max(value) > 20)

p

```

The result is a usual ggplot object, so it is fully customizable. For example, it can be used with custom themes and facets.

```{r gghighlight-theme-facets}

p + theme_minimal()

p + theme_minimal() + facet_wrap(~ type)

```

`gghighlight()` can highlight almost any geoms. For more details, please read [Introduction to gghighlight](https://yutannihilation.github.io/gghighlight/articles/gghighlight.html).