andreas/FreesearchR
1
0
Fork 0
mirror of https://github.com/agdamsbo/FreesearchR.git synced 2025-12-16 17:42:10 +01:00
Code Issues Projects Releases Packages Wiki Activity Actions

examples updated

Browse source
This commit is contained in:
Andreas Gammelgaard Damsbo 2025-11-19 11:22:47 +01:00
parent 67e425d510
commit c2fa49e914
No known key found for this signature in database
3 changed files with 28 additions and 28 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

28
R/visual_summary.R
View file

@ -101,13 +101,13 @@ modal_visual_summary <- function(id,
#' @export #' @export
#' #'
#' @examples #' @examples
#' data_demo <- mtcars #' # data_demo <- mtcars
#' data_demo[2:4, "cyl"] <- NA #' # data_demo[2:4, "cyl"] <- NA
#' rbind(data_demo, data_demo, data_demo, data_demo) |> missings_apex_plot() #' # rbind(data_demo, data_demo, data_demo, data_demo) |> missings_apex_plot()
#' data_demo |> missings_apex_plot() #' # data_demo |> missings_apex_plot()
#' mtcars |> missings_apex_plot(animation = TRUE) #' # mtcars |> missings_apex_plot(animation = TRUE)
#' # dplyr::storms |> missings_apex_plot() #' # dplyr::storms |> missings_apex_plot()
#' visdat::vis_dat(dplyr::storms) #' # visdat::vis_dat(dplyr::storms)
missings_apex_plot <- function(data, animation = FALSE, ...) { missings_apex_plot <- function(data, animation = FALSE, ...) {
l <- data_summary_gather(data, ...) l <- data_summary_gather(data, ...)
@ -159,13 +159,13 @@ missings_apex_plot <- function(data, animation = FALSE, ...) {
#' @export #' @export
#' #'
#' @examples #' @examples
#' data_demo <- mtcars #' # data_demo <- mtcars
#' data_demo[sample(1:32, 10), "cyl"] <- NA #' # data_demo[sample(1:32, 10), "cyl"] <- NA
#' data_demo[sample(1:32, 8), "vs"] <- NA #' # data_demo[sample(1:32, 8), "vs"] <- NA
#' visual_summary(data_demo) #' # visual_summary(data_demo)
#' visual_summary(data_demo, palette.fun = scales::hue_pal()) #' # visual_summary(data_demo, palette.fun = scales::hue_pal())
#' visual_summary(dplyr::storms, summary.fun = data_type) #' # visual_summary(dplyr::storms, summary.fun = data_type)
#' visual_summary(dplyr::storms, summary.fun = data_type, na.label = "Missings", legend.title = "Class") #' # visual_summary(dplyr::storms, summary.fun = data_type, na.label = "Missings", legend.title = "Class")
visual_summary <- function(data, legend.title = NULL, ylab = "Observations", ...) { visual_summary <- function(data, legend.title = NULL, ylab = "Observations", ...) {
l <- data_summary_gather(data, ...) l <- data_summary_gather(data, ...)
@ -217,7 +217,7 @@ visual_summary <- function(data, legend.title = NULL, ylab = "Observations", ...
#' @export #' @export
#' #'
#' @examples #' @examples
#' mtcars |> data_summary_gather() #' mtcars |> data_summary_gather() |> names()
data_summary_gather <- function(data, summary.fun = class, palette.fun = viridisLite::viridis, na.label = "NA", ...) { data_summary_gather <- function(data, summary.fun = class, palette.fun = viridisLite::viridis, na.label = "NA", ...) {
df_plot <- setNames(data, unique_short(names(data))) |> df_plot <- setNames(data, unique_short(names(data))) |>
purrr::map_df(\(x){ purrr::map_df(\(x){

2
man/data_summary_gather.Rd
View file

@ -31,5 +31,5 @@ data.frame
Data summary for printing visual summary Data summary for printing visual summary
} }
\examples{ \examples{
mtcars |> data_summary_gather() mtcars |> data_summary_gather() |> names()
} }

26
man/visual-summary.Rd
View file

@ -102,18 +102,18 @@ visual_summary_demo_app <- function() {
} }
visual_summary_demo_app() visual_summary_demo_app()
data_demo <- mtcars # data_demo <- mtcars
data_demo[2:4, "cyl"] <- NA # data_demo[2:4, "cyl"] <- NA
rbind(data_demo, data_demo, data_demo, data_demo) |> missings_apex_plot() # rbind(data_demo, data_demo, data_demo, data_demo) |> missings_apex_plot()
data_demo |> missings_apex_plot() # data_demo |> missings_apex_plot()
mtcars |> missings_apex_plot(animation = TRUE) # mtcars |> missings_apex_plot(animation = TRUE)
# dplyr::storms |> missings_apex_plot() # dplyr::storms |> missings_apex_plot()
visdat::vis_dat(dplyr::storms) # visdat::vis_dat(dplyr::storms)
data_demo <- mtcars # data_demo <- mtcars
data_demo[sample(1:32, 10), "cyl"] <- NA # data_demo[sample(1:32, 10), "cyl"] <- NA
data_demo[sample(1:32, 8), "vs"] <- NA # data_demo[sample(1:32, 8), "vs"] <- NA
visual_summary(data_demo) # visual_summary(data_demo)
visual_summary(data_demo, palette.fun = scales::hue_pal()) # visual_summary(data_demo, palette.fun = scales::hue_pal())
visual_summary(dplyr::storms, summary.fun = data_type) # visual_summary(dplyr::storms, summary.fun = data_type)
visual_summary(dplyr::storms, summary.fun = data_type, na.label = "Missings", legend.title = "Class") # visual_summary(dplyr::storms, summary.fun = data_type, na.label = "Missings", legend.title = "Class")
} }