library(tidyverse)
set.seed(42)
(exampl_start <- tibble(
fac = factor(rep(1:2, 5)),
num = sample(10, 10, TRUE)
))
ggplot(
data = exampl_start,
aes(x = fac, y = num)
) +
geom_boxplot()
(ex1 <- mutate(exampl_start,
fac =fct_expand(fac, "3")))
#either
(ex2a <- bind_rows(
ex1,
mutate(ex1, fac = fct_recode(fac,
"3" = "1",
"3" = "2"
))
))
#or
(ex2b <- bind_rows(
ex1,
mutate(ex1, fac="3"
))
%>% mutate(fac=factor(fac)))
#result
ggplot(
data = ex2,
aes(x = fac, y = num)
) +
geom_boxplot()