vignettes/hello_foofactors.R

In xinyaofan/foofactors: Make Factors Less Annoying

## ------------------------------------------------------------------------
library(foofactors)
library(forcats)
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)

## ------------------------------------------------------------------------
factor1<-factor(c("small","medium","big"))
factor2<- factor(c("1","2","2"))

## ------------------------------------------------------------------------
dect_fac(factor1)
dect_fac(factor2)

## ------------------------------------------------------------------------
x<-factor(c("1", "2", "3", "4"))
y<-factor(c("a","b","c","d"))
levels(fct_rev(x))
levels(fct_rev(y))

## ------------------------------------------------------------------------
levels(reorder_desc(x))
levels(reorder_desc(y))

## ------------------------------------------------------------------------
a<-factor(c("b","b","c","a"))
b<-factor(c("2","2","1","4"))

## ------------------------------------------------------------------------
levels(set_level(a))
levels(set_level(b))