https://github.com/lextuga007/pay-gap

UK organisation pay gap Shiny application to show mean and median in terms of date where equal pay stops.
https://github.com/lextuga007/pay-gap

shiny-apps

Last synced: 9 days ago
JSON representation

UK organisation pay gap Shiny application to show mean and median in terms of date where equal pay stops.

• Host: GitHub
• URL: https://github.com/lextuga007/pay-gap
• Owner: Lextuga007
• License: mit
• Created: 2021-07-06T07:45:31.000Z (over 3 years ago)
• Default Branch: main
• Last Pushed: 2023-07-12T17:11:29.000Z (over 1 year ago)
• Last Synced: 2024-10-11T22:27:28.295Z (about 1 month ago)
• Topics: shiny-apps
• Language: R
• Homepage:
• Size: 1.73 MB
• Stars: 0
• Watchers: 1
• Forks: 1
• Open Issues: 0
• Metadata Files:
  • Readme: README.md
  • License: LICENSE

Awesome Lists containing this project

README

        
# UK organisation pay gap

UK organisation pay gap Shiny application to show mean and median in terms of date where equal pay stops.

This was inspired by a [2018 Guardian article](https://www.theguardian.com/news/ng-interactive/2018/apr/04/gender-pay-gap-when-does-your-company-stop-paying-women-in-2018) using the formula detailed in the [Equal Pay Wiki page](http://www.equalpay.wiki/Berechnung_des_Equal_Pay_Day) to find the last day of equal pay. Note the original language is German for this page.

Nottinghamshire Healthcare NHS Trust (amongst others) now has a negative percentage for the median so this app now shows how that translates to men's last day of equal pay. 

Where an organisation has greater than -100% difference, this has been changed to -100% (or a full year) for the purposes of showing the difference by calendar day.

### Data

The data is loaded for this app to run and can be updated from the [UK Government site](https://gender-pay-gap.service.gov.uk/viewing/download-data/2020):

```{r}

# load data ---------------------------

url <- "https://gender-pay-gap.service.gov.uk/viewing/download-data/2020"

download.file(url, dest = "pay-gap-202021.csv")

```

```{r}

# load data ---------------------------

url <- "https://gender-pay-gap.service.gov.uk/viewing/download-data/2022"

download.file(url, dest = "pay-gap-202223.csv")

```