andreas/FreesearchR
1
0
Fork 0
mirror of https://github.com/agdamsbo/FreesearchR.git synced 2026-06-19 12:37:30 +02:00
Code Issues Projects Releases Packages Wiki Activity

feat: further improved new factor interface

Browse source
This commit is contained in:
Andreas Gammelgaard Damsbo 2025-10-31 11:36:54 +01:00
commit 5a632e60fa
No known key found for this signature in database
2 changed files with 69 additions and 35 deletions
Download patch file Download diff file Expand all files Collapse all files

9
R/cut_var.R
View file

@ -184,9 +184,16 @@ cut_var.factor <- function(x, breaks = NULL, type = c("top", "bottom"), other =
tbl <- sort(table(x), decreasing = TRUE)
if (type == "top") {
if (length(levels(x)) <= breaks){
return(x)
}
lvls <- names(tbl[seq_len(breaks)])
} else if (type == "bottom") {
lvls <- names(tbl)[!tbl / NROW(x) * 100 < breaks]
freqs_check <- tbl / NROW(x) * 100 < breaks
if (!any(freqs_check)){
return(x)
}
lvls <- names(tbl)[!freqs_check]
}
if (other %in% lvls) {