bf qhist

CITATION.cff

@@ -1,6 +1,6 @@
 cff-version: 1.2.0
 title: vertesy/ggExpress - the fastest way to create, annotate and and save plots in R.
-version: v0.6.0
+version: v0.6.1
 message: >-
   If you use this software, please cite it using these metadata.
 type: software

DESCRIPTION

@@ -1,7 +1,7 @@
 Package: ggExpress
 Title: ggExpress is the fastest way to create, annotate and export plots
     in R
-Version: 0.6.0
+Version: 0.6.1
 Authors@R: 
     person("Abel", "Vertesy", , "[email protected]", role = c("aut", "cre"))
 Author: Abel Vertesy <[email protected]> [aut, cre]
@@ -38,6 +38,6 @@ Imports:
     stats,
     tidyverse
 Encoding: UTF-8
-Packaged: 2022-11-01 13:18:12
+Packaged: 2022-11-01 13:30:26
 Roxygen: list(markdown = TRUE)
 RoxygenNote: 7.2.0

Development/Create_the_ggExpress_Package.v0.1.R

@@ -18,7 +18,7 @@ require('Stringendo')
 
 # Setup ------------------------
 PackageName = "ggExpress"
-package.version = "0.6.0"
+package.version = "0.6.1"
 setwd("~/GitHub/Packages/")
 
 RepositoryDir = kollapse("~/GitHub/Packages/", PackageName, "/")

Development/Development.bac

@@ -44,14 +44,14 @@ qhistogram <- function(vec, ext = "pdf", xlab = F, plot = TRUE, save = TRUE, mdl
                        , suffix = NULL
                        , plotname = FixPlotName(kpp(substitute(vec), suffix))
                        , logX = F, logY = F
+                       , annotation_logticks_X = logX, annotation_logticks_Y = logY
                        , vline = F, filtercol = 0
                        , add = "median"
                        , palette_use = c("RdBu", "Dark2", "Set2", "jco", "npg", "aaas", "lancet", "ucscgb", "uchicago")[4]
                        , col = as.character(1:3)[1]
                        , xlab.angle = 90
                        , hide.legend = TRUE
                        , max.names = 50
-                       , annotation_logticks_Y = logY
                        , w = 5, h = w, ...) {
   if (isFALSE(xlab)) xlab = plotname
   df <- qqqNamed.Vec.2.Tbl(namedVec = vec, thr = max.names)
@@ -76,6 +76,7 @@ qhistogram <- function(vec, ext = "pdf", xlab = F, plot = TRUE, save = TRUE, mdl
 
   if (logX) p <- p + ggplot2::scale_x_log10()
   if (annotation_logticks_X) p <- p + annotation_logticks(sides = "b")
+
   if (logY) p <- p + ggplot2::scale_y_log10()
   if (annotation_logticks_Y) p <- p + annotation_logticks(sides = "l")
   if (vline) p <- p + ggplot2::geom_vline(xintercept = vline)

R/ggExpress.R

@@ -44,14 +44,14 @@ qhistogram <- function(vec, ext = "pdf", xlab = F, plot = TRUE, save = TRUE, mdl
                        , suffix = NULL
                        , plotname = FixPlotName(kpp(substitute(vec), suffix))
                        , logX = F, logY = F
+                       , annotation_logticks_X = logX, annotation_logticks_Y = logY
                        , vline = F, filtercol = 0
                        , add = "median"
                        , palette_use = c("RdBu", "Dark2", "Set2", "jco", "npg", "aaas", "lancet", "ucscgb", "uchicago")[4]
                        , col = as.character(1:3)[1]
                        , xlab.angle = 90
                        , hide.legend = TRUE
                        , max.names = 50
-                       , annotation_logticks_Y = logY
                        , w = 5, h = w, ...) {
   if (isFALSE(xlab)) xlab = plotname
   df <- qqqNamed.Vec.2.Tbl(namedVec = vec, thr = max.names)
@@ -76,6 +76,7 @@ qhistogram <- function(vec, ext = "pdf", xlab = F, plot = TRUE, save = TRUE, mdl
 
   if (logX) p <- p + ggplot2::scale_x_log10()
   if (annotation_logticks_X) p <- p + annotation_logticks(sides = "b")
+
   if (logY) p <- p + ggplot2::scale_y_log10()
   if (annotation_logticks_Y) p <- p + annotation_logticks(sides = "l")
   if (vline) p <- p + ggplot2::geom_vline(xintercept = vline)