#janitor tools #R #packages #wrangling

janitor.R

library(janitor)

df <- remove_empty_rows(df)
df <- remove_empty_cols(df)

# clean names

names(df) <- names(clean_names(df))


# summarize frequencies

tabyl(df$column_name)


# using pipes

library(magrittr)

df <- clean_names() %>%
  remove_empty_rows() %>%
  remove_empty_cols() %>%
  convert_to_NA(c("column1", "column2")) %>%


# detect duplicates

df %>% get_dupes(first_col, last_col)


# crosstabs

df %>%
  tabyl(column_1, sort = TRUE) %>%
  add_totals_row()

df %>%
  crosstab(column1, column2) %>%
  adorn_crosstab(denom = "col", show_totals = TRUE)