Nothing
## ----setup, echo = FALSE, include = FALSE-------------------------------------
knitr::opts_chunk$set(fig.width = 5,
fig.height = 4)
## ----head-iris----------------------------------------------------------------
head(iris)
## ----glimpse------------------------------------------------------------------
library(dplyr)
glimpse(iris)
## ----visdat-glimpse-----------------------------------------------------------
library(visdat)
glimpse(typical_data)
## ----load-data----------------------------------------------------------------
vis_dat(typical_data)
## ----example-vis-miss---------------------------------------------------------
vis_miss(typical_data)
## ----vis_dat------------------------------------------------------------------
vis_dat(airquality)
## ----visdat-typical-----------------------------------------------------------
vis_dat(typical_data)
vis_dat(typical_data,
sort_type = FALSE)
## ----vis_miss-----------------------------------------------------------------
vis_miss(airquality)
## ----vismiss-new-data---------------------------------------------------------
df_test <- data.frame(x1 = 1:10000,
x2 = rep("A", 10000),
x3 = c(rep(1L, 9999), NA))
vis_miss(df_test)
## ----vismiss-mtcars-----------------------------------------------------------
df_test <- data.frame(x1 = 1:10000,
x2 = rep("tidy", 10000),
x3 = rep("data", 10000))
vis_miss(df_test)
## ----vismiss------------------------------------------------------------------
vis_miss(airquality,
sort_miss = TRUE)
## ----vis_miss-cluster---------------------------------------------------------
vis_miss(airquality,
cluster = TRUE)
## ----vis-compare-iris---------------------------------------------------------
set.seed(2019-04-03-1107)
chickwts_diff <- chickwts
chickwts_diff[sample(1:nrow(chickwts), 30),sample(1:ncol(chickwts), 2)] <- NA
vis_compare(chickwts_diff, chickwts)
## ----vis-compare-error, eval = FALSE------------------------------------------
#
# chickwts_diff_2 <- chickwts
# chickwts_diff_2$new_col <- chickwts_diff_2$weight*2
#
# vis_compare(chickwts, chickwts_diff_2)
# # Error in vis_compare(chickwts, chickwts_diff_2) :
# # Dimensions of df1 and df2 are not the same. vis_compare requires dataframes of identical dimensions.
## ----vis-expect---------------------------------------------------------------
vis_expect(airquality, ~.x >= 25)
## ----vis-expect-bad-strings---------------------------------------------------
bad_data <- data.frame(x = c(rnorm(100), rep("N/A", 10)),
y = c(rep("N A ", 30), rnorm(80)))
vis_expect(bad_data, ~.x %in% c("N/A", "N A "))
## ----vis-cor------------------------------------------------------------------
vis_cor(airquality)
## ----vis-cor-spearman---------------------------------------------------------
vis_cor(airquality, cor_method = "spearman")
## ----vis-cor-na-action--------------------------------------------------------
vis_cor(airquality,
na_action = "complete.obs")
## ----vis-value----------------------------------------------------------------
vis_value(airquality)
## ----diamonds-error, eval = FALSE---------------------------------------------
# vis_value(iris)
## ----diamonds-error-subset----------------------------------------------------
iris %>%
select_if(is.numeric) %>%
vis_value()
## ----airquality-arrange-------------------------------------------------------
airquality %>%
arrange(Wind) %>%
vis_value()
## ----vis-binary---------------------------------------------------------------
vis_binary(dat_bin)
## ----create-messy-vec---------------------------------------------------------
messy_vector <- c(TRUE,
T,
"TRUE",
"T",
"01/01/01",
"01/01/2001",
NA,
NaN,
"NA",
"Na",
"na",
"10",
10,
"10.1",
10.1,
"abc",
"$%TG")
set.seed(1114)
messy_df <- data.frame(var1 = messy_vector,
var2 = sample(messy_vector),
var3 = sample(messy_vector))
## ----vis-guess-messy-df, fig.show='hold', out.width='50%'---------------------
vis_guess(messy_df)
vis_dat(messy_df)
## ----intx, eval = FALSE-------------------------------------------------------
#
# library(plotly)
# ggplotly(vis_dat(airquality))
# ggplotly(vis_miss(airquality))
# ggplotly(vis_guess(airquality))
#
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.