Lag shewhart-diagram — lag_fig_shewhart • rapwhale

Usage

lag_fig_shewhart(
  d,
  y,
  x,
  figtype,
  nevner = NULL,
  tittel = NULL,
  gruppe = NULL,
  periode = NULL,
  x_navn = NULL,
  y_navn = NULL,
  ...
)

Arguments

d: Datasett som inkluderer dei variablane som skal brukast shewhart-diagrammet.
y: Vektor med tal som skal plottast på y-aksen (teljar).
x: Vektor med verdiar som skal plottast på x-aksen, ofte datoar.
figtype: Tekstvektor med kva type diagram som skal lagast. Sjå qicharts2::qic() for tilgjengelege typar.
nevner: Vektor med undergruppestorleikar (nemnar).
tittel: Tekstvektor med tittel på plottet.
gruppe: Eventuell variabel det skal grupperast på.
periode: Tidsperiode brukt for å aggregera y-verdiar. Til dømes "month" eller "2 months".
x_navn: Tekststreng med namnet på x-aksen.
y_navn: Tekststreng med namnet på y-aksen.
...: Eventuelle andre argument som vert gjeve vidare til qicharts2::qic().

Value

Eit shewhart-diagram av typen figtype.

Examples

d = data.frame(
  dato = sample(
    seq.Date(
      from = as.Date("2021-01-01"),
      to = as.Date("2021-12-31"),
      by = "days"
    ),
    size = 1000,
    replace = TRUE
  ),
  avdeling = sample(
    x = c("HUS", "OUS", "UNN", "STA"),
    size = 1000, replace = TRUE
  ),
  teller = sample(
    x = c(TRUE, FALSE),
    size = 1000, replace = TRUE, prob = c(0.7, 0.3)
  ),
  nevner = sample(
    x = c(TRUE, FALSE),
    size = 1000, replace = TRUE, prob = c(0.9, 0.1)
  ),
  verdi = sample(100:250, size = 1000, replace = TRUE)
)

# Setter teller til FALSE og verdi til NA i de radene som nevner er FALSE
# slik det ville vært for en ekte indikatorfunksjon.
d$teller[!d$nevner] = FALSE
d$verdi[!d$nevner] = NA

lag_fig_shewhart(
  d = d, y = teller, x = dato, figtype = "p",
  nevner = nevner, gruppe = avdeling, periode = "2 months",
  x_navn = "Tidspunkt", y_navn = "Andel"
)
#> Scale for y is already present.
#> Adding another scale for y, which will replace the existing scale.


lag_fig_shewhart(
  d = d, y = verdi, x = dato, figtype = "xbar",
  nevner = nevner, gruppe = avdeling, periode = "2 months",
  x_navn = "Tidspunkt", y_navn = "Verdi"
)