From 25a65e45a8b3c38860dbe9bacba3500cb3a14ebe Mon Sep 17 00:00:00 2001 From: mpadge Date: Wed, 20 Mar 2024 15:02:20 +0100 Subject: [PATCH] improve explanatory text for #8 --- DESCRIPTION | 2 +- codemeta.json | 2 +- quarto/editors.qmd | 35 ++++++++++++++++++++++++----------- 3 files changed, 26 insertions(+), 13 deletions(-) diff --git a/DESCRIPTION b/DESCRIPTION index fbfb8e7..4a37bc9 100644 --- a/DESCRIPTION +++ b/DESCRIPTION @@ -1,6 +1,6 @@ Package: dashboard Title: What the Package Does (One Line, Title Case) -Version: 0.0.11 +Version: 0.0.11.001 Authors@R: person(given = "First", family = "Last", diff --git a/codemeta.json b/codemeta.json index 5d44171..42372fc 100644 --- a/codemeta.json +++ b/codemeta.json @@ -6,7 +6,7 @@ "name": "dashboard: What the Package Does (One Line, Title Case)", "codeRepository": "https://github.com/ropensci-review-tools/dashboard", "license": "https://spdx.org/licenses/MIT", - "version": "0.0.11", + "version": "0.0.11.001", "programmingLanguage": { "@type": "ComputerLanguage", "name": "R", diff --git a/quarto/editors.qmd b/quarto/editors.qmd index 2c99112..3bff943 100644 --- a/quarto/editors.qmd +++ b/quarto/editors.qmd @@ -129,17 +129,19 @@ gt::gt ( ## Past Editorial Load {#past-ed-load} -The following two graphs illustrate the previous load of each editor. The -thickness of lines represents numbers of concurrent submissions handled by each -editor. These charts are intended as an additional aid in selecting handling -editors. Editors who have had relatively low recent loads should be chosen in -favor of those who have recently had higher loads. - - ```{r timeline-prepro, echo = FALSE} start_time <- lubridate::ymd ("2020-01-01") timeline <- dplyr::filter (ed_timeline, month >= start_time) |> - dplyr::filter (!name %in% c ("haozhu233")) + dplyr::filter (!name %in% c ("haozhu233")) |> + dplyr::rename (reviews = value) + +# Information on max scale of reviews: +i <- which.max (timeline$reviews) [1] # There is only one of these +max_reviews <- timeline [i, ] +max_rev_name <- max_reviews$name +max_rev_month <- max_reviews$month +max_rev_n <- max_reviews$reviews + xlab_pos <- as.Date (min (timeline$month) - lubridate::dmonths (12)) eds_stats <- ed_status$editor [which (ed_status$stats)] timeline_stats <- timeline [timeline$name %in% eds_stats, ] @@ -148,6 +150,17 @@ timeline$y <- match (timeline$y, unique (timeline$y)) timeline_stats$y <- match (timeline_stats$y, unique (timeline_stats$y)) ``` +The following two graphs illustrate the previous load of each editor. These +charts are intended as an additional aid in selecting handling editors. Editors +who have had relatively low recent loads should be chosen in favor of those who +have recently had higher loads. + +The thickness of lines represents numbers of concurrent submissions handled by +each editor, and aggregated for each month. Widths range from zero reviews for +the thinnest lines to a maximum of `r max_rev_n` by @`r max_rev_name` in +`r max_rev_month`. + + ### General editors This first chart illustrates the historical loads for general (non-statistical) @@ -156,7 +169,7 @@ editors. ::: {style="all.initial;"} ```{r timeline-ed-plot, echo = FALSE, fig.width = 8, fig.height = 8} ggplot2::ggplot (timeline, ggplot2::aes (x = month, y = y, colour = name)) + - ggplot2::geom_line (ggplot2::aes (linewidth = value)) + + ggplot2::geom_line (ggplot2::aes (linewidth = reviews)) + ggplot2::scale_linewidth (range = c (1, 25)) + ggplot2::geom_text ( ggplot2::aes (x = xlab_pos, y = y, label = name), @@ -180,7 +193,7 @@ ggplot2::ggplot (timeline, ggplot2::aes (x = month, y = y, colour = name)) + ### Statistical editors -This chart illustrates the historical loads for statistical editors. +This chart illustrates the historical loads for statistical editors. ```{r set-fig-ht, echo = FALSE} # Scale height of next fig to proportional decrease in number of lines @@ -195,7 +208,7 @@ knitr::opts_chunk$set (fig.height = ht) ::: {style="all.initial;"} ```{r timeline-stats-ed-plot, echo = FALSE, fig.width = 8} ggplot2::ggplot (timeline_stats, ggplot2::aes (x = month, y = y, colour = name)) + - ggplot2::geom_line (ggplot2::aes (linewidth = value)) + + ggplot2::geom_line (ggplot2::aes (linewidth = reviews)) + ggplot2::scale_linewidth (range = c (1, 25)) + ggplot2::geom_text ( ggplot2::aes (x = xlab_pos, y = y, label = name),