library(dplyr)
# Default sorting by factor
t <- tplyr_table(mtcars, gear) %>%
add_layer(
group_count(cyl)
)
build(t)
# Sorting by N
mtcars$cylN <- mtcars$cyl
t <- tplyr_table(mtcars, gear) %>%
add_layer(
group_count(cyl) %>%
set_order_count_method("byvarn")
)
# Sorting by row count
t <- tplyr_table(mtcars, gear) %>%
add_layer(
group_count(cyl) %>%
set_order_count_method("bycount") %>%
# Orders based on the 6 gear group
set_ordering_cols(6)
)
# Sorting by row count by percentages
t <- tplyr_table(mtcars, gear) %>%
add_layer(
group_count(cyl) %>%
set_order_count_method("bycount") %>%
set_result_order_var(pct)
)
# Sorting when you have column arguments in the table
t <- tplyr_table(mtcars, gear, cols = vs) %>%
add_layer(
group_count(cyl) %>%
# Uses the fourth gear group and the 0 vs group in ordering
set_ordering_cols(4, 0)
)
# Using a custom factor to order
mtcars$cyl <- factor(mtcars$cyl, c(6, 4, 8))
t <- tplyr_table(mtcars, gear) %>%
add_layer(
group_count(cyl) %>%
# This is the default but can be used to change the setting if it is
#set at the table level.
set_order_count_method("byfactor")
)
Run the code above in your browser using DataLab