add count2

DESCRIPTION

@@ -1,6 +1,6 @@
 Package: relper
 Title: Miscellaneous Functions for Data Preparation, Cleaning, and Visualization
-Version: 3.13.1
+Version: 3.14.0
 Authors@R: person("Vinícius", "Félix", email = "vinicius1b7f@gmail.com", role = c("aut", "cre"))
 Description: A collection of functions to help with data preparation, cleaning, and visualization. relper offers functions to: transform and format data (e.g., easily apply the percentage), compute metrics (e.g., coefficient of variation), check conditions (e.g., determine if a number is even or odd), supply lovely and varied color palettes (e.g., palettes inspired by TV series and movies), complement ggplot2 (e.g., add an identity line to a scatter plot), manipulate strings (e.g., keep only a type of character). The package's ultimate purpose is to simplify data analysis by providing functions that will shorten some steps.
 Depends: R (>= 3.6.0)

NAMESPACE

@@ -16,6 +16,7 @@ export(calc_mode)
 export(calc_peak_density)
 export(calc_perc)
 export(calc_skewness)
+export(count2)
 export(count_na)
 export(cut_by_quantile)
 export(dttm_diff)

NEWS.md

@@ -4,6 +4,12 @@
 >
 > *These additions transform the package into a comprehensive "Data Insight Toolbox," empowering users to gain deeper insights and perform advanced analyses on their datasets. Additionally, some functions have been renamed for better clarity and consistency.*
 
+## relper 3.14.0
+
+**Additions**
+
+-   count2
+
 ## relper 3.13.1
 
 **Additions**

R/count2.r

@@ -0,0 +1,27 @@
+#' Compute the frequency of counts, giving a group variable
+#'
+#' @description It counts the frequency of the counts, gibing a initial frequency count of the number of occurrences of each group size.
+#'
+#' @eval arg_df("df")
+#' @eval arg_df_var("grp_var","")
+
+#' @return A data.frame
+#'
+#' @export
+#'
+#' @examples
+#'
+#' count2(mtcars,cyl)
+#'
+
+
+count2 <- function(df,grp_var){
+
+  stopifnot(is.data.frame(df))
+
+  df %>%
+    dplyr::count({{grp_var}}) %>%
+    dplyr::count(n)
+
+}
+

vignettes/other_functions.Rmd

@@ -20,6 +20,15 @@ library(dplyr)
 library(ggplot2)
 ```
 
+# count2
+
+The goal of `count2` is to count the number of observations, giving a initial count.
+
+```{r count2}
+count2(mtcars,cyl)
+
+```
+
 # count_na
 
 The goal of `count_na` is to count the number of missing observations.