From 90f8e1abf315e26be37e21e0a68f99ddd0f50aad Mon Sep 17 00:00:00 2001
From: "Watal M. Iwasaki" <heavywatal@users.noreply.github.com>
Date: Thu, 18 Jan 2024 11:35:04 +0900
Subject: [PATCH] Replace size argument with linewidth for geom_line and
 geom_ridgeline

This is a follow-up of f38d0639ead5f13d0a92178669b112cbbb3fe625 and 89c12289379f87c8d7e4fbcaecf079fc75399ba2
---
 R/mcmc-intervals.R | 10 +++++-----
 R/mcmc-parcoord.R  |  2 +-
 R/mcmc-traces.R    |  6 +++++-
 3 files changed, 11 insertions(+), 7 deletions(-)

diff --git a/R/mcmc-intervals.R b/R/mcmc-intervals.R
index 8ac5e97b..24aa52f2 100644
--- a/R/mcmc-intervals.R
+++ b/R/mcmc-intervals.R
@@ -384,9 +384,9 @@ mcmc_areas <- function(x,
   }
 
   if (!is.null(border_size)) {
-    args_bottom$size <- border_size
-    args_outer$size <- border_size
-    args_inner$size <- border_size
+    args_bottom$linewidth <- border_size
+    args_outer$linewidth <- border_size
+    args_inner$linewidth <- border_size
   }
 
   if (color_by_rhat) {
@@ -504,7 +504,7 @@ mcmc_areas_ridges <- function(x,
     stat = "identity"
   )
   if (!is.null(border_size)) {
-    args_outer$size <- border_size
+    args_outer$linewidth <- border_size
   }
 
   layer_outer <- do.call(ggridges::geom_density_ridges, args_outer)
@@ -545,7 +545,7 @@ mcmc_areas_ridges <- function(x,
         stat = "identity")
 
     if (!is.null(border_size)) {
-      args_inner$size <- border_size
+      args_inner$linewidth <- border_size
     }
 
     layer_list_inner[[par_num]] <- do.call(ggridges::geom_ridgeline, args_inner)
diff --git a/R/mcmc-parcoord.R b/R/mcmc-parcoord.R
index 740c2e14..f3718e18 100644
--- a/R/mcmc-parcoord.R
+++ b/R/mcmc-parcoord.R
@@ -146,7 +146,7 @@ mcmc_parcoord <-
       graph <- graph +
         geom_line(
           data = div_draws,
-          size = np_style$size[["div"]],
+          linewidth = np_style$size[["div"]],
           alpha = np_style$alpha[["div"]],
           color = np_style$color[["div"]]
         )
diff --git a/R/mcmc-traces.R b/R/mcmc-traces.R
index c5690b4b..c01bc416 100644
--- a/R/mcmc-traces.R
+++ b/R/mcmc-traces.R
@@ -665,7 +665,11 @@ mcmc_trace_data <- function(x,
   }
 
   geom_args <- list()
-  geom_args$size <- size %||% ifelse(style == "line", 1/3, 1)
+  if (style == "line") {
+    geom_args$linewidth = size %||% 1 / 3
+  } else {
+    geom_args$size = size %||% 1
+  }
   layer_draws <- do.call(paste0("geom_", style), geom_args)
 
   coord_window <- if (!is.null(window)) {