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
|
% Generated by roxygen2: do not edit by hand
% Please edit documentation in R/is.na10.R
\name{is.na10}
\alias{is.na10}
\title{Indicates which elements are missing (either 1 and 0)}
\usage{
is.na10(x, ...)
}
\arguments{
\item{x}{a vector, matrix or data.frame.}
\item{...}{not used.}
}
\value{
Returns a numeric (instead of a logical) variable/matrix of 1 (missing) or 0 (not missing) values (hence the name is.na10)
while still preserving the attributes resulted from running \link{is.na}.
These are useful for funnelling into a heatmap (see the examples).
}
\description{
is.na10 is a helper function for creating heatmaps to diagnose missing value patterns.
It is similar to \link{is.na} but instead of returning a logical TRUE/FALSE vector (or matrix) it
returns a numeric 1/0 output. This enables the \link{heatmaply} function to be used on the data.
}
\examples{
\dontrun{
x <- mtcars
x <- data.frame(x)
x$am <- factor(x$am)
x$vs <- factor(x$vs)
set.seed(2017 - 01 - 19)
x[sample(nrow(x))[1:6], sample(ncol(x))[1:6]] <- NA
# nice grey colors from here: https://github.com/njtierney/visdat/blob/master/R/vis_miss_ly.R
x \%>\%
is.na10() \%>\%
heatmaply(colors = c("grey80", "grey20"), dendrogram = "none")
x \%>\%
is.na10() \%>\%
heatmaply(colors = c("grey80", "grey20"), k_col = 2, k_row = 2)
heatmaply(is.na10(airquality),
grid_gap = 1,
colors = c("grey80", "grey20"), k_col = 2, k_row = 2
)
}
}
\seealso{
\link{is.na}, the grid_gap parameter in \link{heatmaply}.
}
|
