gg_gaps | R Documentation |
gg_gaps()
is built upon gg_days()
, gap_finder()
, and gg_state()
to
visualize where gaps and irregular data in a dataset are. The function does
not differentiate between implicit gaps
, which are missing timestamps of
the regular interval, explicit gaps
, which are NA
values. Optionally, the
function shows irregular data
, which are datapoints that fall outside the
regular interval.
gg_gaps(
dataset,
Variable.colname = MEDI,
Datetime.colname = Datetime,
fill.gaps = "red",
col.irregular = "red",
alpha = 0.5,
on.top = FALSE,
epoch = "dominant.epoch",
full.days = TRUE,
show.irregulars = FALSE,
group.by.days = FALSE,
include.implicit.gaps = TRUE,
...
)
dataset |
A light logger dataset. Expects a |
Variable.colname |
Variable that becomes the basis for gap analysis. expects a symbol |
Datetime.colname |
The column that contains the datetime. Needs to be a
|
fill.gaps |
Fill color for the gaps |
col.irregular |
Dot color for irregular data |
alpha |
A numerical value between 0 and 1 representing the transparency of the gaps Default is 0.5. |
on.top |
Logical scalar. If |
epoch |
The epoch to use for the gapless sequence. Can be either a
|
full.days |
Logical. Whether full days are expected, even for the first and last measurement |
show.irregulars |
Logical. Show irregular data points. Default is
|
group.by.days |
Logical. Whether data should be grouped by days. This can make sense if only very few days from large groups are affected |
include.implicit.gaps |
Logical. Whether the time series should be expanded only the current observations taken. |
... |
Additional arguments given to |
a ggplot
object with all gaps and optionally irregular data.
Groups that do not have any gaps nor irregular data will be removed for
clarity. Null if no groups remain
#calling gg_gaps on a healthy dataset is pointless
sample.data.environment |> gg_gaps()
#creating a gapped and irregular dataset
bad_dataset <-
sample.data.environment |>
aggregate_Datetime(unit = "5 mins") |>
dplyr::filter(Id == "Participant") |>
filter_Date(length = "2 days") |>
dplyr::mutate(
Datetime = dplyr::if_else(
lubridate::date(Datetime) == max(lubridate::date(Datetime)),
Datetime, Datetime + 1
)
) |>
dplyr::filter(MEDI <250)
bad_dataset |> has_gaps()
bad_dataset |> has_irregulars()
#by default, gg_gaps() only shows gaps
bad_dataset |> gg_gaps()
#it can also show irregular data
bad_dataset |> gg_gaps(show.irregulars = TRUE)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.