iris$Stem.Size <- sample(c("Small", "Medium", "Medium", "Large"), size=150, replace=TRUE)
x <- tbl_start(iris, "Species", missing=TRUE, overall=TRUE, comparison=TRUE) %>%
cat_row("Stem.Size", rowlabel="Stem Size")
Run the code above in your browser using DataLab