change ncol to nrow in facet_wrap()

lindbrook · Mar 14, 2021 · 85da87f · 85da87f
1 parent 4d77a3a
commit 85da87f
Show file tree

Hide file tree

Showing 6 changed files with 13 additions and 6 deletions.
diff --git a/DESCRIPTION b/DESCRIPTION
@@ -1,8 +1,8 @@
 Package: packageRank
 Type: Package
 Title: Computation and Visualization of Package Download Counts and Percentiles
-Version: 0.4.0.9001
-Date: 2021-03-07
+Version: 0.4.0.9002
+Date: 2021-03-14
 Authors@R: person("lindbrook", email = "[email protected]",
     role = c("aut", "cre"))
 Maintainer: lindbrook <[email protected]>

diff --git a/NEWS b/NEWS
@@ -1,3 +1,10 @@
+packageRank 0.4.0.9002
+==================
+
+- plot.packageDistribution(), plot.packageRank(), populationPlot():
+  facet_wrap(~ package, ncol = 2) to facet_wrap(~ package, nrow = 2).
+
+
 packageRank 0.4.0.9001
 ==================
 

diff --git a/R/packageDistribution.R b/R/packageDistribution.R
@@ -126,7 +126,7 @@ plot.packageDistribution <- function(x, ...) {
                  fill = grDevices::adjustcolor("red", alpha.f = 2/3),
                  colour = "white", size = 2.75, label = pkg.ct$count) +
       scale_x_log10() +
-      facet_wrap(~ package, ncol = 2) +
+      facet_wrap(~ package, nrow = 2) +
       xlab("Downloads") +
       ylab("Frequency") +
       theme_bw() +

diff --git a/R/packageRank.R b/R/packageRank.R
@@ -326,7 +326,7 @@ ggPlot <- function(x, log_count, freqtab, iqr, package.data, y.max, date) {
                   label = xlabel, nudge_y = ylabel.nudge) +
        xlab("Rank") +
        ylab("Count") +
-       facet_wrap(~ id, ncol = 2) +
+       facet_wrap(~ id, nrow = 2) +
        theme_bw() +
        theme(panel.grid.major = element_blank(),
              panel.grid.minor = element_blank())

diff --git a/R/populationPlot.R b/R/populationPlot.R
@@ -113,7 +113,7 @@ populationPlot <- function(x, graphics = NULL, log.count = TRUE, smooth = TRUE,
            theme_bw() +
            theme(panel.grid.major = element_blank(),
                  panel.grid.minor = element_blank()) +
-           facet_wrap(~ package, ncol = 2)
+           facet_wrap(~ package, nrow = 2)
 
     cran.smpl.lst <- rep(list(cran.smpl), length(packages))
 

diff --git a/README.md b/README.md
@@ -1,7 +1,7 @@
 
 <!-- README.md is generated from README.Rmd. Please edit that file -->
 [![CRAN\_Status\_Badge](http://www.r-pkg.org/badges/version/packageRank)](https://cran.r-project.org/package=packageRank)
-[![GitHub\_Status\_Badge](https://img.shields.io/badge/GitHub-0.4.0.9001-red.svg)](https://github.com/lindbrook/packageRank/blob/master/NEWS)
+[![GitHub\_Status\_Badge](https://img.shields.io/badge/GitHub-0.4.0.9002-red.svg)](https://github.com/lindbrook/packageRank/blob/master/NEWS)
 ## packageRank: compute and visualize package download counts and rank percentiles
 
 [‘packageRank’](https://CRAN.R-project.org/package=packageRank) is an R