forked from nhs-r-community/NHSRplotthedots
-
Notifications
You must be signed in to change notification settings - Fork 0
/
Copy pathREADME.Rmd
142 lines (107 loc) · 5.46 KB
/
README.Rmd
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
---
output: github_document
---
<!-- README.md is generated from README.Rmd. Please edit that file -->
```{r, include = FALSE}
knitr::opts_chunk$set(
collapse = TRUE,
comment = "#>",
fig.path = "man/figures/README-",
out.width = "100%",
dev.args = list(png = list(type = "cairo")),
fig.retina = 3
)
```
# NHSRplotthedots <a alt="NHS-R Community's logo" href='https://nhsrcommunity.com/'><img src='https://nhs-r-community.github.io/assets/logo/nhsr-logo.png' align="right" height="80" /></a>
<!-- badges: start -->
[](https://lifecycle.r-lib.org/articles/stages.html#stable)
[](https://github.com/nhs-r-community/NHSRplotthedots/actions)
[](https://app.codecov.io/gh/nhs-r-community/NHSRplotthedots?branch=main)
[](https://CRAN.R-project.org/package=NHSRplotthedots)
[](https://CRAN.R-project.org/package=NHSRplotthedots)
<!-- badges: end -->
This package is built by the [NHS-R community][nhsr] to provide tools for drawing statistical process control (SPC)
charts. This package supports NHS England's ['Making Data Count'][mdc] programme, and allows users to draw XmR charts,
use change points, and apply rules with summary indicators for when rules are breached.
Please be aware that this package is in the early stages of development, and features may change.
## Installation
```{r, eval=FALSE}
# install from CRAN
install.packages("NHSRplotthedots")
# Or install the development version from GitHub using {remotes} package:
# install.packages("remotes")
remotes::install_github("https://github.com/nhs-r-community/NHSRplotthedots", build_vignettes = TRUE)
```
# Overview
Welcome to the NHS-R community's package for building a specific type of statistical process control (SPC) chart, the
XmR chart. We are aiming to support NHS England's ['Making Data Count'][mdc] programme. The programme encourages boards,
managers, and analyst teams to present data in ways that show change over time and drive better understanding of
indicators than 'RAG' (red, amber, green) rated board reports often present.
The help files and vignettes within this package tell you more about the possible options for controlling the charts,
but below is a simple example of the type of chart the package produces. We will use the `ae_attendances` dataset from
the `{NHSRdatasets}` package and a bit of `{dplyr}` code to select some organisations.
```{r example, message=FALSE, warning=FALSE}
library(NHSRplotthedots)
library(NHSRdatasets)
library(tidyverse)
sub_set <- ae_attendances %>%
filter(org_code == "RQM", type == 1, period < as.Date("2018-04-01"))
sub_set %>%
ptd_spc(value_field = breaches, date_field = period, improvement_direction = "decrease")
```
This plot is ok on its own, but we can specify more control options when we pass it on, using the `{dplyr}` pipe
function below: `%>%` to the plot argument.
```{r}
sub_set %>%
ptd_spc(value_field = breaches, date_field = period, improvement_direction = "decrease") %>%
plot(
y_axis_label = "4-hour wait breaches",
main_title = "SPC of A&E waiting time breaches for RQM"
)
```
or, equivalently:
```{r, eval=FALSE}
sub_set %>%
ptd_spc(value_field = breaches, date_field = period, improvement_direction = "decrease") %>%
ptd_create_ggplot(
y_axis_label = "4-hour wait breaches",
main_title = "SPC of A&E waiting time breaches for RQM"
)
```
### Interactive plots with Plotly
It's also possible to generate interactive plots using the `{plotly}` package by replacing the call to `plot` with
`ptd_create_plotly`. This function takes the same arguments as `plot`/`ptd_create_ggplot`.
```{r, eval=FALSE}
sub_set %>%
ptd_spc(value_field = breaches, date_field = period, improvement_direction = "decrease") %>%
ptd_create_plotly(
y_axis_label = "4-hour wait breaches",
main_title = "SPC of A&E waiting time breaches for RQM"
)
```
## Getting help
To find out more about the `ptd_spc()` function, you can view the help with:
```{r, eval=FALSE}
?ptd_spc
```
Details on the extra plot controls can be found using:
```{r, eval=FALSE}
?ptd_create_ggplot
```
To view the vignette (worked example), use:
```{r eval=FALSE}
vignette("intro", package = "NHSRplotthedots")
vignette(package = "NHSRplotthedots")
```
# Contribution
This is an NHS-R Community project that is open for anyone to contribute to in any way that they are able. The project
is released with a [Contributor Code of Conduct](https://contributor-covenant.org/version/2/1/CODE_OF_CONDUCT.html). By
contributing to this project, you agree to abide by its terms.
If you want to learn more about this project, please join the discussion at [the NHS-R Community Slack group][nhsr-slack]
and the specific channel [#proj-nhsr-plot-the-dots][#proj-nhsr-plot-the-dots].
The simplest way to contribute is to raise an issue detailing the feature or functionality you would like to see added,
or any unexpected behaviour or bugs you have experienced.
[nhsr]: https://nhsrcommunity.com
[mdc]: https://www.england.nhs.uk/publication/making-data-count/
[nhsr-slack]: https://nhsrcommunity.slack.com/
[#proj-nhsr-plot-the-dots]: https://nhsrcommunity.slack.com/archives/CSVD4SYF3