https://github.com/EmilHvitfeldt/gganonymize

Anonymize the labels and text in a ggplot2
https://github.com/EmilHvitfeldt/gganonymize

ggplot2 rstats

Last synced: 30 days ago
JSON representation

Anonymize the labels and text in a ggplot2

• Host: GitHub
• URL: https://github.com/EmilHvitfeldt/gganonymize
• Owner: EmilHvitfeldt
• License: other
• Created: 2019-04-16T01:16:54.000Z (over 5 years ago)
• Default Branch: master
• Last Pushed: 2019-05-28T22:42:27.000Z (over 5 years ago)
• Last Synced: 2024-11-13T23:33:10.365Z (about 1 month ago)
• Topics: ggplot2, rstats
• Language: R
• Homepage:
• Size: 576 KB
• Stars: 44
• Watchers: 4
• Forks: 2
• Open Issues: 0
• Metadata Files:
  • Readme: README.Rmd
  • License: LICENSE

Awesome Lists containing this project

README

        
---

output: github_document

---

```{r setup, include = FALSE}

knitr::opts_chunk$set(

  collapse = TRUE,

  comment = "#>",

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

  out.width = "100%"

)

```

# gganonymize

[![Travis build status](https://travis-ci.org/EmilHvitfeldt/gganonymize.svg?branch=master)](https://travis-ci.org/EmilHvitfeldt/gganonymize)

The goal of gganonymize is to anonymize the labels and text in a ggplot2 object in such a way that vizualizations about sensitive information can more easily be shared and critiqued. 

## Installation

You can install the development version from Github using `devtools`:

``` r

# install.packages("devtools")

devtools::install_github("EmilHvitfeldt/gganonymize")

```

## Examples

`gganonymize` will replace the text in the title, subtitle, caption and tag with similar length text while ignoring numerics.

```{r}

library(ggplot2)

library(gganonymize)

ggg <- ggplot(mtcars, aes(as.factor(cyl))) +

  geom_bar() +

  labs(title = "Test title",

       subtitle = "Test subtitle, this one have a lot lot lot lot lot more text then the rest",

       caption = "Test caption",

       tag = 1) +

  facet_wrap(~vs)

gganonomize(ggg)

```

It will respect names of of columns used in multiple settings such that the legend will match.

```{r}

ggg <- ggplot(mtcars, aes(mpg, disp, color = disp, shape = factor(am))) +

  geom_point()

gganonomize(ggg)

```

Likewise will it sepect names in character/factor variables.

```{r}

ggg <- ggplot(mpg, aes(class, fill = class)) +

  geom_bar() + 

  labs(title = "Super sensitive title",

       subtitle = "This part is even more sensitive, I hope no one will get to read it")

gganonomize(ggg)

```

and in facet labels.

```{r}

ggg <- ggplot(mpg, aes(cty, displ, color = class)) +

  geom_point() +

  facet_wrap(~ class)

gganonomize(ggg)

```

This also extends to geom_label, 

```{r}

ggg <- ggplot(iris, aes(Sepal.Length, Sepal.Width, label = Species)) +

  geom_label()

gganonomize(ggg)

```

and geom_text.

```{r}

ggg <- ggplot(iris, aes(Sepal.Length, Sepal.Width, label = Species)) +

  geom_text()

gganonomize(ggg)

```

## Now with as much mtcars as possible

```{r}

ggg <- ggplot(mtcars, aes(as.factor(cyl))) +

  geom_bar() +

  labs(title = "Test title",

       subtitle = "Test subtitle, this one have a lot lot lot lot lot more text then the rest",

       caption = "Test caption",

       tag = 1) +

  facet_wrap(~vs)

mtcarsize(ggg)

```