library(dataprep)
library(ggplot2)
library(scales)
# Descriptive statistics
descplot(data,5,65)
#> Warning in min(x, na.rm = TRUE): no non-missing arguments to min; returning Inf
#> Warning in max(x, na.rm = TRUE): no non-missing arguments to max; returning -Inf
#> Warning in min(x, na.rm = TRUE): no non-missing arguments to min; returning Inf
#> Warning in max(x, na.rm = TRUE): no non-missing arguments to max; returning -Inf
#> Warning in min(x, na.rm = TRUE): no non-missing arguments to min; returning Inf
#> Warning in max(x, na.rm = TRUE): no non-missing arguments to max; returning -Inf
#> Warning in min(x, na.rm = TRUE): no non-missing arguments to min; returning Inf
#> Warning in max(x, na.rm = TRUE): no non-missing arguments to max; returning -Inf
#> Warning in min(x, na.rm = TRUE): no non-missing arguments to min; returning Inf
#> Warning in max(x, na.rm = TRUE): no non-missing arguments to max; returning -Inf
#> Warning in min(x, na.rm = TRUE): no non-missing arguments to min; returning Inf
#> Warning in max(x, na.rm = TRUE): no non-missing arguments to max; returning -Inf
#> Warning in min(x, na.rm = TRUE): no non-missing arguments to min; returning Inf
#> Warning in max(x, na.rm = TRUE): no non-missing arguments to max; returning -Inf
#> Warning in min(x, na.rm = TRUE): no non-missing arguments to min; returning Inf
#> Warning in max(x, na.rm = TRUE): no non-missing arguments to max; returning -Inf
#> Warning in min(x, na.rm = TRUE): no non-missing arguments to min; returning Inf
#> Warning in max(x, na.rm = TRUE): no non-missing arguments to max; returning -Inf
#> Warning in min(x, na.rm = TRUE): no non-missing arguments to min; returning Inf
#> Warning in max(x, na.rm = TRUE): no non-missing arguments to max; returning -Inf
#> Warning in min(x, na.rm = TRUE): no non-missing arguments to min; returning Inf
#> Warning in max(x, na.rm = TRUE): no non-missing arguments to max; returning -Inf
#> Warning in min(x, na.rm = TRUE): no non-missing arguments to min; returning Inf
#> Warning in max(x, na.rm = TRUE): no non-missing arguments to max; returning -Inf
#> Time used by descdata: 0.0439 secs
#> Time used by descplot: 0.101 secs
#> Warning: Removed 3 row(s) containing missing values (geom_path).
# Selected descriptive statistics, equal to descdata(data,5,65,c('na','min','max','IQR'))
descplot(data,5,65,c(2,7:9))
#> Warning in min(x, na.rm = TRUE): no non-missing arguments to min; returning Inf
#> Warning in max(x, na.rm = TRUE): no non-missing arguments to max; returning -Inf
#> Warning in min(x, na.rm = TRUE): no non-missing arguments to min; returning Inf
#> Warning in max(x, na.rm = TRUE): no non-missing arguments to max; returning -Inf
#> Warning in min(x, na.rm = TRUE): no non-missing arguments to min; returning Inf
#> Warning in max(x, na.rm = TRUE): no non-missing arguments to max; returning -Inf
#> Warning in min(x, na.rm = TRUE): no non-missing arguments to min; returning Inf
#> Warning in max(x, na.rm = TRUE): no non-missing arguments to max; returning -Inf
#> Warning in min(x, na.rm = TRUE): no non-missing arguments to min; returning Inf
#> Warning in max(x, na.rm = TRUE): no non-missing arguments to max; returning -Inf
#> Warning in min(x, na.rm = TRUE): no non-missing arguments to min; returning Inf
#> Warning in max(x, na.rm = TRUE): no non-missing arguments to max; returning -Inf
#> Warning in min(x, na.rm = TRUE): no non-missing arguments to min; returning Inf
#> Warning in max(x, na.rm = TRUE): no non-missing arguments to max; returning -Inf
#> Warning in min(x, na.rm = TRUE): no non-missing arguments to min; returning Inf
#> Warning in max(x, na.rm = TRUE): no non-missing arguments to max; returning -Inf
#> Warning in min(x, na.rm = TRUE): no non-missing arguments to min; returning Inf
#> Warning in max(x, na.rm = TRUE): no non-missing arguments to max; returning -Inf
#> Warning in min(x, na.rm = TRUE): no non-missing arguments to min; returning Inf
#> Warning in max(x, na.rm = TRUE): no non-missing arguments to max; returning -Inf
#> Warning in min(x, na.rm = TRUE): no non-missing arguments to min; returning Inf
#> Warning in max(x, na.rm = TRUE): no non-missing arguments to max; returning -Inf
#> Warning in min(x, na.rm = TRUE): no non-missing arguments to min; returning Inf
#> Warning in max(x, na.rm = TRUE): no non-missing arguments to max; returning -Inf
#> Time used by descdata: 0.0339 secs
#> Time used by descplot: 0.0379 secs
#> Warning: Removed 3 row(s) containing missing values (geom_path).
# Descriptive statistics
descplot(data1,3,7)+
::theme(axis.text.x=ggplot2::element_text(angle=30,hjust=1,vjust=1.1))
ggplot2#> Time used by descdata: 0.00399 secs
#> Time used by descplot: 0.00798 secs
# Selected descriptive statistics, equal to descplot(data1,3,7,c('min','max','IQR'))
descplot(data1,3,7,7:9)+
::theme(axis.text.x=ggplot2::element_text(angle=30,hjust=1,vjust=1.1))
ggplot2#> Time used by descdata: 0.00299 secs
#> Time used by descplot: 0.00598 secs
# Top and bottom percentiles
percplot(data,5,65,4)
#> Time used by percdata: 0.0479 secs
#> Time used by percplot: 0.0648 secs
#> Warning: Removed 144 row(s) containing missing values (geom_path).
# Top percentiles
percplot(data,5,65,4,part=1)
#> Time used by percdata: 0.0429 secs
#> Time used by percplot: 0.0588 secs
#> Warning: Removed 72 row(s) containing missing values (geom_path).
# Bottom percentiles
percplot(data,5,65,4,part=0)
#> Time used by percdata: 0.0449 secs
#> Time used by percplot: 0.0578 secs
#> Warning: Removed 72 row(s) containing missing values (geom_path).
# Top and bottom percentiles
percplot(data1,3,7,2)+
::theme(axis.text.x=ggplot2::element_text(angle=30,hjust=1,vjust=1.1))
ggplot2#> Time used by percdata: 0.00698 secs
#> Time used by percplot: 0.017 secs
# Top percentiles
percplot(data1,3,7,2,part=1)+
::theme(axis.text.x=ggplot2::element_text(angle=30,hjust=1,vjust=1.1))
ggplot2#> Time used by percdata: 0.00499 secs
#> Time used by percplot: 0.014 secs
# Bottom percentiles
percplot(data1,3,7,2,part=0)+
::theme(axis.text.x=ggplot2::element_text(angle=30,hjust=1,vjust=1.1))
ggplot2#> Time used by percdata: 0.00598 secs
#> Time used by percplot: 0.014 secs