layer_na_rle: Add a layer of 'list_of_na_rle()' to an existing ggplot

In earowang/mists: Missingness of Temporal Data

Description

Add a layer of list_of_na_rle() to an existing ggplot

Usage

layer_na_rle(var, data, ...)

Arguments

var	A variable that contains list_of_na_rle().
data	A data frame.
...	Passed to ggplot2::geom_rect().

Examples

if (!requireNamespace("nycflights13", quietly = TRUE)) {
  stop("Please install the nycflights13 package to run these following examples.")
}
library(dplyr, warn.conflicts = FALSE)
weather <- nycflights13::weather
na_runs_wind <- weather %>% 
  group_by(origin) %>% 
  summarise_at(
    vars(contains("wind")), 
    ~ list_of_na_rle(., index_by = time_hour)
  )

library(ggplot2)
ggplot(weather, aes(x = time_hour, y = wind_gust)) +
  geom_line(na.rm = TRUE) +
  layer_na_rle(wind_gust, data = na_runs_wind, fill = "red", alpha = .5) +
  facet_grid(origin ~ .)

earowang/mists documentation built on Sept. 21, 2019, 1:12 p.m.