gnoblet/visualizeR
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Use radix method in order for grouped sorting

Browse source
This commit is contained in:
gnoblet 2025-07-02 11:59:56 +02:00
parent 423440b5dc
commit 5bda0e58ad
1 changed files with 12 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

14
R/reorder_by.R
View file

@ -66,7 +66,12 @@ reorder_by <- function(df, x, y, group = "", order = "y", dir_order = 1) {
} else if (order == "grouped_y" && group != "") { } else if (order == "grouped_y" && group != "") {
# Order by group first, then by values of y # Order by group first, then by values of y
df <- df[ df <- df[
order(df[[group]], df[[y]], decreasing = c(FALSE, dir_order_lgl)), order(
df[[group]],
df[[y]],
decreasing = c(FALSE, dir_order_lgl),
method = "radix"
),
] ]
df[[x]] <- forcats::fct_inorder(df[[x]]) df[[x]] <- forcats::fct_inorder(df[[x]])
} else if (order == "grouped_y" && group == "") { } else if (order == "grouped_y" && group == "") {
@ -81,7 +86,12 @@ reorder_by <- function(df, x, y, group = "", order = "y", dir_order = 1) {
} else if (order == "grouped_x" && group != "") { } else if (order == "grouped_x" && group != "") {
# Order by group first, then alphabetically by x # Order by group first, then alphabetically by x
df <- df[ df <- df[
order(df[[group]], df[[x]], decreasing = c(FALSE, dir_order_lgl)), order(
df[[group]],
df[[x]],
decreasing = c(FALSE, dir_order_lgl),
method = "radix"
),
] ]
df[[x]] <- forcats::fct_inorder(df[[x]]) df[[x]] <- forcats::fct_inorder(df[[x]])
} else if (order == "grouped_x" && group == "") { } else if (order == "grouped_x" && group == "") {