andreas/FreesearchR
1
0
Fork 0
mirror of https://github.com/agdamsbo/FreesearchR.git synced 2025-12-15 17:12:09 +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
#'
#' @examples
#' data_demo <- mtcars
#' data_demo[2:4, "cyl"] <- NA
#' rbind(data_demo, data_demo, data_demo, data_demo) |> missings_apex_plot()
#' data_demo |> missings_apex_plot()
#' mtcars |> missings_apex_plot(animation = TRUE)
#' # data_demo <- mtcars
#' # data_demo[2:4, "cyl"] <- NA
#' # rbind(data_demo, data_demo, data_demo, data_demo) |> missings_apex_plot()
#' # data_demo |> missings_apex_plot()
#' # mtcars |> missings_apex_plot(animation = TRUE)
#' # dplyr::storms |> missings_apex_plot()
#' visdat::vis_dat(dplyr::storms)
#' # visdat::vis_dat(dplyr::storms)
missings_apex_plot <- function(data, animation = FALSE, ...) {
l <- data_summary_gather(data, ...)
@ -159,13 +159,13 @@ missings_apex_plot <- function(data, animation = FALSE, ...) {
#' @export
#'
#' @examples
#' data_demo <- mtcars
#' data_demo[sample(1:32, 10), "cyl"] <- NA
#' data_demo[sample(1:32, 8), "vs"] <- NA
#' visual_summary(data_demo)
#' 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, na.label = "Missings", legend.title = "Class")
#' # data_demo <- mtcars
#' # data_demo[sample(1:32, 10), "cyl"] <- NA
#' # data_demo[sample(1:32, 8), "vs"] <- NA
#' # visual_summary(data_demo)
#' # 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, na.label = "Missings", legend.title = "Class")
visual_summary <- function(data, legend.title = NULL, ylab = "Observations", ...) {
l <- data_summary_gather(data, ...)
@ -217,7 +217,7 @@ visual_summary <- function(data, legend.title = NULL, ylab = "Observations", ...
#' @export
#'
#' @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", ...) {
df_plot <- setNames(data, unique_short(names(data))) |>
purrr::map_df(\(x){

2
man/data_summary_gather.Rd
View file

@ -31,5 +31,5 @@ data.frame
Data summary for printing visual summary
}
\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()
data_demo <- mtcars
data_demo[2:4, "cyl"] <- NA
rbind(data_demo, data_demo, data_demo, data_demo) |> missings_apex_plot()
data_demo |> missings_apex_plot()
mtcars |> missings_apex_plot(animation = TRUE)
# data_demo <- mtcars
# data_demo[2:4, "cyl"] <- NA
# rbind(data_demo, data_demo, data_demo, data_demo) |> missings_apex_plot()
# data_demo |> missings_apex_plot()
# mtcars |> missings_apex_plot(animation = TRUE)
# dplyr::storms |> missings_apex_plot()
visdat::vis_dat(dplyr::storms)
data_demo <- mtcars
data_demo[sample(1:32, 10), "cyl"] <- NA
data_demo[sample(1:32, 8), "vs"] <- NA
visual_summary(data_demo)
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, na.label = "Missings", legend.title = "Class")
# visdat::vis_dat(dplyr::storms)
# data_demo <- mtcars
# data_demo[sample(1:32, 10), "cyl"] <- NA
# data_demo[sample(1:32, 8), "vs"] <- NA
# visual_summary(data_demo)
# 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, na.label = "Missings", legend.title = "Class")
}