diff --git a/DESCRIPTION b/DESCRIPTION
index 248d025..2d0e982 100644
--- a/DESCRIPTION
+++ b/DESCRIPTION
@@ -1,6 +1,6 @@
 Package: dashboard
 Title: What the Package Does (One Line, Title Case)
-Version: 0.0.10.004
+Version: 0.0.10.005
 Authors@R: 
   person(given = "First",
          family = "Last",
diff --git a/codemeta.json b/codemeta.json
index 5d4c4cc..ecd96bb 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.10.004",
+  "version": "0.0.10.005",
   "programmingLanguage": {
     "@type": "ComputerLanguage",
     "name": "R",
diff --git a/quarto/history.qmd b/quarto/history.qmd
index de2db20..fb4f6f2 100644
--- a/quarto/history.qmd
+++ b/quarto/history.qmd
@@ -55,15 +55,18 @@ reviews <- rbind (monthly_reviews, monthly_reviews_gen, monthly_reviews_stats)
 ```{r plot-review-history, echo = FALSE}
 ggplot (reviews, aes (x = month, y = reviews, colour = type)) +
     geom_line (linetype = reviews$lty) +
+    xlab ("Year") +
+    ylab ("Nr. active reviews / month") +
     theme_minimal () +
     theme (
         legend.position = "inside",
-        legend.position.inside = c (0.9, 0.8)
+        legend.position.inside = c (0.1, 0.8)
     )
 ```
 
 The next chart shows the average duration of the review process, plotted
-against the months in which each review started.
+against the months in which each review started. (The data have been slightly
+smoothed to aid visual display.)
 
 ```{r rev-duration, echo = FALSE}
 rev_dur <- data.frame (
@@ -72,6 +75,17 @@ rev_dur <- data.frame (
 ) |>
     dplyr::group_by (quarter) |>
     dplyr::summarise (dur = mean (duration, na.rm = TRUE))
+# Those quarterly data are quite jumpy, so apply a filter:
+filter_dat <- function (dat, flen = 5) {
+    index <- seq_len (length (dat) - flen + 1) + floor (flen / 2)
+    x <- seq_len (flen) - ceiling (flen / 2)
+    x <- -abs (x)
+    filt <- exp (x)
+    filt <- filt / sum (filt)
+    dat [index] <- filter (dat, filt) [index]
+    return (dat)
+}
+rev_dur$dur <- filter_dat (rev_dur$dur, flen = 3)
 ```
 
 ```{r rev-duration-plot, echo = FALSE}
@@ -79,9 +93,5 @@ ggplot (rev_dur, aes (x = quarter, y = dur)) +
     geom_line () +
     theme_minimal () +
     xlab ("Year") +
-    ylab ("Duration (months)") +
-    theme (
-        legend.position = "inside",
-        legend.position.inside = c (0.9, 0.8)
-    )
+    ylab ("Review Duration (months)")
 ```