https://github.com/daranzolin/d3rain

An htmlwidget bringing D3 drip to R :sweat_drops: :sparkles: :bar_chart:
https://github.com/daranzolin/d3rain

data-visualization drip htmlwidget rain rstats

Last synced: 27 days ago
JSON representation

An htmlwidget bringing D3 drip to R :sweat_drops: :sparkles: :bar_chart:

• Host: GitHub
• URL: https://github.com/daranzolin/d3rain
• Owner: daranzolin
• License: other
• Created: 2019-05-06T04:41:23.000Z (over 5 years ago)
• Default Branch: master
• Last Pushed: 2019-07-15T03:59:48.000Z (over 5 years ago)
• Last Synced: 2024-06-11T17:52:25.741Z (6 months ago)
• Topics: data-visualization, drip, htmlwidget, rain, rstats
• Language: R
• Homepage:
• Size: 21.7 MB
• Stars: 76
• Watchers: 6
• Forks: 3
• Open Issues: 0
• Metadata Files:
  • Readme: README.Rmd
  • License: LICENSE

Awesome Lists containing this project

• awesome-shiny-extensions - d3rain - HTML widget bringing D3 drip to R. (UI Components / Animation Effects)

README

        
---

output: github_document

---

```{r setup, include = FALSE}

knitr::opts_chunk$set(

  collapse = TRUE,

  comment = "#>",

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

  out.width = "100%"

)

```

## d3rain

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

![CRAN log](http://www.r-pkg.org/badges/version/d3rain)

According to the authorities at Urban Dictionary, ['drip' is synonymous with 'immense swag.'](https://www.urbandictionary.com/define.php?term=Drip) This package brings some D3 drip to R.

### Installation

You can install `d3rain` from GitHub via:

``` r

remotes::install_github("daranzolin/d3rain")

```

## Examples

'Rain' visualizations are useful aids to observe the relationship between a ranked, numeric variable (e.g. percentile, rank, etc.) and any factored, categorical variable.

```{r eval=FALSE}

library(d3rain)

library(dplyr)

armed_levels <- c('No', 'Knife', 'Non-lethal firearm', 'Firearm')

pk <- fivethirtyeight::police_killings %>% 

  filter(armed %in% armed_levels,

         !is.na(age)) %>% 

  mutate(armed = factor(armed, levels = armed_levels)) 

pk %>% 

  d3rain(age, armed, toolTip = raceethnicity, title = "2015 Police Killings by Age, Armed Status") %>% 

  drip_settings(dripSequence = 'iterate',

                ease = 'bounce',

                jitterWidth = 20,

                dripSpeed = 1000,

                dripFill = 'firebrick') %>% 

  chart_settings(fontFamily = 'times',

                 yAxisTickLocation = 'left')

```

![Alt Text](https://raw.githubusercontent.com/daranzolin/d3rain/master/inst/img/d3raingif1.gif)

`drip_settings` adjusts the drip sequence, easing animation, jitter width, drip speed, and color. `chart_settings` controls the axes displays, font size, font family, and background color.

You can adjust the drip iteration by reordering the data frame:

```{r eval=FALSE}

pk %>% 

  arrange(age) %>% 

  d3rain(age, armed, toolTip = raceethnicity, title = "2015 Police Killings by Age, Armed Status") %>% 

  drip_settings(dripSequence = 'iterate',

                ease = 'linear',

                jitterWidth = 25,

                dripSpeed = 500,

                dripFill = 'steelblue') %>% 

  chart_settings(fontFamily = 'times',

                 yAxisTickLocation = 'left')

```

![Alt Text](https://raw.githubusercontent.com/daranzolin/d3rain/master/inst/img/d3raingif2.gif)

## Rain Histograms

Create rain histograms with `d3rain_hist` and the accompanying functions:

```{r eval = FALSE}

d <- readr::read_csv("https://raw.githubusercontent.com/babeheim/citation-gates/master/citation-data-simulated.csv") %>% 

  rename(Downloaded = downloaded, 

         Contacted = contacted, 

         Replied = reply_received, 

         Received = data_received) %>% 

  mutate(Total = TRUE,

         `Downloaded and Received` = case_when(

           Downloaded ~ TRUE,

           Received ~ TRUE,

           TRUE ~ FALSE)

         ) 

d %>% 

  d3rain_hist(x = year, 

              levels = c("Total", "Contacted", "Replied", "Downloaded and Received"), 

              title = "Citation Statuses, 1960-2019") %>% 

  hist_chart_settings(annotations = c("Total Sample: 560", "475 (95%)", "309 (65%)", "147 (26%)"),

                      levelLabelLocation = "right") %>% 

  hist_drip_settings(colors = c("black", "forestgreen", "orange", "firebrick"),

                     transitionIntervals = 2500,

                     dripSpeed = 300)

```

## Future Work

* Additional drip behaviors (e.g. by group)

* Conditional fill colors