# NOT RUN {
bind_shadow(airquality)
# explore missing data visually
library(ggplot2)
# using the bounded shadow
ggplot(data = bind_shadow(airquality),
aes(x = Ozone)) +
geom_histogram() +
facet_wrap(~Solar.R_NA,
ncol = 1)
# using the is_na function
ggplot(data = airquality,
aes(x = Ozone)) +
geom_histogram() +
facet_wrap(~is_na(Solar.R),
ncol = 1)
# }
Run the code above in your browser using DataLab