https://github.com/coolbutuseless/ggecho

ggplot2 stat for echoing data
https://github.com/coolbutuseless/ggecho

Last synced: 28 days ago
JSON representation

ggplot2 stat for echoing data

• Host: GitHub
• URL: https://github.com/coolbutuseless/ggecho
• Owner: coolbutuseless
• License: mit
• Created: 2019-03-22T10:40:03.000Z (over 5 years ago)
• Default Branch: master
• Last Pushed: 2019-03-24T07:26:27.000Z (over 5 years ago)
• Last Synced: 2024-08-03T21:03:12.557Z (3 months ago)
• Language: R
• Size: 223 KB
• Stars: 13
• Watchers: 4
• Forks: 0
• Open Issues: 0
• Metadata Files:
  • Readme: README.Rmd
  • License: LICENSE

Awesome Lists containing this project

• awesome-r-dataviz - ggecho - ggplot2 stat for echoing data. (ggplot / Miscellaneous)

README

        
---

output: github_document

---

```{r, include = FALSE}

suppressPackageStartupMessages({

  library(ggplot2)

  library(ggecho)

})

knitr::opts_chunk$set(

  collapse = TRUE,

  comment = "#>",

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

  out.width = "100%"

)

```

# ggecho

![](https://img.shields.io/badge/lifecycle-alpha-orange.svg)

`ggecho` is a `ggplot2` Stat which echoes the plotting data.

This can be used to create a blur effect for `geom_point()`, `geom_line()` and `geom_text()`  (and probably 

some other geoms where the `size` parameter directly determines the area of the displayed element).

This ggplot2 stat works by duplicating/echoing the original data passed to ggplot, and adjusting

each data echo by:

* size (`size_increment`), 

* alpha (`alpha_factor`), and 

* position (`x_offset` & `y_offset`)

This package wouldn't be possible without:

* [ggplot2](https://cran.r-project.org/package=ggplot2) by Hadley Wickham

* [Brodie Gaslam's](https://twitter.com/BrodieGaslam) great guide to [ggplot2 internals](https://htmlpreview.github.io/?https://github.com/brodieG/ggbg/blob/development/inst/doc/extensions.html#stat-compute)

* [boBRudis's](https://twitter.com/hrbrmstr) post on [demystifying ggplot2](https://rud.is/books/creating-ggplot2-extensions/demystifying-ggplot2.html)

## Installation

You can install thedevelopment version from [GitHub](https://github.com/coolbutuseless/ggecho) with:

``` r

# install.packages("remotes")

remotes::install_github("coolbutuseless/ggecho")

```

## Simple blurred points and lines

This is a basic example which shows you how to solve a common problem:

```{r example}

library(ggecho)

ggplot(mtcars) +

  geom_point(aes(mpg, wt, size = disp), stat = "echo") +

  theme_bw() +

  theme(legend.position = 'none')

ggplot(mtcars) +

  geom_line(aes(mpg, wt, colour = as.factor(am)), stat = "echo") +

  theme_bw() +

  theme(legend.position = 'none')

ggplot(mtcars) +

  stat_echo(aes(mpg, wt, size = disp), geom = "point", size_increment = 2, alpha_factor = 0.5, 

            x_offset = 0.5, y_offset = 1, n = 10) +

  theme_bw() +

  theme(legend.position = 'none')

```

## Blurred text

```{r text}

text_df <- data.frame(x = c(0.3, 0.7), y = c(0.25, 0.25), label = c('hello', '#rstats'))

ggplot(text_df) + 

  geom_text(aes(x, y, label = label), size = 20, stat = 'echo', 

            size_increment = 2, y_offset = 0.0, n = 20, alpha_factor = 0.6) + 

  theme_void() + 

  xlim(0.1, 0.9) + ylim(0.1, 0.4)

```