doc/hello-foofactors.R

In STAT545-UBC-students/hw07-ziqiangt: Make Factors Less Annoying

## ------------------------------------------------------------------------
library(foofactors)
a <- factor(c("character", "hits", "your", "eyeballs"))
b <- factor(c("but", "integer", "where it", "counts"))

## ------------------------------------------------------------------------
c(a, b)

## ------------------------------------------------------------------------
fbind(a, b)

## ------------------------------------------------------------------------
set.seed(1234)
x <- factor(sample(letters[1:5], size = 100, replace = TRUE))
table(x)
as.data.frame(table(x))

## ------------------------------------------------------------------------
freq_out(x)

## ------------------------------------------------------------------------
f_detect(factor(c("a", "b", "c","a")))
f_detect(factor(c("a", "b", "c","d")))

## ------------------------------------------------------------------------
f_reorder(factor(c("B", "A", "D")))

## ------------------------------------------------------------------------
f_set(factor(c("B", "A", "D")))

## ------------------------------------------------------------------------
# De
set.seed(1234)
df <- data.frame(
    kids = factor(c(1,0,1,0,0,0), levels = c(0, 1),
    labels = c("boy", "girl"))
  )

levels(df$kids)

x_write(df, "./df_x.csv", "./df_x.txt")
read_return <- x_read("./df_x.csv", "./df_x.txt")
levels(read_return$kids)